berikut adalah listing program yang dapat mengkonversi dari celcius ke fahrenheit dan ke reaumur.

program suhu;
uses crt;
var celcius : integer;
    reamur,fahrenhait : real;
begin
     clrscr;
     writeln('Program konversi suhu');
     writeln('---------------------');
     write('Suhu dalam celcius : ');readln(celcius);
     reamur:=4/5*celcius;
     fahrenhait:=9/5*celcius+32;
     writeln('Suhu dalam reamur=',reamur:5:2);
     writeln('Suhu dalam fahrenhait= ',fahrenhait:5:2);
     readln;
end.

...
Continue reading ...

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...
Continue reading ...