Senin, 26 Maret 2012

Program Menghitung Luas Segitiga Menggunakan Delphi


Langsung aja deh ne listing programnya!!!

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.

Hasil Running nya!!!

Terima Kasih Atas Kunjungan Anda ^_^
Lebih dan Kurang Penulis Mohon Maaf
Silahkan Tinggalkan Komentar Anda!!!!


5 komentar:

  1. thanks,,,:)
    ini sangat bermanfaat

    BalasHapus
  2. bgaimana kalau kita bikin 2 program menghiting luas persegi panjang dan luas segitiga tetapi cuman 1 proses
    mohon tanggapannya soalnya ada tugas kampus . . .
    Tq

    BalasHapus
  3. bermanfaat gan ^^ , mampir juga ya gan disini http://blog.firzil.co.id/

    BalasHapus
  4. Aku coba kok ada eror nya ya??

    BalasHapus

Labels