Membuat Program Hitung Luas dan Keliling Lingkaran di Delphi 7

Tampilan Program

Selamat malam, pada kesempatan kali ini saya akan membagikan ilmu baru yang saya dapatkan dari perkuliahan. Berikut adalah tutorial membuat program penghitung luas dan keliling lingkaran pada Delphi 7.

1. Buat layout seperti diatas.

    - 3 Label, ganti caption menjadi: Jari-jari, Luas, Keliling

    - 3 Edit, kosongkan captionnya: Edit1, Edit2, Edit3 (default)

    - 1 Button, ganti caption menjadi: Hitung

2. Klik dua kali pada button Hitung, lalu tambahkan kode berikut sebelum begin.

    var

    k,l,r:real;

3. Tambahkan kode berikut di dalam begin.

    r:=strtofloat(edit1.text);

    k:=2*pi*r;

    l:=pi*r*r;

    edit1.text:=floattostr(r);

    edit2.text:=floattostr(l);

    edit3.text:=floattostr(k);

4. Run program dengan menekan F9 atau lewat menu Run -> Run.

Sekian. Semoga Bermanfaat.