Kalkulator

{
Button1 = tambah
Button2 = kurang
Button3 = bagi
Button4 = Kali

}


procedure TForm2.Button1Click(Sender: TObject);
var a,b,c : real ;
begin
a := StrToFloat(Edit1.Text) ;
b := StrToFloat(Edit2.Text) ;
c := a+b ;
Edit3.Text := FloatToStr(c) ;

end;

procedure TForm2.Button2Click(Sender: TObject);
var a,b,c : real ;
begin
a := StrToFloat(Edit1.Text) ;
b := StrToFloat(Edit2.Text) ;
c := a-b ;
Edit3.Text := FloatToStr(c) ;

end;

procedure TForm2.Button3Click(Sender: TObject);
var a,b,c : real ;
begin
a := StrToFloat(Edit1.Text) ;
b := StrToFloat(Edit2.Text) ;
c := a/b ;
Edit3.Text := FloatToStr(c) ;

end;

procedure TForm2.Button4Click(Sender: TObject);
var a,b,c : real ;
begin
a := StrToFloat(Edit1.Text) ;
b := StrToFloat(Edit2.Text) ;
c := a*b ;
Edit3.Text := FloatToStr(c) ;

end;