Senin, 26 Maret 2012

Program Menghitung Luas Lingkaran Menggunakan Delphi

Kali ini Penulis ingin membahas gimana program luas lingkaran menggunakan bahasa Delphi.
Langsung Ke listing nya ya!!!


procedure TForm1.Button1Click(Sender: TObject);
var pi,r,hasil:real;
begin
pi:=3.14;
r:=strtofloat(edit1.Text);
hasil:=pi*r*r;
edit2.Text:=floattostr(hasil);
end;

end.

Hasil Setelah Di Running!!!



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



Tidak ada komentar:

Poskan Komentar

Labels