unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
CheckBox1: TCheckBox;
RadioGroup1: TRadioGroup;
Memo1: TMemo;
Button1: TButton;
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 |