Tulisan Bahasa Inggris Softskill 14 Contoh Program MENCARI LUAS SEGITIGA menggunakan DELPHI 7

Contoh Program MENCARI LUAS SEGITIGA menggunakan DELPHI 7

procedure TForm1.ZIBOT1Click(Sender: TObject);

var

   A,T,L:real;

begin

A:=strtofloat(edit1.Text);

T:=strtofloat(edit2.Text);

L:=A*T/2;

edit3.Text:=floattostr(L)

end;

procedure TForm1.ZIBOT2Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit1.SetFocus;

end;

procedure TForm1.ZIBOT3Click(Sender: TObject);

begin

showmessage('terimakasi telah berkunjung di zainal777.blogspot.com);

close;

end;