
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)); ...