Program Hitung Segitiga Delphi

Menghitung Segitiga 


Program berikut ini mempergunakan rumus matematika untuk menghitung luas sebuah segitiga ( 0.5 X alas X tinggi ). Dari rumus tersebut kita bisa membuat sebuah program sederhana.
Langka-langka untuk membuat programnya adalah sebagai berikut :
1. Buatlah sebuah Form seperti yang terlihat pada gambar 1 dibawa ini.

Gambar 1. Form Tampilan

2. Kemudian Doble Click pada tombol Proses dan ketikan Code dibawah ini pada bidang Code editor seperti yang terlihat pada gambar 2 .

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;

Gambar 2. Bidang Code Editor

3. Setelah selesai memasuakan code tersebut pada bidang code editor, kemudia anda jalankan program tersebut dengan cara clik tombol Run yang terdapat pada panel bagian kiri atas yang berwana hijau. Atau dengan menekan f9 pada keyboard.


sumber :mawix.blogspot.com