Luas Lingkaran , Delphi

Kali ini saya akan share sedikit aplikasi sederhana, yaitu membuat aplikasi penghitungan luas lingkaran,.

komponen yang dibutuhkan adalah, label untuk pembarian judul dan hasil output proses, edit box untuk memasukkan input nilai yang diproses radio button untuk memberikan aksi yang dijalankan

berikut script yang dijalankan pada radio button

const

  phi=3.14;

var

   jari:integer;

   luas:real;

begin

  jari:=strtoint(Edit1.Text);

  luas:=phi*jari*jari;

  label3.Caption:='Luas Lingkaran '+floattostr(luas)+' cm';

end;

end.

jika ingin langsung mendownload aplikasi di atas silahkan klik link di bawah ini, jangan lupa winrarnya saya password ya, password bisa didapatkan pada gambar di bawah ini,..