Berikut adalah program konversi suhu dengan program pascal :
Program konversisuhu;
uses crt;
var cel,fr,re:real;
begin
clrscr;
writeln('Program Konversi Suhu');
writeln('-----------------------------------');
writeln;
write(' Suhu dalam Celsius : ');
readln(cel);
writeln;
writeln('Hasil Konversi');
writeln('------------------------------------');
fr:=((9/5)*cel)+32;
re:=(4/5)*cel;
writeln(' Suhu dalam Farenheit : ',fr:3:0,' øF');
writeln(' Suhu dalam Reamur : ',re:3:0,' øR');
readln;
end.
ReadMore
Program konversisuhu;
uses crt;
var cel,fr,re:real;
begin
clrscr;
writeln('Program Konversi Suhu');
writeln('-----------------------------------');
writeln;
write(' Suhu dalam Celsius : ');
readln(cel);
writeln;
writeln('Hasil Konversi');
writeln('------------------------------------');
fr:=((9/5)*cel)+32;
re:=(4/5)*cel;
writeln(' Suhu dalam Farenheit : ',fr:3:0,' øF');
writeln(' Suhu dalam Reamur : ',re:3:0,' øR');
readln;
end.