KONVERSI SUHU DALAM PASCAL

Ini Adalah Coding Program Konversi Suhu untuk mengetahui pengkonversian dari suhu derajat ke suhu lainnya

Program KonversiSuhu;

uses crt;

var

     celcius, reamur, fahrenheit, kelvin : real;

begin

clrscr;

     write(’Masukan besarnya suhu dalam derajat : ‘);readln(celcius);

     reamur:=((4/5)*celcius);

     fahrenheit:=(32+(9/5)*celcius);

     kelvin:=(celcius+273);


     writeln(’Banyaknya Suhu Dalam Reamur = ‘,reamur:5:1);

     writeln(’Banyaknya Suhu Dalam Fahrenheit = ‘,fahrenheit:5:1);

     writeln(’Banyaknya Suhu Dalam Kelvin = ‘,kelvin:5:0);

end.