Soal Tik Kelas Xii

DEPARTEMEN PENDIDIKAN NASIONAL DINAS PENDIDIKAN KABUPATEN SUKABUMI SMA NEGERI I CIKEMBAR ULANGAN UMUM SEMESTER GANJIL TAHUN PELAJARAN 2007 / 2008 ========================================== HARI / TANGGAL : SABTU / 15-12-2007 MATA PELAJARAN : TIK KELAS : XII IPA /IPS / BHS WAKTU : 07.30 – 09.00 WIB

4. Diberikan persamaan Y = (a+b), dimana a dan b variable integer, maka penulisan yang benar yaitu ; A. Var y,a,b : integer: B. Var y,a,b : integer C. Var y,a,b : integer; D. Var y,a,b ; integer; E. Var y,a,b : integer: 5. Diberikan data nama, dimana nama merupakan variable kharakter berisi maksimum 5 huruf, maka penulisan yang benar yaitu ; A. Var nama : string(5); B. Var nama : string/5/; C. Var nama : string[5]; D. Var nama : string{5}; E. Var nama : string5;

PETUNJUK PENGISIAN 1. Hitamkan pada salah satu jawaban yang paling dianggap benar dari option ABCDE pada lembar jawaban komputer. 2. Kalau akan mengganti jawaban yang sudah terlanjur dihitamkan, maka hapuslah bulatan hitam pertama sampai bersih sekali kemudian hitamkan bulatan lain sesuai pilihan anda 3. Bulatan jawaban jangan sampai robek dan kotor 4. Ingat gunakan pensil 2B

6. Penulisan program yang benar yaitu: A. Program latihan; Uses crt Var x,y : real; B. Program latihan: Uses crt; Var x,y : real; C. Program latihan; Uses crt; Var x,y : real; D. Program latihan: Uses crt: Var x,y : real; E. Program latihan; Uses crt: Var x,y : real:

SELAMAT MENIKMATI 1. Berikut penulisan output program yang benar: A. Writeln(‘ ‘ ……….. ‘‘ ); B. Writeln( ‘ ……….. ‘ )? C. Writeln( ‘ ……….. ‘ ); D. Writeln( ‘’ ……….. ‘’ ); E. Writeln( ‘’ ……….. “ ); 2. Berikut penulisan yang benar: A. Write( ‘‘ nama readln(nama); B. Write( “‘ nama readln(nama); C. Write( ‘ nama readln(nama); D. Write( nama anda ? E. Write( ‘ nama readln(nama):

7. Rutinitas standar yang berhubungan dengan monitor, pada turbo pascal menggunakan : A. Uses graph; B. Uses clrscr: C. Uses crt; D. Uses wincrt E. Uses ctr;

input program anda

?

‘‘

);

anda

?

“

);

anda

?

‘

);

8. Diberikan data y = a+b dimana variable a dan b yaitu real. Penggalan program yang benar yaitu : A. Program latihan; Uses crt; Var a,b,y : real; Writeln( ‘ a ? ‘ );readln(a); Writeln(‘ b ? ’ );readln(b); Y := a+b: Writeln(a,b,y); Readln; End.

);readln(nama); anda ? ‘ );

3. Operator yang diperboleh pada penulisan listring program turbo pascal yaitu, kecuali ? A. * B. C. \ D. / E. +

B. Program latihan; Uses crt; Var a,b,y : real; Writeln( ‘ a ? ‘ );readln(a); Writeln(‘ b ? ’ );readln(b); 1

Y := a+b Writeln(a,b,y); Readln; End. C. Program latihan; Uses crt; Var a,b,y : real; Writeln( ‘ a ? ‘ );readln(a); Writeln(‘ b ? ’ );readln(b); Y := a+b; Writeln(a,b,y); Readln; End. D. Program latihan: Uses crt: Var a,b,y : real; Writeln( ‘ a ? ‘ );readln(a); Writeln(‘ b ? ’ );readln(b); Y := a+b; Writeln(a,b,y); Readln; End. E. Program latihan; Uses crt; Var a,b,y : real; Writeln( ‘ a ? ‘ );readln(a); Writeln(‘ b ? ’ );readln(b); Y := a+b; Writeln(a,b,y); Readln: End: 9. Penulisan kecuali : A. > B. < C. => D. >= E. <=

operator

yang

END. B. PROGRAM HITUNGAN; USES CRT; CONST A = 2; B = 4; C = 6; VAR X, TAM,BAG,KUR,KAL : REAL; BEGIN CLRSCR; WRITELN(‘HITUNGAN’); WRITELN(‘TIGA ANGKA’); WRITELN(A=2 B=4 C=6’); WRITELN(‘BILANGAN BARU’); WRITE(‘ANGKA:‘);READLN(X); TAM := (A+X)+(B+X)+(C+X); BAG := (A/X)+(B/X)+(C/X); KAL := (A*X)+(B*X)+(C*X); WRITELN(‘HASIL1= ‘,TAM); WRITELN(‘HASIL2= ‘,BAG); WRITELN(‘HASIL3= ‘,KAL); REPEAT UNTIL KEYPRESSED; END. C. PROGRAM HITUNGAN; USES CRT; CONST A = 2; B = 4; C = 6; VAR X, TAM,BAG,KUR,KAL : REAL; BEGIN CLRSCR; WRITELN(‘HITUNGAN’); WRITELN(‘TIGA ANGKA’); WRITELN(‘A=2 B=4 C=6’); WRITELN(‘BILANGAN BARU’); WRITE(‘ANGKA:‘);READLN(X); TAM := (A+X)+(B+X)+(C+X); BAG := (A/X)+(B/X)+(C/X); KAL := (A*X)+(B*X)+(C*X); WRITELN(‘HASIL1= ‘,TAM); WRITELN(‘HASIL2= ‘,BAG); WRITELN(‘HASIL3= ‘,KAL); REPEAT UNTIL KEYPRESSED; END. D. PROGRAM HITUNGAN; USES CRT; CONST A = 2 B = 4; C = 6; VAR X, TAM,BAG,KUR,KAL : REAL; BEGIN CLRSCR; WRITELN(‘HITUNGAN’); WRITELN(‘TIGA ANGKA’); WRITELN(‘A=2 B=4 C=6’); WRITELN(‘BILANGAN BARU’); WRITE(‘ANGKA:‘);READLN(X); TAM := (A+X)+(B+X)+(C+X);

benar,

10. Penulisan program yang benar yaitu : A. PROGRAM HITUNGAN; USES CRT; CONST A = 2; B = 4; C = 6; VAR X, TAM,BAG,KUR,KAL : REAL; BEGIN CLRSCR; WRITELN(‘HITUNGAN’); WRITELN(‘TIGA ANGKA’); WRITELN(‘A=2 B=4 C=6’); WRITELN(‘BILANGAN BARU’); WRITE(‘ANGKA:‘);READLN(X); TAM = (A+X)+(B+X)+(C+X); BAG := (A/X)+(B/X)+(C/X); KAL := (A*X)+(B*X)+(C*X); WRITELN(‘HASIL1= ‘,TAM); WRITELN(‘HASIL2= ‘,BAG); WRITELN(‘HASIL3= ‘,KAL); REPEAT UNTIL KEYPRESSED; 2

BAG := (A/X)+(B/X)+(C/X); KAL := (A*X)+(B*X)+(C*X); WRITELN(‘HASIL1= ‘,TAM); WRITELN(‘HASIL2= ‘,BAG); WRITELN(‘HASIL3= ‘,KAL); REPEAT UNTIL KEYPRESSED; END. E. PROGRAM HITUNGAN; USES CRT; CONST A = 2; B = 4; C = 6; VAR X, TAM BAG,KUR,KAL : REAL; BEGIN CLRSCR; WRITELN(‘HITUNGAN’); WRITELN(‘TIGA ANGKA’); WRITELN(‘A=2 B=4 C=6’); WRITELN(‘BILANGAN BARU’); WRITE(‘ANGKA:‘);READLN(X); TAM := (A+X)+(B+X)+(C+X); BAG := (A/X)+(B/X)+(C/X); KAL := (A*X)+(B*X)+(C*X); WRITELN(‘HASIL1= ‘,TAM); WRITELN(‘HASIL2= ‘,BAG); WRITELN(‘HASIL3= ‘,KAL); REPEAT UNTIL KEYPRESSED; END.

Z := (x/y); Writeln(x,y,z); Readln; End. D. Program nilai2; Uses crt; Var x,y,z : integer; Begin Clrscr X := 4; Y := 2; Z := (x+y); Writeln(x,y,z); Readln; End. E. Program nilai2; Uses crt; Var x,y,z : integer; Begin Clrscr X := 4; Y := 2; Z := (x\y); Writeln(x,y,z); Readln; End. 12. Dalam keadaan standar penulisan listring turbo pascal diakhiri selalu diikuti tanda baca : A. ‘ B. “ C. ; D. : E. ?

11. Program berikut yang menghasilkan nilai 2 yaitu : A. Program nilai2; Uses crt; Var x,y,z : integer; Begin Clrscr X := 4; Y := 2; Z := (x/y); Writeln(x,y,z) Readln; End. B. Program nilai2; Uses crt; Var x,y,z : integer; Begin Clrscr X := 4; Y := 2 Z := (x/y); Writeln(x,y,z); Readln; End. C. Program nilai2; Uses crt; Var x,y,z : integer; Begin Clrscr X := 4; Y := 2;

13. Jika A < 6 maka B = 6 dan jika A >6 maka B = 0. Penulisan program yang benar yaitu ? A. If A =< 6 then B = 6 If A > 6 then B = 0 B. If A < 6 then B = 6 If A >= 6 then B = 0 C. If A < 6 then B = 6 If A > 6 then B = 0 D. If A < =6 then B = 6 If A > 6 then B = 0 E. If A < 6 then B = 6 If A >= 6 then B = 0 14. Berikut penulisan kondisi jika yang benar yaitu : A. If ………. Then …………… B. If ………. Then …………… end C. If ………. Begin Then …………… D. If ………. Begin Then …………… end E. If begin ………. Then …………… end 15. jika A < 6 maka B = A dan jika A > 6 maka B = 6. Penulisan program yang benar yaitu … 3

A. program jika; uses crt; var A : integer; b : string; begin clrscr; write( ‘A = ‘);readln(a); if A < 6 then b := ‘A’; if A > 6 then b := 0; writeln(a,b); readln; end.

PROGRAM IF_THEN; USES CRT; VAR PIL:STRING[1]; [kode 1] R,L,T,Y:REAL; BEGIN CLRSCR; GOTOXY(10,2);WRITELN('PILIHAN'); [kode 2] GOTOXY(10,6);WRITELN('A,Y1'); GOTOXY(10,7);WRITELN('B,Y2'); GOTOXY(10,8);WRITELN('C,Y3'); GOTOXY(10,9);WRITELN('D,Y4'); GOTOXY(10,10);WRITELN('E,Y5'); GOTOXY(10,11);WRITELN('F,Y6'); GOTOXY(10,12);WRITELN('G,Y7'); GOTOXY(10,13);WRITELN('H,Y8'); GOTOXY(10,14);WRITELN('I,Y9'); GOTOXY(10,15);WRITELN('J,Y10'); GOTOXY(10,16);WRITELN('K,Y11'); GOTOXY(10,17);WRITELN('L,Y12'); GOTOXY(10,18);WRITELN('M,Y13'); GOTOXY(10,19);WRITELN('N,Y14'); GOTOXY(10,20);WRITELN('O,Y14'); GOTOXY(10,21);WRITELN('P,Y16');

B. program jika; uses crt; var A : integer; b : string; begin clrscr; write( ‘A = ‘);readln(a); if A <= 6 then b := ‘A’; if A > 6 then b := 0; writeln(a,b); readln; end. C. program jika; uses crt; var A : integer; b : string; begin clrscr; write( ‘A = ‘);readln(a); if A < 6 then b = ‘A’; if A > 0 then b := 6; writeln(a,b); readln;

WHILE(PIL<'A')OR(PIL>'Q')DO BEGIN GOTOXY(10,23);WRITE('PILIH ANDA?');READLN(PIL); [kode3] END; CLRSCR; IF PIL='A' THEN BEGIN WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R+L)+T; WRITELN('Y1',Y:20:1); [kode 4] END;

D. program jika; uses crt; var A : integer; b : string; begin clrscr; write( ‘A = ‘);readln(a) if A < 6 then b := ‘A’; if A > 6 then b := 0; writeln(a,b); readln; end. E. program jika; uses crt; var A : integer; b : string; begin clrscr; write( ‘’A = ‘‘);readln(a); if A < 6 then b := ‘A’; if A > 6 then b := 0; writeln(a,b); readln; end.

IF PIL='B' THEN BEGIN WRITE('A');READLN(L); WRITE('b');READLN(T); WRITE('C');READLN(R); Y:=(L+T)-R; WRITELN('Y2',Y:9:2); END; IF PIL='C' THEN [kode 5] BEGIN WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R+L)/T; WRITELN('Y3',Y:9:2); END;

Untuk soal 16 s.d 20 perhatikan penggalan program berikut:

IF PIL='D' THEN BEGIN 4

WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R+L)*T; WRITELN('Y4',Y:9:2); END;

END; IF PIL='K' THEN BEGIN WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R/L)/T; WRITELN('Y11',Y:20:2); END;

IF PIL='E' THEN [kode 6] BEGIN WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R-L)+T; WRITELN('Y5',Y:9:2); END;

IF PIL='L' THEN BEGIN WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R/L)*T; WRITELN('Y12',Y:20:2); END;

IF PIL='F' THEN BEGIN WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R-L)-T; WRITELN('Y6',Y:9:2);

IF PIL='M' THEN BEGIN WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R*L)+T; WRITELN('Y13',Y:20:2); END;

END; IF PIL='G' THEN BEGIN WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R-L)/T; WRITELN('Y7',Y:9:2);

IF PIL='N' THEN BEGIN WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R*L)-T; WRITELN('Y14',Y:20:2);

END; IF PIL='H' THEN BEGIN WRITE('A');READLN(R); [kode 7] WRITE('B');READLN(L); WRITE('C');READLN(T); Y:=(R-L)*T; WRITELN('Y8',Y:9:2);

END; IF PIL='O' THEN BEGIN WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R*L)/T; WRITELN('Y15',Y:20:2);

END; IF PIL='I' THEN BEGIN WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R/L)+T; WRITELN('Y9',Y:20:1); END;

END; IF PIL='P' THEN BEGIN WRITE('A');READLN(R); WRITE('B');READLN(L); WRITE('C');READLN(T); Y:=(R*L)*T; WRITELN('Y16',Y:9:2); END; END.

IF PIL='J' THEN BEGIN WRITE('A');READLN(R); WRITE('b');READLN(L); WRITE('C');READLN(T); Y:=(R/L)-T; WRITELN('Y10',Y:20:2);

16. Dari program diatas maka akan dihasilkan : 5

A. B. C. D. E.

Pilihan menu Pilihan if Pilihan jika Pilihan akibat Pilihan sebab

17. Kode 1 menyatakan : A. Pilihan pil hanya 1 huruf B. Pilihan pil hanya 2 huruf C. Pilihan pil hanya 1 angka D. Pilihan pil hanya 2 angka E. Pilihan pil hanya A saja

CLRSCR; GOTOXY(2,2);WRITELN('NILAI A'); GOTOXY(12,2);WRITELN('NILAI B'); GOTOXY(22,2);WRITELN('NILAI A+B'); FOR I := 1 TO 10 DO [kode 1] BEGIN GOTOXY(2,2+I);WRITE(2*I); [kode 2] GOTOXY(12,2+I);WRITE(2+2*I); GOTOXY(22,2+I);WRITE(2+I+2*I+2); END; READLN; END.

18. Kode 2 menyatakan : A. Nilai x = 10 dan y = 2 B. Nilai x = 2 dan y = 10 C. Nilai x = 0 dan y = 10 D. Nilai x = 2 dan y = 0 E. Nilai x = 2 dan y = 2

PROGRAM ULANG1; USES CRT; VAR I: INTEGER; N1,N2,JUMLAH : REAL; NAMA:STRING;

19. Kode 3 menyatakan : A. Meminta masukan huruf B. Meminta masukan angka C. Meminta masukan 1 D. Meminta masukan A E. Meminta masukan huruf dan angka

BEGIN CLRSCR; FOR I := 1 TO 3 DO BEGIN GOTOXY(2,2);WRITELN('NAMA'); GOTOXY(2,4);WRITELN('NILAI 1'); GOTOXY(2,6);WRITELN('NILAI 2'); GOTOXY(12,2);READLN(NAMA); GOTOXY(12,4);READLN(N1); [kode 3] GOTOXY(12,6);READLN(N2); CLRSCR; JUMLAH:=N1+N2; [kode 4] GOTOXY(2,10);WRITELN(N1,N2,JUMLA H); END; READLN; END.

20. Kode 4 menyatakan: A. Hasil pilhan A B. Hasil pilhan 1 C. Hasil pilhan B D. Hasil pilhan 2 E. Hasil pilhan A atau 1 21. Kode 5 menyatakan : A. Pilihan C B. Pilihan D C. Pilihan B D. Pilihan A E. Pilihan E

NAMA FILE : LAT11.PAS PROGRAM FORTODO; USES CRT; VAR X : INTEGER; CEL,FAH : REAL; BEGIN CLRSCR; WRITELN(‘CELCIUS FAHRENHEIT ’); CEL := 0; FOR X := 1 TO 100 DO BEGIN FAH := 1.8*CEL+32; [kode 5] WRITE(CEL:8:2,FAH:14:2); CEL := CEL+0.5; END; REPEAT UNTIL KEYPRESSED; END.

22. Kode 6 menyatakan: A. Pilihan E B. Pilihan D C. Pilihan ke E D. Pilihan ke 4 E. Pilihan ke 1 23. Kode 7 menyatakan : A. Meminta masukan H B. Meminta masukan G C. Meminta masukan A D. Meminta masukan B E. Meminta masukan Pilihan Untuk soal 24 s.d 30 penggaln program berikut:

perhatikan

PROGRAM ULANG1; USES CRT; VAR I: INTEGER; BEGIN

PROGRAM ULANG2; USES CRT; VAR I : INTEGER; 6

BEGIN CLRSCR; GOTOXY(2,2);WRITELN('NO'); GOTOXY(12,2);WRITELN('A'); GOTOXY(22,2);WRITELN('B'); GOTOXY(32,2);WRITELN('A+B'); [ kode 6]

30. Kode 7 menyatakan : A. Menulis I B. Menulis nilai A C. Menulis nilai B D. Menulis nilai A dan B E. Menanyakan nilai A ESSAY Dari persamaan berikut: 1. P = Q + R 2. F = K Q1 Q2 / R2 Buatlah : Programnya dengan ketentuan A. Kondisi jika Q < 6 maka R = 3 Jika Q >= 6 maka R = 6 B. Gotoxy C. Pengulangan for … to … do

FOR I:= 1 TO 10 DO BEGIN GOTOXY(2,2+I);WRITE(I); GOTOXY(12,2+I);WRITE(2*I); [kode 7] GOTOXY(22,2+I);WRITE(3*I); GOTOXY(32,2+I);WRITE(2*I+3*I); END; READLN; END. 24. Kode 1 menyatakan : A. Pengulangan sebanyak 8 kali B. Pengulangan sebanyak 10 kali C. Pengulangan sebanyak 12 kali D. Pengulangan sebanyak 6 kali E. Pengulangan sebanyak 4 kali 25. Kode 2 menyatakan : A. Penulisan nilai I B. Penulisan nilai A C. Penulisan nilai B D. Penulisan nilai C E. Penulisan nilai A+B 26. Kode 3 menyatakan : A. Menuliskan nilai N1 B. Menanyakan nilai N1 C. Memberikan nilai N1 D. Menuliskan nilai N2 E. Memasukan nilai N2 27. Kode 4 menyatakan : A. Menanyakan rumus jumlah N1 dan N2 B. Menuliskan rumus jumlah N1 dan N2 C. Menanyakan jumlah N1 dan N2 D. Meminta jumlah N1 dan N2 E. Menghasilkan jumlah N1 dan N2 28. Kode 5 menyatakan : A. Menanyakan rumus B. Menulis rumus C. Membuat rumus D. Menyeleksi rumus E. Membuat rumus 29. Kode 6 menyatakan : A. Menulis jumlah A B. Menulis jumlah A dan B C. Menulis jumlah B D. Menulis A E. Menulis B

7