program suhu;
uses crt;
var C,F,R,K:real;
begin
write ('Masukkan suhu dalam Celcius: ');
read(C);
F:=(9/5*C+32);
writeln('Suhu dalam Fahrenheit: ',F:5:2);
R:=(4/5*C);
writeln('Suhu dalam Reamur: ',R:5:2);
K:=(C+273);
writeln('Suhu dalam Kelvin: ',K:5:2);
readln(F,R,K);
end.
Comments
Post a Comment