BORLAN DHELPI - membuat Program Menghitung Luas Segitiga

Dalam rumus matematika untuk menghitung luas sebuah segitiga ( 0.5 X alas X tinggi ). Dan akan diterapkan pada BORLAN DHELPI Dan langkah pembuatanya : 1.buat label nama program 2.label “alas segitiga” dan text editnya. 3.label “tinggi segitiga” dan text editnya. 4.button proses 5.label “hasil” dan text editnya. Yang hasilnya seperti ini :

lalu buatlah kodingnya dengan seperti ini : procedure TForm1.Button1Click(Sender: TObject); var A,T,L:real; begin A:=STRTOFLOAT(EDIT1.TEXT); T:=STRTOFLOAT(EDIT2.TEXT); L:=0.5*A*T; EDIT3.Text:=FLOATTOSTR(L); end;

Lalu klik menu RUN atau bisa juga klik tombol F9 pada keyboard. Maka akan jadi program seperti ini

Dan bila dimasukan bilangan akan jadi seperti ini

Seperti itu lah Program sederhana penghitung luas segitiga.