28 Desember 2010

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

Share on Facebook
Share on Twitter
Share on Google+

Related : Pascal : Programm Konversi Suhu

0 Komentar:

Posting Komentar

Terimakasih telah meninggalkan Komentar di Didit Blog | Silahkan berkomentar dengan bebas, tidak mengandung SARA | komentar dengan link HIDUP akan dihapus | Terimakasih ^_^