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;beginwrite('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 dobeginj := j+1;f:= 1.8*i+32;if j > 9 thenbeginwriteln(j,' ',i,' ',f:10:3);endelsebeginwriteln(j,' ',i,' ',f:10:3);end;end;writeln('------------------------');readln;end.