1. Var
A,B : Integer;
Procedure Uji(A : Integer);
Begin
A := A + 1; Write(A:3);
End;
Begin
A := 2; Write(A:3); Uji(A); Write(A:3); End.
2. Jika pada soal no. 2 statemen Procedure Uji(A : integer) diganti dengan statemen Procedure(var A : integer) maka outputnya menjadi
A. 2 3 3 B. 2 3 2 C. 3 2 3 D. 1 2 3
3. Type
Bahasa = (Pascal, BASIC, COBOL, Rakitan);
Hasil dari : Ord(Succ(Pred(Pred(COBOL)))) = .....
A. 0 B. 1 C. Pascal D. BASIC
4. Var I : Integer ;
Begin
For I := 1 To 2 Do Write(‘ Uas ’);
Writeln(‘Oke‘); End.
Output dari program diatas adalah .....
A. Uas B. Uas Oke C. Uas Uas D. Uas Uas Oke
Uas Uas Oke Oke
Oke
5. Agar keluarannya menjadi 4 5 6 maka programnya adalah :
A. Var K : Integer; C. Var K : Integer;
Begin Begin
K := 3; K := 3;
Repeat Repeat
Write(K); Inc(K); Inc(K); Write(K);
Until K > 5; End. Until K > 5; End.
B. Var K : Integer; D. Var K : Integer;
Begin Begin
K := 3; K := 3;
Repeat Repeat
Write(K); Inc(K); Inc(K); Write(K);
Until K < 5; End. Until K < 5; End.
6. Function Hasil(Var A,B : Integer) : Integer;
Begin
A := A + B; Hasil := A-B; End;
Var X,Y : Integer;
Begin
Readln(X); Readln(Y);Writeln(Hasil(X,Y); End.
7. Kal1 := ‘ ujian ’; Kal2 :=’ akhir ’;
Hasil dari CONCAT(Kal2,Kal1, “Pascal”) adalah :
A. ujian akhir B. akhir ujian C. ujian akhir Pascal D. akhir ujian Pascal
Manakah pendeklasian tipe record yang benar dibawah ini :
A. Type C. Type
RecDosen = Record; RecPegawai : Record
NIP : longint; nama : string [15]; End; Begin
RecMhs = Record; nopeg = integer; nama = string [20]; End;
NPM : integer; Nama : string [15]; End;
B. Type D. semua salah
Nilaiujian = Record
UTS,UAS : real; End;
DataMhs = Record
NPM : integer; Nama : string [15]; Nilai : Nilaiujian; End;
8. Jika diketahui : Himp_A := [1,2,3,4,6..8,10]; Himp_B := [4..7,10,13]; Himp_C := [2..4,7..9];
Maka hasil dari (A*B)-C adalah :
A. [6,10] B. [ ] C. [6,7,9,10] D. [4..7,8..9]
9. Prof. Niklaus Wirth memperkenalkan kompiler bahasa Pascal pertamakali untuk komputer .....
A. CDC 5000 b. CCD 5000 c. CCD 6000 d. CDC 6000
10. Yang termasuk user defined data type/tipe data didefinikan pemakai adalah :
A. Array, record, subrange type B. Integer, real, string C. Enumerated, subrange type D. Enumerated, real, string
11. Prosedur standar Clrscr adalah untuk menghapus layar namun untuk menggunakannya unit yang harus disebutkan dalam program adalah :
A. CRT B. User Screen C. CTR D. Graph
12. Dibawah ini semua benar tentang identifier, kecuali :
A. Tidak boleh mengandung blank
B. Tidak boleh mengandung simbol-simbol khusus, kecuali garis bawah
C. Panjangnya bebas, tetapi hanya 63 karakter pertama yang dianggap signifikan
D. Terdiri dari gabungan huruf dan angka, karakter pertama harus berupa huruf, huruf besar dan kecil dianggap berbeda
13. Baris komentar pada Pascal harus diletakkan diantara tanda .....
A. { } atau ( ) B. ‘ ‘ atau { } C. ( ) atau ‘ ‘ D. (* *) atau { }
14.
15. Looping pada WHILE DO dikerjakan minimal ... kali, sedangkan pada REPEAT...UNTIL dikerjakan minimal .... kali.
A. 1 0 B. 1 1 C. 0 1 D. 0 0
16. Var a,b : real; c:integer;
Begin
A := Trunc(2.85);
B := Frac(1.35);
C := Round(3.45);
Writeln(a:5:2);
writeln(b:5:2);
writeln(c);End.
17. Pernyataan dibawah ini semua benar kecuali :
A. Prosedur Val mengubah sebuah string menjadi nilai numerik
B. Prosedur STR mengubah sebuah nilai numerik menjadi string
C. Fungsi POS untuk mengambil sebagian string dari suatu string
D. Fungsi POS untuk menentukan letak sebuah string pada string lain
18. Beda Procedure dengan Function adalah ...
A. Procedure mengembalikan suatu nilai, sedangkan function tidak
B. Procedure tidak mengembalikan suatu nilai, function mengembalikan suatu nilai
C. Procedure dan function mengembalikan suatu nilai
D. Procedure dan function tidak mengembalikan suatu nilai
19. Apakah output program dibawah ini, jika a = 39 dan b = 18 ......
Var a,b,c : integer;
Begin Readln(a,b);
If a >= b then c:= a div b
Else c:= a mod b;writeln(c); End.
A. 1 B. 2 C. 3 D. 16
20. Perhatikan program dibawah ini, outputnya adalah .....
Var i,tot : integer;
Begin
i := 1;tot :=0;
Repeat
tot := tot + i;inc(i);
Until i >5;
Writeln(tot); End.
21. IF (a>5) AND (b<=3) THEN Writeln(‘UJIAN’) ELSE Writeln(‘PASCAL’);
Jika a=7 dan b=7maka hasil yang akan dicetak adalah :
A. UJIAN B. PASCAL C. ujian D. pascal
22. Suatu program terpisah dalam blok sendiri yang berfungsi sebagai subprogram disebut :
A. fungsi B. prosedur C. blok statemen D. looping
23. Program untuk menghasilkan output : 5 4 3 2 1 adalah.....
A. var i: byte; C. var i: integer;
begin begin
For i:= 5 to 1 Do Write(i);end. For i:= 5 downto 1 Do Writeln(i);end.
B. var i: integer; D. var i: byte;
begin begin
For i:= 1 to 5 Do Write(i);end. For i:= 5 downto 1 Do Write(i);end.
24. Ouput program di bawah ini adalah :
Procedure satu;
Begin Writeln(‘PASCAL’);writeln(‘------------‘);end;
Procedure dua;
Begin Writeln(‘BAHASA’);end;
Begin
dua;Writeln(‘------------’);satu;Writeln(‘------------‘); END.
A. PASCAL B. BAHASA C. PASCAL D. BAHASA
------------ ------------ ------------ ------------
------------ PASCAL BAHASA ------------
BAHASA ------------ ------------ PASCAL
----------- ------------ ------------ ------------
25. Perhatikan program dibawah ini, jika n=5 maka outputnya adalah .....
Var i,n,bil : integer;
Begin
Readln(n);bil:=1; For i := 1 To n Do
bil := bil * i; Writeln(bil); End.
A. 120 B. 24 C. 16 D. 5
26. Deklarasi label digunakan jika pada penulisan program akan menggunakan statemen.....
A. Writeln B. Readln C. Goto D. If Then
27. Type Abjad = ‘A’...’Z’ trmasuk ke dalam tipe data .....
A. Enumerated type B. Subrange atau subjangkauan C. A dan B benar D. semua salah
28. Perhatikan program dibawah ini, outputnya adalah .....
Var i,j : byte;
Begin
For i := 1 To 3 Do
Begin
For j := 3 DownTo i Do
Write(j);
writeln; End; End.
A. 123 B. 321 C. 1 D. 3
12 32 12 32
1 3 123 321
29. Perhatikan program dibawah ini, apakah outputnya ?
Type
Kota = (Bogor,Depok,Jakarta,Bandung,subang,cirebon,tasikmalaya);
Var i : integer;
Begin
For i := ord(depok) to ord(tasikmalaya) Do
If Odd(i) Then Write(i);
End.
A. 123456 B. 125 C. 135 D. 246
30. Yang tidak termasuk dalam Blok Deklarasi adalah :
A. Count B. Procedure C. function D. Type
31. Output dari program berikut :
Var a,b : integer;
Begin
For a := 1 to 5 Do
For b:= 1 to a Do
Write(b); End.
A. 1 B. 12345 C. 12345 D. 112123123412345
12 1234
123 123
1234 12
12345 1
32. Statemen Readln tanpa argumen berfungsi untuk... :
A. menunda eksekusi program sampai tombol enter ditekan
B. menampilkan output pada layar sampai tombol Enter ditekan
C. jawaban A dan B benar D. Jawaban A dan B salah
33. Prosedur dan fungsi didefinisikan pada pascal didefinisikan pada bagian ...
A. Header(judul) B. Blok C. Deklarasi D. Sub program
34. Jenis data yang termasuk “Standard Data Type” dalam pascal adalah
A. Integer, real, char B. Integer, real, char, boolean C. Integer, boolean, string D. Integer, real, char, string
35. Blok /body program pada struktur program Pascal terdiri dari dua bagian, yaitu :
A. Deklarasi dan Variabel B. Judul dan Deklarasi C. Deklarasi dan Pernyataan D.Variabel dan Pernyataan
36. Perhatikan program dibawah ini, apakah outputnya ?
Var a : real; b,c : integer;
Begin
B:=4; For c := 1 to 3 Do While b < 5 Do
Begin Write(b); Write(Succ(b)); Inc(b); End; End.
A. 345 B. 344534453445 C. 345345345 D. 3445
37. Output dari program berikut :
Var i : integer;
Begin I :=1; While i <= 5 Do
Begin If 10 Mod I = 0 Then Writeln(10 Div I);
I := I + 1; End; End.
A. 1 2 5 B. 10 C. 5 D. 2 5 10
5
2
38. Suatu program pascal yang paling sederhana adalah program yang terdiri dari :
A. Var B. Program Contoh; C. Procedure Contoh; D. Begin
Begin Begin begin End.
End. End. End.
39. Dibawah ini yang bukan merupakan reserved word Bahasa Pascal adalah :
A. Interface B. Image C. Implementation D. Packed
40. Dibawah ini manakah yang merupakan salah satu reserved word Pascal :
A. System B. Clrscr C. External D. DOS
41. Tipe data/jenis data dalam Pascal terbagi tiga kelompok yaitu :
A. Terstruktur, Konstan, Pointer B. Integer, Real, Boolean C. Buatan, bulat, integer D. Sederhana, terstruktur, pointer
42. Tipe data/jenis data sederhana dapat digolongkan menjadi tipe data :
A. Standar & Terstruktur B. Standar & User Defined C. Pointer & user Defined D. Record & Array
43. String, Char, integer, real dan boolean termasuk ke dalam tipe data :
A. User defined B. Petunjuk C. Standar D. sederhana
44. Array dan record merupakan tipe data ....
A. Terstruktur B. Standar C. User Defined D. Enumerated
45. Struktur program Pascal terdiri dua bagian utama yaitu :
A. Judul Program, Blok Program C. Judul program, Blok deklarasi
B. Blok deklarasi, Pernyataan D. Judul program, Blok pernyataan
46. Jika diberikan deklarasi sebagai berikut :
Const a = 4; Var b,c : integer;
Maka statemen berikut akan menghasilkan output yang sama, kecuali:
A. B :=0; C := 2 *b+1; C. B := 5; C := 0;
Case C of if C < B then write(b)
0 : write(B);
1 : write(a+1);
2 : write(c); End; D. B := 0;C :=6;
Repeat
B. For B := 1 to A do b := b + 1;
If B = A then write(b); Until B := pred(c);
write(b);
47. Output dari program berikut :
Var x,y : integer;
Begin For x := 1 to 2 do
Begin For y := 1 to x do Writeln(y);
Writeln(‘oke’); End;End.
A. 1 B. 1 C. 1 D. 1
1 oke oke 1
2 1 1 oke
oke oke 2 2
2 oke oke
oke
48. Perhatikan program dibawah ini
Var x,y : integer;
Begin For x := 1 to 2 do
Begin For y := 1 to 2 do Write (y);
Write (‘oke’); End;End.
A. 1 B. 1 C. 12oke12 oke D. 12oke12oke
2 2
oke oke
1 1
oke 2
oke
49. Apakah output program berikut :
procedure satu;
Begin Writeln(‘Procedure satu‘); End;
procedure dua; Begin Writeln(‘Procedure dua‘); End;
Begin Writeln(‘Program utama‘); Dua; satu; End.
A. Prosedur satu B. Prosedur dua C. Program utama D. Program utama (*)
Prosedur dua Prosedur satu Prosedur satu Prosedur dua
Prosedur utama Prosedur utama Prosedur dua Prosedur satu
50. Output program berikut :
procedure dua(var g,h : integer; i : integer);
Begin Inc(g); Dec(h); End;
procedure satu(var d,e,f : integer);
Begin Inc (d,f); dua(d,e,f); End;
Begin A :=1; B := 3; C := 5;Writeln(A:2),B:2,C:2);
Satu(A,B,C); Writeln(A:2),B:2,C:2); End.
A. 1 3 5 B. 1 3 5 C. 1 3 5 (*) D. 1 3 5
1 3 5 2 4 5 7 2 5 7 3 6
51. Type data yang memungkinkan untuk diurutkan secara diskrit, disebut sebagai tipe data yang ...
A. Predecessor B. Ordinal (*) C. Successor D. Pointer
52. Var e,f,g,h : integer;
Begin
For e := 1 to 2 do
Begin
For f := 2 downto e do
Begin
Write (e); writeln(f); End;End; End.
Maka output program diatas adalah :
A. 12 (*) B. 21 C. 12 D. 12
11 11 22 11
22 22 21 23
53. Output program berikut :
Type coolor = (merah,hijau,kuning,ungu,jingga,pink);
Var a : byte;warna,col,c : coolor;
Begin
Col := kuning; c := pred(col); a := 3;
While a <= 5 do
Begin
If c = ungu then
Begin
Write (a); C := pred(warna); Dec(a); End
Else
Begin
C := succ(warna);write (a); inc(a); End; End; End.
A. 3 B. 345 (*) C. 354 D. 34
4 5
5
54. Procedure hitung(a,b : integer, var c : integer);
Begin
C := a+ b;
End;
Var x,y,z : integer;
Begin
X :=2; Y := 3;
Hitung(x,y,z); Write(x,y,z); End.
Hasil yang diperoleh adalah :
A. 352 B. 235 (*) C. 523 D. 325
55. Dari soal no. 56 yang merupakan pengiriman parameter secara acuan(by reference) :
A. variabel A B. variabel B C. variabel C (*) D. variabel A dan B
56. Procedure hitung;
Var x,y : real;
Begin
X:=4; Y := Sqr(x);Write(Y:6:2);
End;
Begin
Hitung; End.
Output program diatas adalah :
A. 16 B. 2 C. 16.00 (*) D. 2.00
57. Function fungsi2(y:integer):integer;
Begin
Fungsi2 := Y * 2; End;
Function fungsi1(x : integer):integer;
Begin
Fungsi1 := fungsi2(x) + 5; End;
Writeln(fungsi1(3)); End.
Output yang dihasilkan :
A. 15 B. 6 C. 11 (*) D. 9
58. Prosedur standar pada operasi string yang berfungsi digunakan untuk mengubah nilai string menjadi nilai numerik :
A. VAL B. STR C. POS D. INT
59. Prosedur standar pada operasi string yang berfungsi digunakan untuk mengubah nilai numerik menjadi nilai String :
A. VAL B. STR C. POS D. INT
60. Fungsi standar yang dapat digunakan untuk membulatkan nilai dari real x ke nilai longInt terdekat adalah :
A. Int B. Concat C. Trunc D. Round
82. Procedure HITUNG(Var E,F : Integer);
Begin
F := SQR(E) + 1; Write(F:3);
End;
Var C,D : Integer;
Begin
D:= 4; C := 9; Write(C:3); HITUNG(C,D);
Write(D:3); End.
61. Var I : Integer ;
Begin
For I := 1 To 2 Do Writeln(‘UJIAN ’); Writeln(‘UTAMA;‘)
End.
Output dari program diatas adalah .....
A. UJIAN B. UJIAN C. UJIAN UJIAN D. UJIAN
UTAMA UTAMA UTAMA UJIAN
UJIAN UTAMA
UTAMA
83. Var K : Integer;
Begin
K := 3;
Repeat
Inc(K); Write(K);
Until K > 5; End.
Output dari program diatas adalah .....
A. 345 B. 3456 C.. 456 D. 445566
62. Function Hasil(Var A,B : Integer) : Integer;
Begin
A := A + B; Hasil := A-B; End;
Var X,Y : Integer;
Begin
Readln(X); Readln(Y);Writeln(Hasil(X,Y); End.
63. Yang termasuk user defined data type/tipe data didefinikan pemakai adalah :
A.Enumerated, subrange type C. Array, record, subrange type
B. Integer, real, string D. Enumerated, real, string
64. Apakah output program dibawah ini, jika a = 39 dan b = 18 ......
Var a,b,c : integer;
Begin Readln(a,b);
If a >= b then c:= a div b Else c:= a mod b; writeln(c); End.
A. 1 B. 2 C. 3 D. 16
65. Jenis-jenis tipe file pada Pascal adalah………
A. Text, bertipe, random C. Bertipe, tidak bertipe, random
B. Text, tidak bertipe, berurutan D. Text, bertipe, tidak bertipe
66. Program Uji;
Var cetak : Text;
Begin
Assign (cetak, ‘contoh.txt’);
Rewrite(cetak);
Writeln(cetak, ’UJIAN UTAMA’);
Writeln(cetak, ‘PEMROGRAMAN PASCAL’);
Close(cetak); End.
Yang merupakan nama variabel file text pada program diatas adalah
A. cetak B. contoh.txt C. Uji D. Writeln
67. Type Abjad = (senin,selasa,rabu,kamis) termasuk ke dalam tipe data .....
A. Enumerated type B. Subrange atau subjangkauan C. A dan B benar D. semua salah
68. Perhatikan program dibawah ini, apakah outputnya ?
Type
Kota = (Bogor,Depok,Jakarta,Bandung,Subang,Cirebon,Tasikmalaya,Ciamis,Garut);
Var i : integer;
Begin
For i := ord(Jakarta) to ord(Tasikmalaya) Do
If Odd(i) Then Write(i);
End.
A. 35 B. 357 C. 135 D. 1357
69. Blok /body program pada struktur program Pascal terdiri dari dua bagian, yaitu :
A.Deklarasi dan Variabel C. Deklarasi dan Pernyataan
B.Judul dan Deklarasi D.Variabel dan Pernyataan
70. Output dari program berikut :
Var a,b : integer;
Begin
For a := 1 to 5 Do
For b:= 1 to a Do Write(b); End.
A. 1 B. 12345 C. 12345 D. 112123123412345
12 1234
123 123
1234 12
12345 1
71. Perhatikan program dibawah ini, apakah outputnya ?
Var a : real; b,c : integer;
Begin
B:=3; For c := 1 to 3 Do While b < 5 Do
Begin Write(b); Write(Succ(b)); Inc(b); End; End.
A. 345 B. 344534453445 C. 345345345 D. 3445
72. Tipe data/jenis data dalam Pascal terbagi tiga kelompok yaitu :
A.Terstruktur, Konstan, Pointer C. Buatan, bulat, integer
B. Sederhana, terstruktur, pointer D. Integer, Real, Boolean
73. Jenis data terstruktur yang dibuat sebagai suatu variabel yang menyimpan alamat dari suatu obyek ( dapat berupa variabel, konstanta bertipe atau subprogram ) adalah….
B. Array B. Record C. Pointer D. File
74. Var A,B : string; E : integer;
Begin A := ‘PUTIH’; B :=’MERAH’;
For E := Length (A) Downto 1 Do
Write(Copy(B, E, 1));
End.
Output dari program diatas adalah:
A. HAREM B. HITUP C. PUTIH D. MERAH
75. Prosedur standar pada operasi string yang berfungsi digunakan untuk mengubah nilai string menjadi nilai numerik :
A. VAL B. STR C. POS D. INT
76. Deklarasi Label harus dituliskan bila pada program digunakan statemen…..
A. BEGIN B. READ C. WRITE D. GOTO
77. Procedure hitung(A,B : integer, Var C : integer);
Begin
C := A + B;
End;
Var x,y,z : integer;
Begin
X :=2; Y := 3; Z := 8;
Hitung(X,Y,Z); Write(Z); End.
Hasil yang diperoleh adalah :
A. 8 B. 5 C. 3 D. 2
78. Function fungsi2(y:integer):integer;
Begin
Fungsi2 := Y * 2; End;
Function fungsi1(x : integer):integer;
Begin
Fungsi1 := fungsi2(x) + 5; End;
Writeln(fungsi1(3)); End.
Output yang dihasilkan :
A. 11 B. 6 C. 9 D. 15
79. Apakah output dari program berikut :
Var A : Array [1..4] of integer; B,C : integer; D : real;
Begin
C := 0; A[1] := 20; A[2] := 10; A[3] := 2; A[4] := 8;
For B : = 1 to 4 DO
C := C + A[B];
D := C/4; Write(D:3:1); End.
A . 10.5 B. 10.00 C. 10 D. 10.0
80. Apakah output dari program berikut :
Var A,B,C : String[30];
Begin
A:= ‘BAHASA’; B := ‘PEMROGRAMAN’;
Delete(A,3,2); Writeln(A); Insert(’ASAM’,A,5); writeln(B); End.
A . BASA B. BASA C. HA D. BASA
BASAASAM ASAMBASA HAASAM PEMROGRAMAN
81. Apakah output dari program berikut :
Var A,B,C : Array [1..2,1..2] of integer; M,N : integer;
Begin
A[1,1] := 1; A[2,1] := 0; B[1,1] := 1; B[2,1] := 0
A[1,2] := 2; A[2,2] := 1; B[1,2] := 4; B[2,2] := 6;
For M : = 1 to 2 DO
Begin
For N := 1 to 2 Do
Begin
C[M,N] := A[M,N] + B[M,N]; Write(C[M,N],’ ‘);
End;
Writeln; End; End.
A . 2 6 B. 2 0 C. 2 0 D. 2 7
0 7 6 7 7 6 6 0
82. Type
Bahasa = (Pascal, BASIC, COBOL, Rakitan);
Hasil dari : Ord(Succ(Pred(Pred(COBOL)))) = .....
A. Pascal B. BASIC C. 0 D. 1
83. Prosedur Standar Assign pada tipe file digunakan untuk :
84. Prosedur standar Rewrite pada tipe file digunakan untuk : ……………………
85. Prosedur Reset pada tipe file digunakan untuk : ……………………..
86. Prosedur standar yang dapat digunakan untuk membuka file baru atau yang belum pernah ada di disk, adalah : …………..
87. Prosedur standar yang dapat digunakan untuk membuka file yang sudah ada di disk : …………….
88. Untuk mengetahui posisi direktori yang aktif pada suatu drive digunakan prosedur standar: …………………..
89. Prosedur standar yang digunakan untuk membuka file yang telah ada untuk keperluan menambah data ke dalam file adalah : ………………..
90. Tanda =, <, >, <>, <=, >= termasuk dalam operator ……….
91. Fungsi standar yang dapat digunakan untuk membulatkan nilai dari real x ke nilai longInt terdekat adalah : …………………..
92. Tipe data pada program pascal yang bersifat statis adalah tipe data ………………… dan ……………………
93. Tipe data pada program pascal yang bersifat dinamis adalah tipe data …………………
94. Type Hari = (minggu,senin,selasa,rabu,kamis,jum’at,sabtu); deklarasi tersebut termasuk kedalam tipe data : …………..
95. Didalam pascal dikenal 3 macam tipe dari file, yaitu :……………………………
96. Prosedur standar yang digunakan untuk segera merekamkan data yang ada di buffer ke file dengan sintak :…………………
97. Prosedur standar yang digunakan untuk membuka file yang telah ada untuk keperluan menambah data ke dalam file adalah :…………………
98. Prosedur Standar Release digunakan untuk……………………….
99. Prosedur standar Flush digunakan untuk :
100. Prosedur standar Assign pada tipe file digunakan untuk :
101. Prosedur standar Rewrite pada tipe file digunakan untuk :
102. Prosedur Reset pada tipe file digunakan untuk :
»» SELENGKAPNYA...
