И так на все процедуры
- Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
But1: TButton;
But10: TButton;
But11: TButton;
But12: TButton;
But13: TButton;
But14: TButton;
But15: TButton;
But16: TButton;
But17: TButton;
But18: TButton;
But19: TButton;
But21: TButton;
But22: TButton;
But23: TButton;
But24: TButton;
But25: TButton;
But3: TButton;
But4: TButton;
But5: TButton;
But6: TButton;
But7: TButton;
But8: TButton;
But9: TButton;
Edit1: TEdit;
procedure But17Click(Sender: TObject);
procedure But18Click(Sender: TObject);
procedure But19Click(Sender: TObject);
procedure But1Click(Sender: TObject);
procedure But25Click(Sender: TObject);
procedure But3Click(Sender: TObject);
procedure But4Click(Sender: TObject);
procedure ClickBut(Sender: TObject);
procedure ClickZnak(Sender: TObject);
private
public
end;
var
Form1: TForm1;
a, b, c : Real;
znak : String;
implementation
{$R *.lfm}
{ TForm1 }
end.
procedure TForm1.ClickZnak(Sender: TObject);
begin
a := StrToFloat(Edit1.Text);
Edit1.Clear;
znak :=(Sender as TButton).Caption;
end;
procedure TForm1.ClickBut(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + ( Sender as TButton).Caption;
end;
procedure TForm1.But1Click(Sender: TObject);
var
str : String;
begin
str := Edit1.Text;
if str <> '' then
Delete(str, Length(str), 1);
Edit1.Text:= str;
end;
procedure TForm1.But17Click(Sender: TObject);
begin
a := StrToFloat(Edit1.Text);
a := sqrt (a);
Edit1.Text :=FloatToStr(a);
a := 0;
end;
procedure TForm1.But18Click(Sender: TObject);
begin
a := StrToFloat(Edit1.Text);
a := sqr (a);
Edit1.Text :=FloatToStr(a);
a := 0;
end;
procedure TForm1.But19Click(Sender: TObject);
begin
a := StrToFloat(Edit1.Text);
a := 1/(a);
Edit1.Text :=FloatToStr(a);
a := 0;
end;
procedure TForm1.But25Click(Sender: TObject);
begin
b := StrToFloat(Edit1.Text);
Edit1.Clear;
case znak of
'+' : c := a+b;
'-' : c := a-b;
'*' : c := a*b;
'/' : c := a/b;
end;
Edit1.Text:= FloatToStr(c);
end;
procedure TForm1.But3Click(Sender: TObject);
begin
Edit1.Clear;
end;
procedure TForm1.But4Click(Sender: TObject);
begin
Edit1.Clear;
a:=0;
b:=0;
c:=0;
end;
end.