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