Menghitung Luas Segitiga Dengan Delhpi

Membuat Kalkulator sederhana untuk menghitung luas segitiga:

Komponen yang dipakai :
- 1 buah button(Hitung)
- 1 buah label (Hasil)
- 2 buah edit (input alas dan tinggi)

Bayangan interfacenya seperti ini:

Untuk membuatnya menjadi sebuah kalkulator masukan source kode dibawah:

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c :real;
begin
a:= strtofloat(alas.Text);
b:= strtofloat (tinggi.Text);
c:= a*b/2 ;
hasil.Caption := ('Luas Segitiga adalah :') + floattostr(c);
end;

Caranya klik 2 kali pada komponen button, setelah kode tersebut dimasukan silahkan coba dijalankan dengan menekan F9(Run).

Posted in: Kuliah,Pemp. Delphi