Program KonvensiSuhu;
uses wincrt;
var
celcius :byte;
reamur,fahrenheit:real;
begin
clrscr;
write('Input Derajat Celcius=');readln(celcius);
fahrenheit:=(9/5)*celcius+32;
reamur:=(4/5)*celcius;
writeln('Derajat Fahrenheit=',fahrenheit:6:2);
writeln('Derajat Reamur=',reamur:6:2);
readln;
end.
Tidak ada komentar:
Posting Komentar