Senin, 03 Mei 2010

Ulangan Harian

Petunjuk Umum:
1. Kerjakan soal pilihan ganda di lembar jawab ujian (LJU)

Soal Pilihan Ganda
Pilihlah salah satu jawaban yang paling tepat dengan memberi tanda silang (A/B/C/D/E) pada lembar jawab yang telah disediakan ! Skor masksimal pilihan ganda = 40.

1. Jika program dianggap benar dan lengkap, maka output dari pernyataan:
Writeln(‘Ujian Akhir TIK’);
Write(‘Kelas X’);Write(‘Semester I’);
Writeln(‘Mudah dan Menyenangkan’);
    adalah .... .
A.      Ujian Akhir TIK Kelas X
       Semester I
           Mudah dan Menyenangkan
        B. Ujian Akhir TIK
             Kelas X Semester I
             Mudah dan Menyenangkan
        C. Ujian Akhir TIK
            Kelas XSemester I Mudah dan Menyenangkan
        D. Ujian Akhir TIK
             Kelas X Semester I Mudah dan Menyenangkan
        E. Ujian Akhir TIK
             Kelas XSemester I
             Mudah dan Menyenangkan

2. Variabel x=‘DE BRITTO’, dalam Pascal dimasukkan dalam tipe data .... .
      A. Char
      B. String
      C. Integer
      D. Longint
      E. Real

3. Berikut ini adalah konstanta integer ....
      A. 32768
      B. -32768
      C. -25.5
      D. 25.6
      E. ‘50’

4. Nilai dari 1000 MOD 360 adalah ... .
      A. 2
      B. 260
      C. 280
      D. 2600
      E. 2800

5. Hasil ekspresi 6*5/10*2+10 adalah ....
      A. -16
      B. 0.25
      C. 1
      D. 16
      E. 11.5

6. Gambar belah ketupat dalam flow chart digunakan untuk ....
      A. Mulai
      B. Selesai
      C. Input
      D. Output
      E. Percabangan

7. Berikut ini merupakan penulisan kepala program yang benar ....
      A. Program UAS-TIK;
      B. Program UAS_TIK
      C. Program UAS_TIK;
      D. Program 2UASTIK
      E. Program UAS TIK;

8. Berikut ini penulisan deklarasi variabel yang benar, kecuali ....
      A. var alas, tinggi: real;
      B. Var Alas, Tinggi: real;
      C. Var uang, upah: integer;
                        total: real; i: integer;
      D. Var uang, upah, total: integer
      E. Var uang, upah: integer;
            Var total: real;

9. Berikut ini yang bukan merupakan tipe integer ....
      A. Word
      B. Byte
      C. Real
      D. Shortint
      E. Longint

10. Interval tipe data byte adalah ....
      A. 0 s.d. 255
      B. -255 s.d 255
      C. 0 s.d. 32.767
      D. 0 s.d. 32.768
      E. -32.678 s.d 32.678

11. Rumus y = a5 dalam Pascal dapat diekspresikan sebagai berikut, kecuali ....
      A. y := a * sqr(a)* sqr(a);
      B. y := sqr(a) + sqr(a) + a;
      C. y := sqr(a)*a * sqr(a);
      D. y := a *a *a *a *a;
      E. y := a *a *a * sqr(a);

12. Operator dalam bahasa pemrograman Pascal yang digunakan untuk mendapatkan hasil bagi  sebuah bilangan bulat oleh bilangan bulat lain adalah ...
      A. MOD
      B. DIV
      C. DIVIDE
      D. MODULUS
      E. REST

13. Hasil dari (17 DIV 3) * (28 MOD 3) adalah ....
      A. 0
      B. 1
      C. 5
      D. 6
      E. 18

14. Diantara ekspresi berikut, yang tidak akan menghasilkan nilai 5 adalah ....
      A. 2+3/1
      B. 3 mod 2 + 4
      C. 20*3/12
      D. 5/1+1
      E. 15/5+2

15. Jika x = 4, y = 6, w = 8, z = 10, maka ekspresi (x*y+w)/z+x akan menghasilkan nilai ....
      A. 23.2
      B. 28.8
      C. 7.2
      D. 19.2
      E. 8.2

16. Dalam Pascal rumus: y = a2 + b2  dapat dituliskan ... .
      A. y = (sqr(a) + sqr(b))
      B. y := sqrt(sqr(a)* sqr(b));
      C. y = sqrt(a *a + b*b)
      D. y := (a *a + b*b);
      E. y := sqrt(sqr(a) + sqr(b));

17. Perintah gotoxy(14,15) artinya kursor akan menuju ke .....
      A. baris 14 kolom 15
      B. kolom 15 baris 14
      C. baris 13 kolom 16
      D. kolom 16 baris 13
      E. baris 15 kolom 16

18. Berikut ini yang termasuk pernyataan perulangan dalam Pascal ....
      A. if dan case
      B. for
      C. while
      D. repeat
      E. for, while dan repeat

19. Berikut ini penulisan pernyataan if yang benar, kecuali ... .
      A. if nilai < 65 then;
                writeln(‘Tidak Tuntas’);
      B. if nilai < 65 then
                begin
                writeln(‘Tidak Tuntas’);
                end.
      C. if nilai < 65 then
            begin
            writeln(‘Tidak Tuntas’)
            end;
      D. if nilai < 66 then
            writeln(‘Tidak Tuntas’)
            else writeln(‘Tuntas’);
      E. if nilai < 66 then;
            writeln(‘Tidak Tuntas’);
            else writeln(‘Tuntas’);

20. Berikut ini merupakan potongan dari suatu program Pascal:
        x:=4; y:=5; z:=6;
                if z > y then
                                if y > x then
                                                if x > z then
                                writeln(z)
                else writeln(y)
        else writeln(x);
Jika x, y dan z bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah ....
      A. 4
      B. 5
      C. 6
      D. 20
      E. Tidak ada output

21. Berikut ini merupakan potongan dari suatu program Pascal:
        x:=2; y:=6; z:=10;
                if z > y then
                                if y > x then
                if x < z then
        writeln(x)
        else writeln(y)
        else writeln(z);
Jika x, y dan z bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah ....
      A. 2
      B. 6
      C. 10
      D. 120
      E. Tidak ada output

22. Berikut ini merupakan potongan dari suatu program Pascal:
      for i:=1 to 5 do
            write(i,’ ‘);
      Jika i bertipe integer dan program dianggap benar, maka output dari potongan program di
atas adalah ....
      A. 2 3 4
      B. 1 2 3 4 5
      C. i i i i i
      D. i i i i
      E. Tidak ada output

23. Berikut ini potongan program dalam Pascal yang akan menghasilkan output: 4 3 2 1
      A. for i:=4 to 1 do writeln(‘i’,’ ‘);
      B. for i:=4 to 1 do writeln(i, ‘ ‘);
      C. for i:=4 to downto 1 writeln(i,’ ‘);
      D. for i:=4 to 1 down to 1 write(‘i’,’ ‘);
      E. for i:=4 to 1 down to 1 write(i,’ ‘);

24. Berikut ini merupakan potongan dari suatu program Pascal:
      for i:=4 to 2 do
      write(i,’ ‘);
Jika i bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah ....
      A. 4 3 2
      B. 3
      C. 2 3 4
      D. i i i
      E. Tidak ada output

25. Berikut ini merupakan potongan dari suatu program Pascal:
      for i:=3 to 9 do
            if (i mod 3 = 0) then
      write(i, ' ');
Jika i bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah ....
      A. 3
      B. 6
      C. 9
      D. 3 6 9
      E. 9 6 3

26. Berikut ini merupakan potongan dari suatu program Pascal:
      i:=1;
      while i < 5 do
      begin
            write(‘i’,’ ‘);
            i:=i+1;
      end;
Jika i bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah ....
      A. i i i i
      B. i i i i i
      C. 1 2 3 4
      D. 1 2 3 4 5
      E. Tidak ada output

27. Berikut ini merupakan potongan dari suatu program Pascal:
      i:=4;
      while i < 0 do
      begin
            write(i,’ ‘);
            i:=i-1;
      end;
Jika i bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah ....
      A. 4 3 2 1
      B. 1 2 3 4
      C. 3 2
      D. Tidak ada output
      E. Terjadi perulangan terus menerus

28. Berikut ini merupakan potongan dari suatu program Pascal:
      i:=6;
      repeat
            write(i,’ ‘);
            i:=i-1;
      until i<2;
Jika i bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah ....
      A. 1 2 3 4 5 6
      B. 2 3 4 5 6
      C. 6 5 4 3 2 1
      D. 6 5 4 3 2
      E. i i i i i i

29. Berikut ini merupakan potongan dari suatu program Pascal:
      i:=4;
      repeat
            write(i,’ ‘);
            i:=i-1;
      until i < 4;
Jika i bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah ....
      A. 4
      B. 1
      C. 4 3 2 1
      D. Tidak ada output
      E. Terjadi perulangan terus menerus

30. Berikut ini merupakan potongan dari suatu program Pascal:
      for i:=1 to 3 do
            begin
                        for j:=1 to 5 do
                        write(‘*’);
                        writeln;
            end;
      Jika i dan j bertipe integer dan program dianggap benar, maka output dari potongan program      di atas adalah ....
      A. * * *
      B. * * * * *
      C. * * *
          * * * * *
      D. * * *
           * * *
           * * *
           * * *
           * * *
      E. * * * * *
          * * * * *
          * * * * *

Untuk soal 31 – 32

            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));

31. Apa hasil dari program di atas!
      A. 36
      B. 125
      C. 128
      D. 360
      E. 512

32. Jika writeln (fak(5,3)) diganti menjadi writeln (fak(4,5)), hasil dimunculkan adalah…
      A. 360
      B. 512
      C. 180
      D. 64
      E. 1024

33. Manakah yang salah dari deklarasi dibawah ini
      A. Function info(a:byte):real;
      B. Function info:byte;
      C. Function info(a,b:byte) : real;
      D. Function info(a: real; b:integer):real;
      E. Function info(a:real);

Potongan program dibawah untuk soal 34 - 35

            c := 0
            d := 0
            while (a>b) do
            begin
            a := a – b;
            c := c + 1;
            d := d + b;
            end;
write(c,’,',d);

34. 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

35. Jika nilai  a = 34, b = 11 maka keluaran dari program diatas adalah..
      A. 13 , 12
      B. 21 , 4
      C. 0 , 0
      D. 3 , 33
      E. 2 , 2

            Untuk soal 36 - 37

            y := 10;
            x := 0;
            for i := 0 to y-1 do
            begin
                        x:=x+ 2 * i;
            end;
            Writeln (x);

36. Berapakah output dari program diatas?
      A. 112
      B. 110
      C. 90
      D. 72
      E. 45

37. Jika baris kelima (x :=x + 2 * i) diganti dengan x :=  x + i
      Berapakah output program tersebut?
      A. 54
      B. 64
      C. 752
      D. 172
      E. 45

      Ada 5 rumah dalam 1 baris dari timur ke barat. Tiap rumah berbeda warnanya, di huni 5 orang yang berbeda dengan peliharaan, makanan favorit, dan minuman favorit yang berbeda.
·         Ekas tinggal di rumah merah.
·         Sandi memelihara anjing.
·         Kopi di minum dirumah hijau.
·         Udin sedang minum teh.
·         Rumah hijau berada di timur dan di samping rumah ungu.
·         Yeng suka nasi goreng memelihara siput.
·         Yang tinggal di rumah kuning suka mie ayam.
·         Susu diminum di rumah tengah.
·         Nami tinggal di rumah paling barat.
·         Yang suka soto tinggal di samping rumah yang memelihara rubah.
·         Mie ayam dimakan dirumah yang memelihara kuda.
·         Yang makan nasi padang suka minum jus jeruk.
·         Joni suka makan tongseng.
·         Nami tinggal di sebelah rumah warna biru.
     
38. Siapa yang suka minum ari mineral ?
      A. Nami
      B. Sandi
      C. Udin
      D. Joni
      E. Ekas

39. Siapa yang memelihara Zebra ?
      A. Nami
      B. Sandi
      C. Udin
      D. Joni
      E. Ekas

40. Siapa yang senang minum jus jeruk?
      A. Nami
      B. Sandi
      C. Udin
      D. Joni
      E. Ekas



0 komentar:

Posting Komentar