PROGRAM LUAS SEGITIGA DELPHI 7

Kali ini saya akan memberikan ilmu yang menurut saya baru untuk di pelajari yaitu adalah pemprograman pada delphi. Kali ini saya akan memberikan program untuk menhitung luas segitiga yang umum,
dengan rumus :
Luas Segitiga = (a*t)/2
langsung kita mulai saja.





awalnya kita membuat form dulu pada delphi seperti gambar di bawah ini :

Setelah itu masukan kodingan kedalam tombol button1 atau yang tertera pada gambar adalah Hasil.
----------------------------------------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var alas, tinggi,hasil:real;
begin
alas:=strtofloat(edit1.text);
tinggi:=strtofloat(edit2.text);
hasil:=alas*tinggi/2;
edit3.text:=floattostr(hasil);

end;

end.

------------------------------------------------------------------------------------------------------------------------

setelah itu running program.

selamat mencoba =)