var
 
s1,s2:real;
islem tring;
 
 
 
 
 
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+(sender as tspeedbutton).Caption;
end;
 
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+(sender as tspeedbutton).Caption;
end;
 
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+(sender as tspeedbutton).Caption;
end;
 
procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+(sender as tspeedbutton).Caption;
end;
 
procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+(sender as tspeedbutton).Caption;
end;
 
procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+(sender as tspeedbutton).Caption;
end;
 
procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+(sender as tspeedbutton).Caption;
end;
 
procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+(sender as tspeedbutton).Caption;
end;
 
procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+(sender as tspeedbutton).Caption;
end;
 
procedure TForm1.SpeedButton14Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+(sender as tspeedbutton).Caption;
end;
 
 
 
 
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
a tring;
begin
a:=copy(edit1.Text,1,length(edit1.text)-1);
edit1.text:=a;
 
end;
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
edit1.Text:='';
end;
 
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
edit1.Text:='';
end;
 
procedure TForm1.SpeedButton13Click(Sender: TObject);
var
i:integer;
begin
if edit1.Text='' then
edit1.text:=edit1.Text+'0';
for i:=0 to length(edit1.text)-1 do
if copy(edit1.Text,i,1)=',' then
exit;
begin
if (copy(edit1.Text,i,1)<>',')and(edit1.text<>'0,') then
edit1.text:=edit1.Text+',';
if edit1.Text='0' then
edit1.Text:=edit1.Text+',';
 
 
end;
end;
procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
if edit1.text=''then exit;
edit1.Text:=floattostr(-1*strtofloat(edit1.text));
end;
 
procedure TForm1.SpeedButton20Click(Sender: TObject);
begin
edit1.Text:=floattostr(sqr(strtoint(edit1.text)));
end;
 
procedure TForm1.SpeedButton21Click(Sender: TObject);
begin
edit1.Text:=floattostr(sqrt(strtoint(edit1.text))) ;
end;
 
procedure TForm1.SpeedButton22Click(Sender: TObject);
var
a:integer;
begin
a:=strtoint(edit1.text);
edit1.text:=floattostr(s1*a/100);
end;
 
procedure TForm1.SpeedButton23Click(Sender: TObject);
begin
s2:=strtoint(edit1.text);
if islem='+' then edit1.Text:=floattostr(s1+s2);
if islem='-' then edit1.Text:=floattostr(s1-s2);
if islem='*' then edit1.Text:=floattostr(s1*s2);
if islem='/' then edit1.Text:=floattostr(s1/s2);
end;
 
procedure TForm1.SpeedButton16Click(Sender: TObject);
begin
if edit1.text='+' then exit;
s1:=strtofloat(edit1.text);
islem:=(sender as tspeedbutton) .caption;
edit1.Text:='';
end;
 
procedure TForm1.SpeedButton17Click(Sender: TObject);
begin
if edit1.text='-' then exit;
s1:=strtofloat(edit1.text);
islem:=(sender as tspeedbutton) .caption;
edit1.Text:='';
end;
 
procedure TForm1.SpeedButton18Click(Sender: TObject);
begin
if edit1.text='*' then exit;
s1:=strtofloat(edit1.text);
islem:=(sender as tspeedbutton) .caption;
edit1.Text:='';
end;
 
procedure TForm1.SpeedButton19Click(Sender: TObject);
begin
if edit1.text='/' then exit;
s1:=strtofloat(edit1.text);
islem:=(sender as tspeedbutton) .caption;
edit1.Text:='';
end;
 
end.