Jumat, 09 Januari 2015

Latihan 2: Program Konvensi Suhu

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