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