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!!!
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!!!!
Silahkan Tinggalkan Komentar Anda!!!!
Tidak ada komentar:
Posting Komentar