Konversi Suhu Dengan Turbo Pascal

uses crt;
var
   cel,fah,rea: real;

begin
     clrscr;
     writeln('Konversi Suhu');
     writeln('-------------');
     write('Suhu Celcius: ');readln(cel);

     fah := 9/5+cel+32;
     rea := 4/5*cel;

     writeln('');
     writeln('Hasil Konversi');
     writeln('--------------');
     writeln('Suhu Fahrenheit: ',fah:0:1);
     writeln('Suhu Reamur: ',rea:0:1);
     readln;
end.

Hasilnya sebagai berikut.

Tweet