Soal + Pembahasan KSN-K Informatika / Komputer Tahun 2020 (36 - 40)
Pembahasan soal sebelumnya ⇒ Soal + Pembahasan KSN-K Informatika / Komputer Tahun 2020 (31 - 35)
Perhatikan potongan berikut ini:
function panas (x : integer) : integer;
var dingin : integer;
begin
dingin := 0;
while (x >= 0) do begin
dingin := dingin + 1;
if (x mod 3 == 0) then
x := x - 5
else if (x mod 5 == 0) then
x := x - 3
else x := x - 1
end;
panas := dingin
end;
Apakah kembalian dari panas(789)?
a. 262
b. 263
c. 264
d. 265
e. 266
Perhatikan potongan berikut ini :
function ayam(a, b: integer):integer;
begin
if b = 0 then ayam := 0
else if b = 1 then ayam := a
else ayam := ayam(a, b div 2) * 2 + ayam(a, b mod 2);
end;
Berapakah hasil dari pemanggilan fungsi ayam(19, 39) ?
a. 39
b. 741
c. 58
d. 750
e. 748
Perhatikan potongan berikut ini :
function kucing(tikus, keju: integer): integer;
begin
if(tikus > keju) then
kucing := 0
else
kucing := tikus + kucing(tikus * 2 + 1, keju);
end;
Berapakah hasil dari pemanggilan fungsi kucing(1, 2018) ?
a. 1
b. 1024
c. 2018
d. 2036
e. 2048
Perhatikan potongan di bawah ini :
Program santuy;
var n,a,b,ambyar,f,m:integer;
data:array[1..15] of integer=(13,17,25,28,30,41,45,56,58,64,73,76,87,91,98);
begin
n:=15; a:=1; b:=n; ambyar:=0;
while (a<=b) do
begin
M:=(a+b) div 2;
ambyar:= ambyar+data[m];
if (data[m]=f) then break
else if(data[m]<f) then
begin
a:=m+1;
end else
begin
b:=m-1;
end;
end;
writeln(ambyar);
end.
Tentukan nilai variabel ambyar yang tercetak setelah program selesai dijalankan jika f=98 :
a. 322
b. 321
c. 223
d. 254
e. 193
Perhatikan potongan program berikut ini :
function apaIni(kwak : integer) : boolean;
var i, j : integer;
begin
if (kwak * kwak = kwak) then
begin
apaIni := false;
exit;
end;
for i := 2 to (kwak - 1) do
begin
j :=1;
while j * i <= kwak do
begin
if (i * j = kwak) then
begin
apaIni := false;
exit;
end;
j := j + 1;
end
end;
apaIni := true;
end;
function apaItu(kwok : integer) : integer;
var i, kwak, kwik : integer;
begin
kwak := kwok;
kwik := 0;
for i := 0 to kwak do
begin
if (apaIni(i) = true) then
kwik := kwik + 1
end;
apaItu := kwik;
end;
Berapa nilai dari apaItu(1000)?
a. 16
b. 24
c. 25
d. 157
e. 168
File soal dan kunci jawaban bisa di download DI SINI.
List Soal + Pembahasan KSN-K Informatika / Komputer Tahun 2020 :
- Soal + Pembahasan KSN-K Informatika / Komputer Tahun 2020 (1 - 5)
- Soal + Pembahasan KSN-K Informatika / Komputer Tahun 2020 (6 - 10)
- Soal + Pembahasan KSN-K Informatika / Komputer Tahun 2020 (11 - 15)
- Soal + Pembahasan KSN-K Informatika / Komputer Tahun 2020 (16 - 20)
- Soal + Pembahasan KSN-K Informatika / Komputer Tahun 2020 (21 - 25)
- Soal + Pembahasan KSN-K Informatika / Komputer Tahun 2020 (26 - 30)
- Soal + Pembahasan KSN-K Informatika / Komputer Tahun 2020 (31 - 35)
- Soal + Pembahasan KSN-K Informatika / Komputer Tahun 2020 (36 - 40)

2 komentar untuk "Soal + Pembahasan KSN-K Informatika / Komputer Tahun 2020 (36 - 40)"
Silahkan tuliskan komentar Anda sesuai dengan topik postingan halaman ini. Centang "Beri tahu saya" untuk mendapatkan pemberitahuan balasan komentar anda.