Olimpiade Sains Kota (OSK) 2007 - Komputer , Nomor 39 - 41
Deskripsi untuk soal nomor 39 - 41
function apaitu(a: integer; b: integer): integer;
begin
count := count + 1;
if (a > b) then
apaitu := apaitu(b, a)
else if (a = 0) then
apaitu := b
else
apaitu := apaitu (b mod a, a)
end;
39
Jika fungsi tsb dipanggil dengan “writeln(apaitu(1001, 1331));” berapakah yang dicetaknya?
(A) 2
(B) 7
(C) 13
(D) 3
(E) 11
40
Jika fungsi tsb dipanggil dengan “writeln(apaitu(1000, 5040));” berapakah yang dicetaknya?
(A) 10
(B) 100
(C) 50
(D) 40
(E) 5
41
Jika variabel count bersifat global dan diinisialisasi 0, dan fungsi tsb dipanggil dengan perintah “writeln(apaitu(1234, 277));” berapakah harga count setelah pemanggilan itu?
(A) 1
(B) 5
(C) 9
(D) 10
(E) 13
