Program Konversi Suhu

Writing Pascal language
———————————-
program suhu;
uses crt;
var c,f,r:real;

begin
clrscr;
write(‘Masukkan suhu Celcius : ‘);
readln(c);
f:= (9/5*c)+32;
writeln(‘Suhu fahrenheitnya adalah = ‘,f:3:1);
writeln(”);
write(‘Masukkan suhu Reamur : ‘);
readln(r);
c:= 4/5*r;
writeln(‘Suhu Celciusnya adalah = ‘,c:3:1);
readkey;
end.
————————————————

Program ini Berfungsi Untuk Mengkonversi Suhu