Olimpiade Sains Provinsi (OSP) 2013 - Komputer, Nomor 40–41
Deskripsi Untuk Soal Nomor 40 dan 41
Perhatikan potongan program berikut!
function mencari(N:integer):integer;
var i,j,z:integer;
begin
mencari:=0;
for i:=1 to N do
begin
j:=1;
z:=0;
while (j <= i) do
begin
if (i mod j = 0) then inc(z);
inc(j);
end;
if (z mod 2 <> 0) then
mencari:=mencari+1;
end;
end;40.
Berapakah nilai yang dihasilkan dari pemanggilan mencari(50)?
41.
Berapakah nilai yang dihasilkan dari pemanggilan mencari(9000)?
3 jawaban
Pusaka Kaleb Setyabudi11 tahun lalu
CS Undergrad Student @ Fasilkom UI | TOKI 2011; TOKI 2012
4
Untuk setiap , nilai
akan terisi dengan bilangan yang menyatakan banyaknya
dimana berlaku
(j habis membagi i) atau dengan kata lain mencari banyaknya faktor dari
. Kemudian nilai dari mencari akan bertambah satu untuk setiap
yang bernilai ganjil.
menyatakan banyaknya faktor dari setiap
. Jika
mencari akan bertambah untuk setiap yang ganjil, maka sama saja dengan mencari banyaknya
yang merupakan bilangan kuadrat sempurna (bilangan kuadrat sempurna memiliki ganjil banyak faktor).
40. mencari(50) = 7
41. mencari(9000) = 94
Masuk untuk menulis jawaban
D4 Teknik Informatika Politeknik Negeri Bandung angkatan 2014. Alumni OSN 2013.
Setelah dua tahun berlalu, saya baru tahu bahwa return fungsi di Pascal tidak menghentikan eksekusi selanjutnya (tidak seperti di C).
Saya menjawab 0 untuk dua soal ini saat itu, dan mengira ini "soal jebakan". Wkwk.