Olimpiade Sains Kota (OSK) 2009 - Komputer, Nomor 41–47

Jika setelah prosedur adukaduk dipangil sebanyak dua kali kemudian prosedur cetak(9) dipanggil, maka keluaran yang dicetak adalah:

A. 5 9 10 2 8 1 3 4 6 7

B. 2 5 1 8 4 3 7 6 9 10

C. 5 2 9 1 8 4 3 7 6 10

D. 9 10 5 7 4 3 7 6 2 1

E. 9 5 10 2 8 4 3 7 6 1

Jika pemanggilan adukaduk dilakukan n kali, maka tepat pada harga n berapakah X[0] diisi harga 1 untuk yang pertama kali?

A. 7

B. 5

C. 9

D. 4

E. 8

Setelah pemanggilan adukaduk sebanyak 20 kali berapakah harga variable ctr?

A. 200

B. 100

C. 34

D. 25

E. 10

Jika prosedur adukaduk diganti isinya sebagai berikut

procedure adukaduk;
var i, j, tmp: integer;
begin
 for i := 0 to 8 do begin
 tmp := i;
 for j := i+1 to 9 do
 if (X[tmp] > X[j]) then tmp := j;
 if (X[i] > X[tmp]) then tx(i,tmp);
 end;
end;

Berapakah harga ctr setelah pemanggilan adukaduk 1 kali?

A. 4

B. 7

C. 9

D. 5

E. 8

Jika fungsi cetak(i: integer) ditulis ulang sebagai berikut.

procedure cetak(i: integer);
begin
 if (i>=0) then
 begin write(X[i],? „);cetak(i-1) end;
end;

keluaran hasil dari pemanggilan cetak(9) adalah:

A. 1 6 7 3 4 8 3 10 5

B. 2 5 1 8 4 3 7 6 9 10

C. 6 7 3 4 8 1 10 2 5

D. 5 9 10 2 8 1 3 4 6 7

E. 10 9 8 7 6 5 4 3 2 1

Jika prosedur adukaduk diganti isinya dengan yang berikut ini serta dilengkapi satu procedure tambahan:

procedure pingpong(var left, right: integer);
var tmp: integer;
begin
 tmp := X[(left+right) div 2];
 while left < right do begin
 while X[left] < tmp do left := left + 1;
 while tmp < X[right] do right := right – 1;
 tx(left, right);
 end;
end;

procedure adukaduk(l,r: integer);
var l1, r1: integer;
begin
 if (l < r) then begin
   l1 := l; r1 := r;
   pingpong(l1, r1);
   adukaduk(l, r1);
   adukaduk(l1, r);
 end;
end;

Pemanggilan fungsi adukaduk(0,9) akan mengakibatkan isi array X:

A. Terurut menurun

B. Teracak (tidak berpola)

C. Tetap seperti semula

D. Semua isinya berharga sama

E. Tidak berbeda hasilnya jika versi adukaduk yang semula dipanggil 6 kali

Mengacu pada pertanyaan no 46 sebelumnya, pada pemanggilan pingpong(left, right) akan terjadi peristiwa:

A. Membagi array menjadi dua segmen kiri dan kanan dan setiap segmen data menjadi terurut menaik..

B. Seluruh elemen array antara left dan right menjadi terurut

C. Membagi array menjadi dua segmen kiri dan kanan dan setiap elemen array di segmen kiri lebih kecil dari segmen yang dikanan

D. Membagi array menjadi dua segmen kiri dan kanan dan data di kiri dipindah kekanan, dan dari kanan ke kiri.

E. Data dalam array hanya teracak tanpa pola.