listing program delphi

I.            Program kalkulator primitif

procedure TForm1.TambahClick(Sender: TObject);

var nilai1,nilai2,hasil: real;

begin

nilai1:=strtofloat(edit1.Text);

nilai2:=strtofloat(edit2.text);

hasil:=nilai1+nilai2;

edit3.Text:=floattostr(hasil);

end;

procedure TForm1.KurangClick(Sender: TObject);

var nilai1,nilai2,hasil: real;

begin

nilai1:=strtofloat(edit1.Text);

nilai2:=strtofloat(edit2.text);

hasil:=nilai1-nilai2;

edit3.Text:=floattostr(hasil);

end;

procedure TForm1.KaliClick(Sender: TObject);

var nilai1,nilai2,hasil: real;

begin

nilai1:=strtofloat(edit1.Text);

nilai2:=strtofloat(edit2.text);

hasil:=nilai1*nilai2;

edit3.Text:=floattostr(hasil);

end;

procedure TForm1.bagiClick(Sender: TObject);

var nilai1,nilai2,hasil: real;

begin

nilai1:=strtofloat(edit1.Text);

nilai2:=strtofloat(edit2.text);

hasil:=nilai1/nilai2;

edit3.Text:=floattostr(hasil);

end;

procedure TForm1.bersihClick(Sender: TObject);

begin

edit1.clear;

edit2.clear;

edit3.clear;

end;

procedure TForm1.keluarClick(Sender: TObject);

begin

close;

end; end.