program konversi_suhu;
uses crt;
var
c,f,k,r : real;
pil : integer;
bagin
clrscr;
writeln ('PROGRAM KONVERSI SUHU');
Writeln ('---------------------------------------');
writeln ('Pilih menu berikut dengan menekan tombol [1..4]');
writeln ('[1] Konversi Celcius ke Farenheit');
writeln ('[2] Konversi Celcius ke Reamur');
writeln ('[3] Konversi Celcius ke Kelvin');
writeln ('[4] Keluar program');
writeln;
Write ('Masukkan pilihan Anda : '); readln(pil);
case pil of
1: begin
writeln ('Konversi Celcius ke Farenheit');
write ('Masukkan Suhu Celcius: '); readln(c);
f := c * 1.8 + 32;
writeln (c:5:2,' Celcius = ',f:5:2,' Farenheit');
writeln;
end;
2: begin
writeln ('Konversi Celcius ke Reamur');
write ('Masukkan Suhu Celcius :'); readln (c);
writeln;
r := c * 0.8;
writeln (c:5:2,' Celcius = ',r:5:2,' Reamur');
writeln;
end;
3: begin
writeln ('Konversi Celcius ke Kelvin');
write ('Masukkan Suhu Celcius: '); readln(c);
k := c + 273 ;
writeln (c:5:2,' Celcius = ',k:5:2,' Kelvin');
writeln;
end;
4: begin
writeln ('Keluar Program');
writeln;
end;
end;
readln;
end.

uses crt;
var
c,f,k,r : real;
pil : integer;
bagin
clrscr;
writeln ('PROGRAM KONVERSI SUHU');
Writeln ('---------------------------------------');
writeln ('Pilih menu berikut dengan menekan tombol [1..4]');
writeln ('[1] Konversi Celcius ke Farenheit');
writeln ('[2] Konversi Celcius ke Reamur');
writeln ('[3] Konversi Celcius ke Kelvin');
writeln ('[4] Keluar program');
writeln;
Write ('Masukkan pilihan Anda : '); readln(pil);
case pil of
1: begin
writeln ('Konversi Celcius ke Farenheit');
write ('Masukkan Suhu Celcius: '); readln(c);
f := c * 1.8 + 32;
writeln (c:5:2,' Celcius = ',f:5:2,' Farenheit');
writeln;
end;
2: begin
writeln ('Konversi Celcius ke Reamur');
write ('Masukkan Suhu Celcius :'); readln (c);
writeln;
r := c * 0.8;
writeln (c:5:2,' Celcius = ',r:5:2,' Reamur');
writeln;
end;
3: begin
writeln ('Konversi Celcius ke Kelvin');
write ('Masukkan Suhu Celcius: '); readln(c);
k := c + 273 ;
writeln (c:5:2,' Celcius = ',k:5:2,' Kelvin');
writeln;
end;
4: begin
writeln ('Keluar Program');
writeln;
end;
end;
readln;
end.



