PROGRAM DELPHI UNTUK LUAS DAN KELILING LINGKARAN

procedure TFormLingkaran.ButtonHitungClick(Sender: TObject);
const
  pi=3.14;
var
  r,K,L:real;
begin
  r:=StrToFloat(EditJari_Jari.Text);
  K:=(2*pi*r);
  L:=(pi*r*r);
  EditKeliling.Text:=FloatToStr(K);
  EditLuas.Text:=FloatToStr(L);
end;

procedure TFormLingkaran.ButtonHapusClick(Sender: TObject);
begin
  EditJari_Jari.Text:=' ';
  EditLuas.Text:=' ';
  EditKeliling.Text:=' ';
end;

procedure TFormLingkaran.ButtonSelesaiClick(Sender: TObject);
begin
  Application.Terminate;
end;

end.

semoga berguna..

Wenda Alifulloh, Bandung 2013.