PROGRAM DELPHI UNTUK KONVERSI SUHU

procedure TForm1.ButtonKonversikanClick(Sender: TObject);
var c,r,f,k:real;
begin
  c:=StrToFloat(EditC.text);
  r:=c/5*4;
  f:=c/5*9+32;
  k:=c+273;
  EditF.Text:=FloatToStr(f);
  EditR.Text:=FloatToStr(r);
  EditK.Text:=FloatToStr(k);
end;

procedure TForm1.ButtonHapusClick(Sender: TObject);
begin
  EditC.Clear;
  EditF.Clear;
  EditR.Clear;
  EditK.Clear;
end;

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

end.

Terimakasih, Semoga Bermanfaat,,

WENDA ALIFULLOH, Bandung 2013..