Posts Tagged ‘farenheit’

PROGRAM KONVERSI SUHU DALAM PASCAL

{ Desember 11, 2009 @ 12:59 pm } · { tugas prokom1 (pascal) }
{ Tags: , , , , , } · { Tinggalkan sebuah Komentar }

program konversi_suhu;

uses wincrt;

var

C,R,F,K:real;

lagi:char;

begin

lagi:=’Y’;

while lagi=’Y’ do

begin

writeln(‘PROGRAM KONVERSI SUHU’);

writeln(‘———————‘);

writeln;

write(‘Nilai suhu dalam Celcius: ‘);

readln(C);

writeln;

R:=3/4*C;

F:=(5/4*C)+32;

K:=C+273;

writeln(‘Nilai suhu dalam Reamur: ‘,R:5:2);

writeln(‘Nilai suhu dalam Farenhaet: ‘,F:5:2);

writeln(‘Nilai suhu dalam Kelvin: ‘,K:5:2);

writeln;

write(‘Menghitung lagi(Y/T)? ‘);

readln(lagi);

end;

end.