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!