PROGRAM DELPHI UNTUK

procedure TForm1.ButtonKonversiClick(Sender: TObject);
var r,d,l,e,y,p:real;
begin
  r:=StrToFloat(EditR.Text);
  d:=r/11111;
  y:=r/116.82;
  l:=r/3030;
  e:=r/16666;
  p:=r/20000;
  EditD.Text:=FloatToStr(d);
  EditY.Text:=FloatToStr(y);
  EditL.Text:=FloatToStr(l);
  EditE.Text:=FloatToStr(e);
  EditP.Text:=FloatToStr(p);
end;

procedure TForm1.ButtonHapusClick(Sender: TObject);
begin
  EditR.Clear;
  EditD.Clear;
  EditL.Clear;
  EditY.Clear;
  EditE.Clear;
  EditP.Clear;
end;

procedure TForm1.ButtonSelesaiClick(Sender: TObject);
begin
  application.Terminate;
end;

end.

Semoga Berguna ya..

WENDA ALIFULLOH, Bandung 2013.