Стр. 269 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
269
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton0: TSpeedButton;
zap: TSpeedButton;
ravno: TSpeedButton;
Edit1: TEdit;
del: TSpeedButton;
umn: TSpeedButton;
minus: TSpeedButton;
plus: TSpeedButton;
c: TSpeedButton;
procedure DigitBtnClick(Sender: TObject);
procedure OpBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure zapClick(Sender: TObject);
procedure cClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure DoOper;
var
Form1: TForm1;
f:0..1;
accum:real;
oper:integer;
implementation
{$R *.dfm}
procedure DoOper;
var
numb:real;
begin
numb:=StrToFloat(Form1.Edit1.Text);
case oper of