Program Pascal

Perhatikan Program Berikut Ini :

var

h,i,j:integer;

begin

h:=0;

for j:=1 to 10 do

inc(h);i:=1;

j:=0;

repeat

inc(i);

inc(j);

until i=10;

if h=j then writeln('GOLD')

else writeln('SILVER');

end.

Apa keluaran program di atas

a.       GOLD

b.      SILVER

c.       GOLD

SILVER

d.      SILVER

GOLD

e.       tidak ada keluaran

Jawab:

b. SILVER

Pembahasan:

h:=0;

for j:=1 to 10 do

inc(h);i:=1;

j:=0;

Saat selesai mengeksekusi statement di atas, maka h akan bernilai 10, i bernilai 1 dan j bernilai 0.

Selanjutnya program akan mengeksekusi statement:

repeat

inc(i);

inc(j);

until i=10;

Karena nilai i sebelumnya adalah 1, maka statement inc(i) dan inc(j) akan dijalankan sebanyak 9 kali, sehingga setelah keluar dari perulangan repeat until, nilai i akan bernilai 10 dan j bernilai 9.

if h=j then writeln('GOLD')

else writeln('SILVER');

Statement if di atas akan menjalankan statement sesudah else (karena nilai h tidak sama dengan j).