Program Konversi suhu pada Turbo Pascal

Program_Konversi_suhu;

Uses WinCrt;

var f,c,r : real;

a,ul : char;

procedure farein_celcius;

begin

  Writeln('Program Konversi Fareinheit Ke Celcius');

  Writeln('======================================');

  Writeln;

Write('Masukan Suhu dalam Farenheit: ');readln(f);

c:=5/9*(f-32);

Writeln;

Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);

end;

procedure farein_reamur;

begin

Writeln('Program Konversi Fareinheit Ke Reamur');

Writeln('=====================================');

Writeln;

Write('Masukan Suhu dalam Farenheit: ');readln(f);

r:=4/9*(f-32);

Writeln;

Writeln('Jadi Suhu Dalam Reamur Adalah: ',r:4:2);

end;

procedure celcius_farein;

begin

Writeln('Program Konversi Celcius Ke Fareinheit');

Writeln('======================================');

Writeln;

Write('Masukan Suhu dalam Celcius: ');readln(c);

f:=(9/5)*c+32;

Writeln;

Writeln('Jadi Suhu Dalam Fareinheit Adalah: ',f:4:2);

end;

procedure celcius_reamur;

begin

Writeln('Program Konversi Celcius ke Reamur');

Writeln('==================================');

Writeln;

Write('Masukan Suhu dalam Celcius: ');readln(c);

r:=(4/5)*c;

Writeln;

Writeln('Jadi Suhu Dalam Reamur Adalah: ',r:4:2);

end;

procedure reamur_celcius;

begin

writeln('Program Konversi Reamur ke Celcius');

Writeln('==================================');

Writeln;

Write('Masukan Suhu dalam Reamur: ');readln(r);

c:=(5/4)*r;

Writeln;

Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);

end;

procedure reamur_farein;

begin

writeln('Program Konversi Reamur ke Fareinheit');

Writeln('=====================================');

Writeln;

Write('Masukan Suhu dalam Reamur: ');readln(r);

f:= (9/4)*r+32;

Writeln;

Writeln('Jadi Suhu Dalam Fareinheit Adalah: ',f:4:2);

end;

begin

repeat

clrscr;

writeln ('Program konversi suhu');

writeln;

writeln ('1. fareinheit - celcius');

writeln ('2. fareinheit - reamur');

writeln ('3. celcius - reamur');

writeln ('4. celcius - fareinheit');

writeln ('5. reamur - celcius');

writeln ('6. reamur - farenheit');

writeln;

write ('pilih nomor konversi : '); read (a);

writeln;

case a of

'1' : farein_celcius;

'2' : farein_reamur;

'3' : celcius_reamur;

'4' : celcius_farein;

'5' : reamur_celcius;

'6' : reamur_farein;

else

writeln ('Nomor yang anda masukkan salah');

end;

Writeln;Writeln;

Write('Mau Coba Lagi [Y/T]: ');Readln(ul);

Until Upcase(ul) = 'Y';

End.