Bantu temanmu belajar dengan menambahkan soal di Kujawab. Klik disini..

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