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:='23'; Edit2.text:='0.356'; Edit3.text:='1'; Memo1.Clear; Memo1.Lines.Add('Peз-ты ст. гр. 920201 Петрова И.И.');
end;
procedure TForm1.Button1Click(Sender: TObject); var x,y,u, z,ma: extended; begin 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 x:= abs (x); y:= abs (y); z:= abs (z); end; // Нахождение максимального из трех чисел if x>y then ma := x 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, ffFixed,8,2));
end;
end.
М
При публикации кода просьба использовать теги! Lapp