Program Pascal

Bagaimana keluaran program berikut ini?

Var

I:integer;

Begin

I:=2;

Case I of

1,3,5,7,9:writeln(‘Ganjil’);

2:writeln(‘Prima genap’);

0..10:writeln(‘Normal’);

else writeln(‘Tidak normal’);

end;

end;

a. Prima genap

b. Normal

c. Prima genap

Normal

d.  Normal

Prima genap

e.  Prima genap

            Tidak normal

Jawab:

a. Prima genap

Pembahasan :

Struktur kendali case akan segera keluar untuk menjalanakan statement berikutnya setelah menemukan nilai yang tepat.