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.
2 komentar
Write komentarbro, mau tanya
Replymaksudnya writeln('--------------'); & pil:integer; itu apa ya??
writeln('-----------')
Replyfungsinya untuk mencetak yang ada di dalam tanda kutip yaitu ----------- maksudnya sih garis aja buat lebih rapi (tampilan semata), masbro juga bisa ganti misal jadi +++++ atau ====== selama itu masih di dalam tanda kutip..
pil:integer;
maksudnya untuk mendeklarasikan bahwa variabel pil adalah sebuah variabel dengan tipe data integer.
=========================
join aja di cicitcuit.us
disana ada banyak tutorial tentang pemrograman
rata2 anak gundar semua membernya, termasuk saya disitu :D
bisa tanya2 sama masbro/mbasis disana
COMMENT BOX EmoticonEmoticon