berikut merupakan suhu converter, namun disini menggunakan rentangan convertan sesuai inputan. namun saya hanya menampilkan celcius ke farenheit saja.



program tabelsuhu;
var f:real;
c1,c2,i, j: integer;
begin
write('masukkan suhu celcius awal : ');readln(c1);
write('masukkan suhu celcius akhir : '); readln(c2);
writeln('tabel conversi suhu');
writeln('-------------------------');
writeln('no   celcius  fahrenheit');
writeln('-------------------------');

j := 0;
for i := c1 to c2 do
begin
j := j+1;
f:= 1.8*i+32;
if j > 9 then
begin
writeln(j,'   ',i,'    ',f:10:3);
end
else
begin
writeln(j,'    ',i,'     ',f:10:3);
end;
end;
writeln('------------------------');
readln;
end.