MGMP TIK SMA KABUPATEN MALANG

Setiap tahun. pasti ada olimpiade komputer kan... nah silahkan ini di coba untuk latihan...

1. Yahya dapat mencuci satu mobil dalam waktu 30 menit. Sedangkan Surya, hanya membutuhkan waktu 15 menit. Berapakah waktu yang mereka tempuh jika mereka bekerja bersama dalam mencuci satu mobil?
2. Terdapat 2 bejana. Bejana A diisi cairan warna merah dan bejana B diisi cairan warna putih. Jelaskan bagaimana jika cairannya di tukar. Sehingga bejana A menjadi cairan warna putih dan bejana B menjadi warna merah.
3. Diketahui P = 10, Q = P + 5 , R = Q maka nilai dari P,Q,R adalah....
4. Diberikan suatu deret bilangan : 2,5,4,10,6,15,8,20,… 2 angka berikutnya adalah :
5. Bila diberikan nilai awal untuk W=5, Z=1, X=8, maka untuk algoritma X = 8^2, Z = W + X, W=Z-X, hasil akhirnya yang benar adalah :
6. Tentukan nilai kebenaran dari masing-masing pernyataan berikut (jelaskan!) :
   1. Salah bahwa 4+4=8 dan 6+9=25
   2. Salah bahwa 10+10=20 atau Jakarta ada di Malaysia
   3. Kopenhagen ada di denmark, dan 1+1=5 atau 2+2=4
   4. Paris ada di inggris, atau 1+1=2 dan 3+3=7
7. Tentukan Y = A + B di mana :
   1. A = 11000110, B = 10010101
   2. A = 00001100, B = 11000000
   3. jika pertanyaannya dirubah menjadi Y= B . A maka hasilnya adalah ....(a & b)
8. Misalkan Misalkan semesta U adalah himpunan bilangan asli dan himpunan-himpunan didefinisikan sbb : A = { X Himpunan bilangan asli yang prima lebih kecil 10 } B = { X Himpunan bilangan asli lebih kecil 10 yang habis dibagi 2 } C = {X Himpunan bilangan asli yang lebih besar 9 } Tentukan hasil dari operasi-operasi himpunan dibawah ini :
   1. A – (A B)
   2. A – (A C)
9. Seorang kakek membutuhkan air 4 liter kemudian di suruhlah sang cucu mengambil air tersebut. Kebetulan di belakang rumahnya ada kolam yang mempunyai air jernih. Tapi permasalahannya, sang kakek hanya mempunyai ember yang berukuran 5 liter dan 3 liter. Nah bagaimana cara sang cucu mendapatkan air sebanyak 4 liter?
10. c := 0; d := 0; while (a>b) do begin a := a - b; c := c + 1; d := d + b; end; write(c,’,',d); {penggalan program} Pertanyaannya :
    1. jika nilai a = 15, b = 4 maka keluaran dari program diatas adalah....
    2. jika nilai a = 34, b = 11 maka keluaran dari program diatas adalah....

penggalan program untuk no 1 dan no 2
c := 0
d := 0
while (a>b) do
begin
a := a - b;
c := c + 1;
d := d + b;
end;
write(c,’,',d);
1. jika nilai a = 15, b = 4 maka keluaran dari program diatas adalah..
a. 3 , 12
b. 1 , 4
c. 0 , 0
d. 6 , 23
e. 2 , 8
2. jika nilai a = 34, b = 11 maka keluaran dari program diatas adalah..
a. 3 , 12
b. 1 , 4
c. 0 , 0
d. 6 , 23
e. 2 , 8

3. Diberikan program sebagai berikut :
Var a : char;
b,c : real;
Begin
Readln(a);
b := 1;
c := a+b;
Writeln(c);
End.

Bila input = 9, maka outputnya adalah ...
A. 9
B. 1
C. 10
D. 8
E. Runtime Error

4. Diberikan program sebagai berikut:
Var kal : string [10];
Begin
Kal := '#Senang#';
Kal := copy(kal,2,length(kal)) + kal;
Write(kal);
End.

Apa Output program di atas ?
A. #Senang#
B. #Senang##Senang#
C. Senang##Se
D. Senang#Sen
E. Senang#


5. Diberikan program sebagai berikut:

Begin
Writeln (ord('A'));
Write(Chr(90));
End.
Apa Output program diatas?
A. 65
Z
B. Z
65
C. B
89
D. 65Z
E. 89B

potongan program untuk soalno 6
FUNCTION fak (x, y: integer) : Integer;
BEGIN
if y:= 0 then fak := 1
else
fak := x * fak (x, y-1);
END;
Writeln (fak(5, 3));

6. Apa hasil dari program di atas!
a. 125
b. 8
c. 81
d. 3
e. 15

Nah untuk sementara itu dulu deh...
Untuk pembahasannya menyusul yah...
kalau anda ingin mencoba, silahkan kirimkan jawabannya lewat comment :D