Создание обработчиков событий FormСreate и Botton1Сlick

Процедуры - обработчики событий FormСreate и Botton1Сlick создаются аналогично тому, как и в первой теме. Текст процедур приведен ниже.

Запустите программу и убедитесь в том, что все ветви алгоритма выполняются правильно. Форма приведена на рис.2.1.

Текст программы приведен ниже.

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

 

type

TForm1 = class(TForm)

CheckBox1: TCheckBox;

RadioGroup1: TRadioGroup;

Memo1: TMemo;

Button1: TButton;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.text:='0,1';

Edit2.text:='0,356';

Edit3.text:='0';

Memo1.Clear;

Memo1.Lines.Add('Рез-ты ст. гр.920201 Петрова И.И.');

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var x,y,z,u,ma:extended;

begin

// Ввод исходных данных и их вывод в окно Memo1

x:=StrToFloat(Edit1.Text);

Memo1.Lines.Add(' x='+Edit1.Text);

y:=StrToFloat(Edit2.Text);

Memo1.Lines.Add(' y='+Edit2.Text);

z:=StrToFloat(Edit3.Text);

Memo1.Lines.Add(' z='+Edit3.Text);

// Проверка номера нажатой кнопки и выбор соответствующей ей функции

case RadioGroup1.ItemIndex of

0: u:=cos(x);

1: u:=sin(x);

2: u:=sin(x)/cos(x);

end;

// Проверка состояния кнопки CheckBox1

if CheckBox1.Checked then

begin u:=abs(u);

y:=abs(y);

z:=abs(z) end;

// Нахождение максимального из трех чисел

if u>y then ma:=u else ma:=y;

if z>ma then ma:=z;

if CheckBox1.Checked then

Memo1.Lines.Add(' maxabs='+FloatToStrF(ma,ffFixed,8,2))

else

Memo1.Lines.Add(' max='+FloatToStrF(ma,ffGeneral,8,2));

 

end;

 

end.