Aplikasi Pengubah Suhu Celcius Ke Fahrenheit menggunakan Repeat

Listing Program

procedure TForm1.BubahClick(Sender: TObject);
var
  a,b,c,d,h:real;

  begin
  a:=strtofloat(Awal.text);
  b:=strtofloat(Akhir.text);
  c:=strtofloat(Penambahan.text);

  repeat
  d:=d+c;
  h:=(9/5*d)+32;
  Awal.Text:=(floattostr(a));
  Akhir.Text:=(floattostr(b));
  Celcius.Items.add(floattostr(d));
  Fahrenheit.Items.add(floattostr(h));
  Penambahan.SetFocus;
  until d=b;

end;

procedure TForm1.BcloseClick(Sender: TObject);
begin
if (application.MessageBox('Keluar Kah?','Informasi',MB_YESNO)= IDYES)then
close
end;

end.

Hasil Jadi Program dapat di download disini

Tinggalkan Kritik Dan Saran Dikomentar!

Categories: Program Delphi