Page 100 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN
P. 100
program WUJUD_AIR;
{ menentukan wujud air : padat, cair, atau gas, bergantung pada suhunya }
uses wincrt;
(* DEKLARASI *)
var
T : real; { suhu air, dalam derajat celcius }
(* DESKRIPSI *)
begin
write('suhu ');read(T);
write('adalah ');
if T <= 0 then
write('padat') { kasus 1 }
else
if ( T > 0) and ( T < 100 ) then
write('cair') { kasus 2 }
else
if T >= 100 then
write('gas atau uap'); { kasus 3 }
end.
end.
end.
7.3 Struktur Case - of dan Case - of - Else
Tidak semua bahasa pemrograman menyediakan struktur CASE
(misalnya Bahasa Fortran). Bahasa pascal menyediakan struktur ini.
Jika bahasa pemrograman tidak yang ekivalen.
Contoh analisis :
Buatlah algoritma dan program yang membaca angka bulan dan
tahun, lalu menuliskan jumlah hari dalam bulan tersebut. Misalnya
jika dibaca bulan 8 (agustus), maka jumlah harinya adalah 31.
Penyelesaian
Kita harus mengidentifikasi bulan-bulan dan jumlah harinya sebagai
berikut :
Bulan Jumlah hari
1, 3, 5, 7, 8, 10, 31
12
4, 6, 9, 11 30
2 29 (jika tahun kabisat), 28 (jika bukan
kabisat)
