Senin, 24 Oktober 2011

program menghitung luas lingkaran di DELPHI7

PROGRAM MENGHITUNG LUAS LINGKARAN
Jalankan delphi
Setelah muncul form baru pada halaman delphi maka tambahkah icon button1, edit1, edit2, label1, label2, label3 pada halaman form1. Atur seperti gambar di bawah ini.
*      Aturkan properti pada object inspector sebagai berikut:
Button1
caption
hitung

Label1
caption
Jari-jari
Label2
caption
Luas lingkaran
Label3
caption
Menghitung luas lingkaran

Pada edit di kosong kan saja
Maka tampilan form seperti di bawah ini



*      Klik 2 kali pada pada button1 (hitung), setelah muncul halaman kode editor Tuliskan kan kode seperti di bawah ini
procedure luaslingkaran(var jarijari, luas : real);
begin
luas:=3.14*jarijari*jarijari;
end;

procedure TForm1.Button1Click(Sender: TObject);
var jarijari, luas : real;
begin
jarijari := strtoint(edit1.Text);
luaslingkaran(jarijari, luas);

edit2.Text:=floattostr(luas);
end;

end.


UNTUK MENJALANKAN NYA KLIK RUN ATAU F9, JIKA BERHASIL MAKA AKAN MUNCUL SEPERTIGAMBAR DI BAWAH INI.




SELAMAT MENCOBA