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!!!!
Silahkan Tinggalkan Komentar Anda!!!!
thanks,,,:)
BalasHapusini sangat bermanfaat
bgaimana kalau kita bikin 2 program menghiting luas persegi panjang dan luas segitiga tetapi cuman 1 proses
BalasHapusmohon tanggapannya soalnya ada tugas kampus . . .
Tq
bermanfaat gan ^^ , mampir juga ya gan disini http://blog.firzil.co.id/
BalasHapusAku coba kok ada eror nya ya??
BalasHapusbangke ngk jln
BalasHapus