Olimpiade Sains Kota (OSK) 2017 - Komputer, Nomor 38
Perhatikan pseudocode berikut:
procedure mystery(a:integer; b:integer;);
var m:integer;
begin
if (a <> b)
begin
writeln(‘OSK2017’);
m := (a + b) / 2;
mystery(a, m);
mystery(m, b);
end;
end;
Berapa kali teks ‘OSK2017’ dicetak pada pemanggilan mystery(0,8) ?
a. 4
b. 5
c. 6
d. 7
e. program tidak pernah berhenti
3 jawaban
Noya Aldiputera8 tahun lalu
Jika ingin mendownvote, jangan lupa juga untuk komen tentang kesalahannya. That'll be helpful for everyone, don't let that be a habit.
3
Dapat diperhatikan bahwa nilai m adalah nilai rata-rata dari a dan b.
Salah satunya cara adalah mengikuti jalannya prosedur tersebut:
- mystery(0,8), a:=0 dan b:=8, a<>b:
- 'OSK2017' dicetak;
- m:=4;
- mystery(0,4), a:=0 dan b:=4, a<>b:
- 'OSK2017' dicetak;
- m:=2;
- mystery(0,2), a:=0 dan b:=2, a<>b:
- 'OSK2017' dicetak;
- m:=1;
- mystery(0,1), a:=0 dan b:=1, a<>b:
- 'OSK2017' dicetak;
- m:=0;
- mystery(0,0), a:=0 dan b:=0, karena a=b maka prosedur tidak melakukan apa-apa.
- mystery(0,1), a:=1 dan b:=0, a<>b:
- ...
Perhatikan pada prosedur yang diboldkan. Karena prosedur tersebut memanggil dirinya sendiri dengan parameter yang sama dan dengan batasan yang tidak jelas, maka akan terjadi infinite loop pada program tersebut atau program tidak pernah berhenti.
Masuk untuk menulis jawaban