Soal Tik Kls Xii Smt 1

  • Uploaded by: Eli Priyatna
  • 0
  • 0
  • December 2019
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Soal Tik Kls Xii Smt 1 as PDF for free.

More details

  • Words: 2,328
  • Pages: 8
Jika anda jujur pastikan anda tidak contek PEMERINTAH DAERAH KABUPATEN SUKABUMI DINAS PENDIDIKAN DAN KEBUDAYAAN SMA NEGERI 1 CIKEMBAR Jl. Pelabuhan II km. 20 Cikembar – Sukabumi

D. Const a = 2/ E. Const a = #2 7. Penulisan variabel benar ... A. Var i : #integer B. Var i = integer C. Var i : integer D. Var i : integer; E. Var i : integer.

ULANGAN UMUM SEMESTER GANJIL Mata Pelajaran Kelas / Program Hari/Tanggal 2006 Waktu

: TIK : XII – IPA/IPS : Sabtu, 16 Desember

8. Penulisan tipe benar ... A. A : string[1]; B. A ; string[1]; C. A=string[1]; D. A=string[a]; E. A=string[“a”];

: Pukul 07.30 – 09.00 WIB

PILIHAN GANDA Berilah tanda silang (x) pada huruf a, b, c, d, atau e pada jawaban yang paling benar!

9. Penulisan prosedur benar ... A. Procedure demo; B. Proc demo; C. Prosedur demo; D. Procedure demo: E. Procedure demo}

1. Tipe data byte memiliki jangkauan ... A. 0 s.d 100 B. 0 s.d 200 C. 0 s.d 255 D. 0 s.d 355 E. 0 s.d 155

10.Penulisan fungsi yang benar yaitu ... A. Function kali(x,y:integer):integer; B. Function kali(x,y:integer);integer; C. Function kali(x,y:integer):integer: D. Function kali(x,y:integer)”integer” E. Function kali(x,y:integer)’integer’

2. Karakter kontrol didahului oleh karakter .. A. ? B. # C. / D. { E. =

11. Setelah selesai penulisan program, maka untuk memeriksanya tinggal menekan tombol... A. F6 B. F7 C. F8 D. F9 E. F10

3. Komentar program akan diapit oleh ... A. { ... } B. ( ... ) C. / ... / D. { ... E. ... }

12.Untuk mengkompile program dengan cara... A. CTRL-F7 B. CTRL-F8 C. CTRL-F9 D. CTRL-F10 E. CTRL-F11

4. Unit standar turbo pascal yaitu ... A. wincrt B. crt C. concrt dan crt D. wordcrt E. wincrt atau crt

13.Penulisan program yang benar yaitu: A. Program latihan: Uses wincrt Var A,B,C : integer Begin Clrscr; Write(‘nilai A ‘);readln(A); Write(‘nilai B ‘);readln(B); C := A+B;

5. Penulisan nama program benar ... A. Program demo B. Program demo” C. Program demo; D. Program demo, E. Program demo. 6. Penulisan konstanta benar ... A. Const a = 2; B. Const a = 2. C. Const a = 2,

Selamat Mengerjakan Ajah ...

1

: :

Jika anda jujur pastikan anda tidak contek Writeln(C); Repeat until keypressed;

Writeln(C); Repeat until keypressed;

End. B. Program latihan: Uses wincrt; Var A,B,C : integer Begin Clrscr; Write(nilai A : ); readln(A); Write(‘nilai B : ‘);readln(B); C := A+B; Writeln(C); Repeat until keypressed; End.

End. 14.Untuk menanyakan sesuatu digunakan perintah .... A. Write( ‘ .... ’ ) ; readln( ... ); B. Write( “ .... “ ) ; readln( ... ); C. Write( ‘ .... ’ ) ; readln( “...” ); D. Write( ‘ .... ’ ) ; readln( ‘...’ ); E. Write( “ .... “ ) ; readln( “...” ); 15.Untuk menampilkan tulisan menggunakan perintah ... A. Writeln( ‘ .... ’ ) ; B. Writeln( “ .... “ ) ; C. Writeln( ! .... ! ) ; D. Writeln( “ .... “ ) ; readln( ... ); E. Writeln( ‘’ .... ’’ ) ; readln( ... );

C. Program latihan: Uses wincrt; Var A,B,C : integer Begin Clrscr; Write(‘nilai A : ‘);readln(A) Write(‘nilai B : ‘);readln(B); C := A+B; Writeln(C); Repeat until keypressed; End.

16. Program manakah yang menghasilkan nilai benar... A. Program latihan: Uses wincrt Var A,B,C : integer Begin Clrscr; Write(‘nilai A : ‘);readln(A); Write(‘nilai B : ‘);readln(B); C := A+B; Writeln(C); Repeat until keypressed; End.

D. Program latihan: Uses wincrt; Var A,B,C : integer; Begin Clrscr; Write(‘nilai A : ‘);readln(A); Write(‘nilai B : ‘);readln(B); C := A+B; Writeln(C); Repeat until keypressed; End. E. Program latihan: Uses wincrt; Var A,B,C : integer Begin Clrscr Write(‘nilai ‘);readln(A); Write(‘nilai ‘);readln(B); C := A+B;

Selamat Mengerjakan Ajah ...

A

:

B

:

B. Program latihan: Uses wincrt; Var A,B,C : integer Begin Clrscr; Write(nilai A : ); readln(A); Write(‘nilai B : ‘);readln(B); C := A+B; Writeln(C); Repeat until keypressed; End. C. Program latihan: Uses wincrt; Var A,B,C : integer Begin Clrscr;

2

Jika anda jujur pastikan anda tidak contek Write(‘nilai A : ‘);readln(A) Write(‘nilai B : ‘);readln(B); C := A+B; Writeln(C); Repeat until keypressed; End.

End; D. Procedure awal; Var x,y : integer; Begin Write(‘Nilai X : ‘);readln(x); Write(‘”Nilai Y : ‘”);readln(“y"); End; E. Procedure awal; Var x,y : integer; Begin Write(‘Nilai X : ‘);readln(x); Write(‘Nilai Y : ‘);readln(y); End;

D. Program latihan: Uses wincrt; Var A,B,C : integer; Begin Clrscr; Write(‘nilai A : ‘);readln(A); Write(‘nilai B : ‘);readln(B); C := A+B; Writeln(C); Repeat until keypressed; End.

18.Penulisan fungsi yang benar yaitu... A. Function y1(x,y:integer):Integer; Begin Y1=x+y; End; B. Function y1(x,y:integer):Integer; Begin Y1=x+y End; C. Function y1(x,y:integer);Integer; Begin Y1=x+y; End; D. Function y1(x,y:integer):Integer: Begin Y1=x+y; End; E. Function y1(x,y;integer):Integer; Begin Y1=x+y; End;

E. Program latihan: Uses wincrt; Var A,B,C : integer Begin Clrscr Write(‘nilai A : ‘);readln(A); Write(‘nilai B : ‘);readln(B); C := A+B; Writeln(C); Repeat until keypressed; End.

19.Dari program berikut yang menghasilkan nilai 10 yaitu ... A. Program hitung; Var X,y,z : integer; Begin Clrscr; x :=4; y :=6; Z := x+y; End. B. Program hitung; Var X,y,z : integer; Begin Clrscr; x :4; y :6; Z := x+y End. C. Program hitung;

17.Berikut penulisan prosedur yang benar .. A. Procedure awal Var x,y : integer; Begin Write(‘Nilai X : ‘);readln(x); Write(‘Nilai Y : ‘);readln(y); End; B. Procedure awal; Var x,y : integer Begin Write(‘Nilai X : ‘);readln(x); Write(‘Nilai Y : ‘);readln(y); End; C. Procedure awal; Var x,y : integer; Begin Write(“Nilai X : “);readln(x); Write(‘Nilai Y : ‘);readln(y);

Selamat Mengerjakan Ajah ...

3

Jika anda jujur pastikan anda tidak contek Var X,y,z : integer; Begin Clrscr; x =4; y =6; Z := x+y End. D. Program hitung; Var X,y,z : integer; Begin Clrscr; x :=4 y :=6 Z := x+y End. E. Program hitung; Var X,y,z : integer; Begin Clrscr; x ;=4; y ;=6; Z := x+y; End.

24. Program yang menghasilkan urutan 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 yaitu ... A. Program urut; Uses wincrt; Var X : integer; Begin Clrscr; For x := 1 to 10 do Begin Write(x);readln(x) End; End. B. Program urut; Uses wincrt; Var X : integer; Begin Clrscr; For x := 1 to 10 do Begin Writeln(x) End; End. C. Program urut; Uses wincrt; Var X : integer; Begin Clrscr; For x := 1 to 10 do Begin Writeln(‘x’); End; End. D. Program urut; Uses wincrt; Var X : integer; Begin Clrscr; For x := 1 to 10 do Begin Writeln(“x”); End; End. E. Program urut; Uses wincrt; Var X : integer; Begin Clrscr; For x := 1 to 10 do Begin Writeln(x); End; End. 25.Penulisan program yang benar yaitu ... A. Program whiledo;

20.Penulisan menanyakan masukan yang benar yaitu ... A. Write(‘’Nilai x : ‘‘);readln(x); B. Write(“Nilai x : “);readln(“x”); C. Write(‘Nilai x : ‘);readln(‘x’); D. Write(Nilai x : );readln(x); E. Write(‘Nilai x : ‘);readln(x); 21.Penulisan memperlihatkan hasil yang benar yaitu ... A. Writeln(“xx”); B. Writeln(#xx); C. Writeln(‘xx’); D. Writeln(“xx’); E. Writeln(‘’xx’); 22.Untuk meletakan karakter pada posisi tertentu menggunakan perintah ... A. Gotoxy(2,4):writeln(‘x’); B. Gotoxy(2,4)writeln(‘x’); C. Gotoxy(2,4);writeln(‘x’); D. Gotoxy(2,4);writeln(“x”); E. Gotoxy(2,4)writeln(‘x’); 23.Penulisan yang benar pada ... A. For x = 1 to 50 do B. For x : 1 to 50 do C. For x := 1 to 50 do D. For x := 1,3 to 5 do E. For x := 1 to 5,3 do

Selamat Mengerjakan Ajah ...

4

Jika anda jujur pastikan anda tidak contek

B.

C.

D.

E.

N:=0 While n <= 10 do Begin Write(n);readln(n) End; Program whiledo; N:=0 While n <= 10 do Begin Writeln(n); End; Program whiledo; N:=10 While n <= 10 do Begin Writeln(n); End; Program whiledo; N:=100 While n <= 10 do Begin Writeln(n); End; Program whiledo; N:=0 While n = 10 do Begin Writeln(n); End;

For x := 1 to 10 do For y := 1 to 10 do Begin Z := x+y; Writeln(z); End. D. Program ulang; Uses wincrt; Var x,y,z : integer; Begin For x&y := 1 to 10 do Begin Z := x+y; Writeln(z); End; End. E. Program ulang; Uses wincrt; Var x,y,z : integer; Begin For x := 1 to 10 do For y := 1 to 10 do Begin Z := x+y; Writeln(z); End; End. 27.Jika a maka nilai b. Penulisan program yang benar yaitu... A. Program kondisi; Uses wincrt; Var a,nilai : string; Begin Clrscr; a:=’a’ if a:=’a’ nilai=’b’ end. B. Program kondisi; Uses wincrt; Var a,nilai : string; Begin Clrscr a:=’a’ if a:=’a’ then nilai=”b” end. C. Program kondisi; Uses wincrt; Var a,nilai : string; Begin Clrscr; a:=’a’ if a=’a’ then nilai=’b’ end.

26.Penulisan program yang benar yaitu.. A. Program ulang; Uses winctr; Var x,y,z : integer; Begin For x := 10 to 1 do For y := 1 to 10 do Begin Z := x+y; Writeln(z); End; End. B. Program ulang; Uses wincrt; Var x,y,z : integer; Begin For x := 1 to 10 do begin For y := 1 to 10 do Begin Z := x+y; Writeln(z); End; End. C. Program ulang; Uses wincrt; Var x,y,z : integer; Begin

Selamat Mengerjakan Ajah ...

5

Jika anda jujur pastikan anda tidak contek D. Program kondisi; Uses wincrt; Var a,nilai : string; Begin Clrscr; a=’a’ if a:=’a’ then nilai=’b’ end. E. Program kondisi; Uses wincrt; Var a,nilai : string; Begin Clrscr; a:=’a’ if a:=’a’ then nilai=’b’ end.

Y : string; Begin X := 3; If x =3 then y := “benar” End. D. Program kondisi; Uses wincrt; Var X: integer; Y : string; Begin X = 3; If x:=3 then y := “benar” End. E. Program kondisi; Uses wincrt; Var X: integer; Y : string; Begin X := 3 If x:=3 then y := “benar” End.

28.Jika x memiliki nilai string penulisan yang benar yaitu ... A. If x := ‘‘ ... ‘‘ then B. If x := “ ... “ then C. If x := ... then D. If x := ‘ ... ‘ then E. If x := # ... # then

31.Jika dg yaitu driver grafik dan mg mode grafik, maka penulisan yang benar yaitu... A. Program kenal; Uses crt,graph; Dg,mg : string; Begin Dg := detect; Initgraph(dg,mg,’’); B. Program kenal; Uses crt,graph; Dg,mg : integer; Begin Dg := detect; Initgraph(dg,mg,’’); C. Program kenal; Uses crt,graph; Dg,mg : integer; Begin Dg := detect; Initgraph(mg,dg,’’); D. Program kenal; Uses crt,graph; Dg,mg : integer; Begin Dg := crt; Initgraph(dg,mg,’’); E. Program kenal; Uses crt,graph; Dg,mg : integer; Begin Dg := detect; ifgraph(dg,mg,’’);

29.Penulisan yang benar yaitu ... A. If y := “ .... “ then .... else .... B. If y := ‘ .... ‘ then .... else .... C. If y := #.... # then .... else .... D. If y := “ .... “ then “....” else .... E. If y := “ .... “ then .... else “....” 30.Jika nilai x yaitu numerik maka y nilainya huruf. Pernyataan yang benar yaitu ... A. Program kondisi; Uses wincrt; Var X,Y: integer; Begin X := 3; If x:=3 then y := “benar” End. B. Program kondisi; Uses wincrt; Var X: integer; Y : string; Begin X := 3; If x:=3 then y := ‘benar’ End. C. Program kondisi; Uses wincrt; Var X: integer;

Selamat Mengerjakan Ajah ...

6

Jika anda jujur pastikan anda tidak contek 32.Berikut yang tidak termasuk driver grafik, yaitu... A. cga d. xga B. vga e. svga C. hga 33. Berikut yang tidak termasuk mode grafik yaitu... A. Cga0 B. Cga1 C. Cga2 D. Mga2 E. Ega3 34.Unit bawaan yang bertugas menangani grafik yaitu... A. graph B. dos C. crt D. wincrt E. help1 dan grafik 35. Prosedur untuk membuka grafik yang benar yaitu ... A. procedure bukagrafik; begin dg := cga; initgraph(dg,mg,’’); if graphresult <> grok then halt(1); end; B. procedure bukagrafik; begin dg := detect; initgraph(mg,dg,’’); if graphresult <> grok then halt(1); end; C. procedure bukagrafik; begin dg := detect; initgraph(dg,mg,’’); if graphresult <> grok then halt(1); end; D. procedure bukagrafik; begin dg := detect; initgraph(dg,mg,” “); if graphresult <> grok then halt(1); end; E. procedure bukagrafik; begin dg := detect; initgraph(dg,mg,//); if graphresult <> grok then halt(1); end;

A. Line(10,10,20,10); B. Line(10,10,10,10); C. Line(10,10,20,20); D. Line(10,10,20,100); E. Line(10,100,20,10);

37.Penulisan yang dibolehkan dalam membuat garis yaitu ... A. Line(10.4,10,20,10); B. Line(10,10,20/3,10); C. Line(10,#10,20,10); D. Line(10.1,10,20,10); E. Line(10,10,20,x); 38.Segitiga ABC memiliki titik-titik (2,3) – (5,6) – (8,2) berikut program yang benar yaitu ... A. Program garis; Uses crt,graph; Var dg,mg : integer; Begin .... Procedure gambar; Line(2,3,3,6); Line(5,6,4,2); Line(8,2,3,3); End; .... B. Program garis; Uses crt,graph; Var dg,mg : integer; Begin .... Procedure gambar; Line(2,3,5,6); Line(5,6,8,2); Line(8,2,2,3); End; .... C. Program garis; Uses crt,graph; Var dg,mg : integer; Begin .... Procedure gambar; Line(2,3,5,6); Line(5,6,8,2); Line(8,2,8,3); End; .... D. Program garis; Uses crt,graph; Var dg,mg : integer; Begin .... Procedure gambar; Line(2,5,5,6); Line(5,6,8,2);

36. Program untuk membuat garis lurus horisontal yang benar yaitu...

Selamat Mengerjakan Ajah ...

7

Jika anda jujur pastikan anda tidak contek Line(8,2,2,3); End; .... URAIAN E. Program garis; Uses crt,graph; Var dg,mg : integer; Begin .... Procedure gambar; Line(2,3,5,6); Line(5,6,8,2); Line(3,2,2,3); End; ....

41.Sebutkan type data turbo pascal dan berikan contohnya! 42.Apakah fungsi karakter control dan berikan contohnya; 43.Diberikan data x = 3, y = 4, dan z = x+y. Buatlah programnya. 44.Dari soal nomor 43 jika ket menerangkan keterangan dimana jika z <= 6 maka ket=her dan jika z >= 6 maka ket=lulus. Buatlah programnya. 45.Buatlah programnya dari gambar berikut:

39.Program yang benar yaitu ... A. Circle( .... , ... , ....); B. Circle( ... , ....); C. Circle( .... , ... , ‘....’); D. Circle( ‘....’ , ... , ....); E. Circle( “....” , ... , ....);

A

40. Program untuk menggambar lingkaran

C

PERHATIAN! 1. DISKET DIKUMPULKAN BERISI TUGAS 1 S.D 20 SETELAH SELESAI ULUM TIK 2. NILAI RAPORT DARI HITUNGAN (NILAI ABSEN + NILAI TUGAS + NILAI ULUM)/3 >= 75

dengan jari-jari 5 yaitu ... A. Circle(2/2,2,5); B. Circle(2,2/2,5); C. Circle(2,2,5); D. Circle(2.3,2,5); E. Circle(2,2.3,5);

Selamat Mengerjakan Ajah ...

B

8

Related Documents

Soal Tik Kls Xii Smt 1
December 2019 36
Soal Tik Kls X Smt 1
December 2019 34
Soal Tik Kls X1 Smt 1
December 2019 42
Tik Kls Xii Sms 1
May 2020 34
Skl Tik Kls Xii
November 2019 32
Soal Tik Kelas Xii
December 2019 52

More Documents from "Eli Priyatna"

Rpp Cikembar Bab 5
December 2019 40
Chapter_6_id
April 2020 20
Sejarah 2000
December 2019 29
Soal Pai Smt 1 Kls X
December 2019 51
Seni Musik
December 2019 46