(Должны быть использованы кнопки (3), окна редактирования (2) и метки (5))
| |
| | | Процедура для кнопки «ОЧИСТИТЬ»:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label5.Caption := '';
Edit1.Text := '';
Edit2.Text := '';
end;
Процедура для кнопки «ВЫХОД»:
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
| |
Процедура для кнопки «ВЫЧИСЛИТЬ»:
procedure TForm1.Button2Click(Sender: TObject);
var
a,b: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
if a>b then
Label5.Caption := FloatToStrF(a,ffFixed,4,2)
else
Label5.Caption := FloatToStrF(b,ffFixed,4,2)
end;