Konversi Suhu

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.

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest

wildan_blitz

Artikel Terkait

• Display DeviceDisplay Device adalah sebuah perangkat output untuk penyajian informasi dalam bentuk visual.Menurut bentuknya, display
• Pertambahan & PerkalianMatkul : Algoritma & Pemrograman 2ANama : Wildan Agissa RusadiNPM : 12109394Kelas : 1KA22Pertambahan & Perka
• Tugas Pascal 1 - 5FOR ... DOWNTO ... DOuses crt;vara: integer;beginclrscr;for a := 5 downto 1 dobeginwriteln (a);end;readln;end.=========
• program ContohForwardprogram ContohForward;uses crt;procedure B(x: integer);forward;procedure A(x: integer);begin if (x>0) then begin w