Page 98 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN
P. 98
Jadi, program TAHUN_KABISAT dalam bahasa pascal adalah sebagai
berikut :
program TAHUN_KABISAT;
(* menentukan apakah suatu tahun merupan tahun kabisat atau
bukan kabisat *)
uses wincrt;
(* DEKLARASI *)
var
Tahun : integer;
(* DESKRIPSI *)
begin
write('TAHUN ');read(Tahun);
if Tahun mod 4 = 0 then
write(' adalah tahun kabisat')
else
write(' bukan tahun kabisat')
end.
end.
Tiga Kasus atau Lebih
Masalah yang mempunyai tiga buah kasus atau lebih tetap
dapat dianalisis dengan struktur IF-THEN-ELSE sebagaimana halnya
pada masalah dengan dua kasus.
Tiga Kasus : Empat Kasus :
if kondisi1 then if kondisi1 then
aksi1 aksi1
else else
if kondisi2 then if kondisi2 then
aksi2 aksi2
else else
if kondisi3 if kondisi3 then
aksi3 aksi3
endif else
endif if kondisi 4
endif aksi4
endif
endif
endif
endif
