6. Разместите на форме текстовые поля так, как показано на рис.1.

7. В окне текста программы перед разделом implementation введите описание констант и переменных программы:

8. Запрограммируйте кнопки SpeedButton1 и SpeedButton2 так:

Procedure TForm1.SpeedButton1Click(Sender: TObject);

{кнопка результатов года}

var first,second,variant,I,code : integer ;

s : string;

begin

randomize;

variant:=random(100); {случайный выбор варианта состояния рынка}

first:=Prob[r,1]; {первый и второй разделители}

second:=first+Prob[r,2]; {диапазон вероятностей}

profit:=0; {Начальное значение прибыли перед суммированием}

for I:=0 to 2 do val(StringGrid2.Cells[0,i+1],money[i],code);{получаем числовое значение для инвестиций и заполняем ими массив money}

for I:=0 to 2 do val(StringGrid2.Cells[0,i+1],money[i],code); {получаем числовые значения для инвестиций и заполняем ими массив money }

If variant<first then {вычисление прибыли для первого варианта}

Begin

For i:=0 to 2 do

Profit:=profit + money[i]*P[r,i+1,1]; {Суммирование по предприятиям}

Label9.Visible:=True; {подчеркивание выбранного варианта}

Label8.Caption:=’Вырос евро’ {информационный ряд}

End;

If (variant>=first) and (variant<second) then {вычисление прибыли для второго состояния рынка}

Begin

For i:=0 to 2 do

Profit:=profit + money[i]*P[r,i+1,2]; {Суммирование по предприятиям}

Label10.Visible:=True; {подчеркивание выбранного варианта}

Label8.Caption:=’Выросла Йена’ {информационный ряд}

End;

If variant>=second then

{вычисление прибыли для третьего варианта состояния рынка}

begin

for i:=0 to 2 do

Profit:=profit + money[i]*P[r,i+1,3]; {Суммирование по предприятиям}

Label11.Visible:=True; {подчеркивание выбранного варианта}

Label8.Caption:=’Вырос доллар’ {информационный ряд}

End;

profit:=round(profit/100); {округление прибыли до доллара}

Str (profit, s); Label7.Capcion : = s + ‘ долларов ‘; {печать прибыли}

Label7.Visible:=True; {высвечивание прибыли}

Label8.Visible:=True; {высвечивание информационного ряда}

SpeedButton1.Enabled : = False ; {Кнопка биржевых результатов недоступна}

SpeedButton2.Enabled : = False ; {Кнопка перехода на следующий год доступна}

End ;

Procedure TForm1.SpeedButton2Click(Sender: TObject);

{кнопка перехода на следующий год}

begin

year : =year + 1;

capital: = capital + profit ;

profit: =0;

Refresh; { ниже описана процедура ежегодного обновления формы }

Label9.Visible:=False; {отмена высвечивания варианта состояния рынка}

Label10.Visible:=False;

Label11.Visible:=False;

Label7.Visible:=False; {гасим информацию про прибыль}

End;

9. В

   Procedure TForm1.Refresh;

   Var I,j : integer ;

   S : string;

   Begin

   Str (capital, s ) ; Form1.Label6.Caption : = s + ‘ долларов ‘;

   Str (year, s ) ; Form1.Label5.Caption : = s + ‘ год ‘;

   Str (profit, s ) ; Form1.Label7.Caption : = s + ‘ долларов ‘;

   Form1.Label8.Caption : = ‘Введите сумму ‘;

   Form1. SpeedButton2.Enabled : = False ;

   Form1.SpeedButton1.Enabled : = False ;

   Randomize;

   R : = random(N); {Выбор инвестиционного климата r}

   For I : = 1 to 3 do

   For j : = 1 to 3 do

   Begin

   Str(P[r,j,i],s); Form1.StringGrid1.Cells[I,j] : = s + ‘ центов ‘;

   End;

   For j : = 1 to 3 do

   Begin

   Str(Prob[r,i],s); Form1.StringGrid3.Cells[I,0] : = s + ‘ % ‘;

   Form1.StringGrid2.Cells[0,I] : = ‘ ‘;

   End;

   End;

   окне текста программы после раздела implementation введите описание метода Refresh формы.

С

Procedure TForm1.Refresh;

трока

Вставьте в любом месте раздела type TForm1 = class (TForm ) … окна текста программы.

Запрограммируйте процедуру создания формы FormCreate.

Для этого дважды щёлкните на форме и получите заготовку процедуры

FormCreate(Sender : TObject) ;

Begin

Capital : =1000;

Year : =2000;

Profit :=0;

Refresh ;

StringGrid1.Cells[1,0] : = ‘вырастет евро ‘;

StringGrid1.Cells[2,0] : = ‘вырастет йена ‘;

StringGrid1.Cells[3,0] : = ‘вырастет доллар ‘;

StringGrid1.Cells[0,1] : = ‘Hundai ‘;

StringGrid1.Cells[0,2] : = ‘Philips‘;

StringGrid1.Cells[0,3] : = ‘ Bosh ‘;

StringGrid2.Cells[0,0] : = ‘ Инвестиции, $ ‘;

StringGrid3.Cells[0,0] : = ‘ Вероятность ‘;

End;