luas lingkaran dengan delphi - Nanang Blog

Gue minggu kemaren dapet tugas Dhelphi untuk membuat program menghitung "Luas dan Keliling Lingkaran". Awalnya sedikit membingungkan karena memang baru berkenalan. Tapi syukurlah gue ada sedikit dasar Pemprograman Pascal. Karena memang codingnya gak jauh beda antara Pascal dengan Dhelphi. 

Untuk lebih jelasnya coba liat kodingnya dibawah ini : 

gb. sebelum input data

gbr. setelah input data

Berikut adalah coding yang ada pada button "HITUNG"

procedure TForm1.Button1Click(Sender: TObject);

begin

edit2.Text:=floattostr(3.14*strtofloat(edit1.Text)*strtofloat(edit1.Text));

edit3.text:=floattostr(2*3.14*strtofloat(edit1.Text));

end;

Dan ini adalah coding yang ada pada button "KELUAR"

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.

Download aja disini. .