Program Pascal

Berapa keluaran program bila pemakai memberi nilai M=9?

Var C, M, J:integer;

Begin

J:=1;

write(‘M = ‘); readln(M);

For c:=5 to M do

J := j * (M-4);

Writeln(‘J = ‘,J);

End.

a.    J = 120

b.    J = -120

c.    J = 1

d.   J = 24

e.    Salah semua

Jawab:

e. Salah semua

Pembahasan:

Dari perulangan di atas, instruksi j:=j * (m-4) akan diulang sebanyak 5 kali, sehingga dapat

dirumuskan j adalah 5 x 5 x 5 x 5 = 3125.