Implementation

uses Unit2; {$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

//Сумма X+Y

begin S:=x+y; end;

procedure TForm1.Button2Click(Sender: TObject);

//Ввод X,Y

begin x:=StrToFloat(Edit1.text);

y:=StrToFloat(Edit2.text) end;

procedure TForm1.Button3Click(Sender: TObject);

//ВызовForm2

begin Button3.Enabled:=True;

Form2.Show; Button5.SetFocus end;

procedure TForm1.Button4Click(Sender: TObject);

//Разность X-Y

begin R:=x-y end;

procedure TForm1.Button5Click(Sender: TObject);//Вывод R,S

begin Form2.Edit1.Text:=FloatToStr(R);

Form2.Edit2.Text:=FloatToStr(S); end;

End.

Form2 (Unit2)

Implementation

uses Unit1; {$R *.DFM}

procedure TForm2.Button2Click(Sender: TObject); //Выход

Begin Form1.Close end;

procedure TForm2.Button1Click(Sender: TObject);

//Произведение X*Y

begin P:=x*y; end;

procedure TForm2.Button3Click(Sender: TObject); //Вывод P

begin Edit3.Text:=FloatToStr(P); end;

End.

3. Сохранить все сделанное командой File/Save Al l.

4. Запустить программу (Run). При успешном запуске программы на экране появится окно Form1 с компонентами:

5. В окна редакторов Edit1 и Edit2 ввести значение переменных X и Y. Замечание: в числах с дробной частью вводить символ “.”, а не “,”.

6. Нажать на кнопки в следующей последовательности:

“ Ввод X, Y”;

“Сумма X+Y”;

“Разность X-Y”;

“Вывод R, S”;

“Вызов Form2”;

7. Активизировать щелчком мыши Form2 и нажать на кнопки в следующей последовательности:

“ Умножение X*Y”;

“Вывод P”;

Вид Form 2 после выполнения:

8. Просмотреть результаты.

9. Для завершения работы нажать кнопку “Выход”.