Pascal : Programm Konversi Suhu

Hmmm...Langsung aja ya tanpa banyak cincong, kita mulai aja :D

Program KonversiSuhu ;

{ mengkonversikan celcius ke fahrenhit dan Kelvin }

uses wincrt ;

var

celcius : integer ;

fahrenhit : real ;

kelvin : integer ;

begin

write ( 'masukkan derajat celcius =' ) ; readln (celcius) ;

writeln ('//////////////////////////////////////////////////') ;

fahrenhit := 1.8 * celcius + 32 ;

kelvin := 273 + celcius ;

writeln ( 'fahrenhit =' , fahrenhit:0:2) ;

writeln ('//////////////////////////////////////////////////') ;

writeln ( 'kelvin =' , kelvin) ;

end.

NB : Program ini dibuat dengan menggunakan Turbo Pascal, jika anda menggunakan free pascal silahkan hapus syntax 'uses wincrt ;' nya