|
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
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. Output
dari program berikut :
Var A,B,C :
integer;
Begin
A:=5;
B := 5; C := A-B; Writeln(Not C); End.
A. 0
B. –1 Ö C. 1 D. 3
47.
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);
48. 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
49. 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
50. 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
51. 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
52. Type
data yang memungkinkan untuk diurutkan secara diskrit, disebut sebagai tipe
data yang ...
A. Predecessor B.
Ordinal (*) C.
Successor D.
Pointer
53.
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
54. Output
program berikut :
Type coolor =
(merah,hijau,kuning,ungu,jingga,pink);
Var a : byte;warna,col,c : coolor;
Begin
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
55. 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
Untuk Esai
Pelajari contoh2 dari Struktur Kontrol & Record
Tidak ada komentar:
Posting Komentar