Program Pascal

Function ABC(k : integer);

var i,j : integer;

begin

j:=1;

for i:=l to k do

j:=j*2;

ABC:=j;

end;

begin

writeln(ABC(4));

end.

Apa keluaran program di atas ?

a.       16

b.      8

c.       4

d.      2

e.       program tidak dapat dijalankan

Jawab:

e. program tidak dapat dijalankan

Pembahasan:

Soal ini merupakan soal jebakan. Perhatikan bahwa deklarasi dari sebuah function adalah:

Function namafunction(parameter):tipe;

Sebuah function harus mempunyai nilai kembali. Namun pada soal tidak terdapat nilai kembali.