Berilah Tanda Silang pada jawaban yang benar!
1. Perusahaan pembuat sistem operasi windows adalah…
- Linux c. Aple e. Blank On
- Macintos d. Microsoft
2. Bahasa Pemrograman Pascal merupakan bahasa pemrograman berbasis…
- windows c. Linux e. Macinthos
- Dos d. Unix
3. Siapa pencipta program pascal…
- Tomas c. Aristoteles e. Pascal
- Blaise d. Niclaus wirth
4. Dos Kepanjangan dari…
a. Disk Operasi System
b. Disk Operation System
c. Disk Operating System
d. Diskette Operation System
e. Diskette Operating System
5. Tipe bilangan bulat dalam bahasa pemrograman Pascal dikenal sebagai tipe …
- Boolean c. Integer e. Char
- String d. Real
6. Tipe variabel logika yang memiliki nilai true (benar) atau false (salah) saja adalah ….
a. Boolean c. Integer e. Char
b. String d. Real
7. Tahun berapa pascal diciptakan…
a. 1951 c. 1971 e. 1991
b. 1961 d. 1981
8. Instruksi untuk melakukan RUN dalam program pascal…
- F1 c. Alt+F4 e. Ctrl+F9
- Ctrl+F5 d. Alt+F9
9. Prosedure Standar Clrscr adalah untuk menghapus layar namun untuk menggunakannya unit yang harus disebutkan dalam program adalah….
- CTR c. Screen e. Dos
- RCT d. CRT
10. Sebuah blok percabangan dalam kode program dapat diketahui dengan adanya keyword tertentu, misalnya ….
a. Start c. Turn e. If
b. Choose d. End
11. Nilai dari 60 MOD 36 adalah…
- 1 c. 2 e. 3
- 24 d. 96
12. Interval tipe data byte adalah…
- 0 sd. 255 c. -255 sd. 255 e. -128 sd. 127
- 0 sd. 65535 d. -32768 sd. 32767
13. Berikut ini yang bukan termasuk tipe data integer…
- word c. integer e. byte
- longint d. real
14. Nilai dari (5 shl 2) + (20 shr 2)adalah…
- 12 c. 29 e. 25
- 1 d. 21
15. Pernyataan BEGIN dalam pemrograman pascal selalu berpasangan dengan pernyataan ….
a. Do c. End e. Until
b. Then d. Repeat
16. Dalam Pascal rumus: round(sqrt(sqr(5)/sqrt(4))
Akan menghasilkan…
a. 5 c. 4 e. 3
b. 2 d. 1
17. perintah gotoxy(3,2) kursor akan menuju ke…
- baris 2 kolom 2 d. baris 3 kolom 2
- kolom 3 baris 2 e. baris 2 kolom 3
- kolom 3 baris 3
18. Variabel x=‘Turbo’, dalam Pascal dimasukkan dalam tipe data…
- Char c. Sortint e. String
- Integer d. Longint
19. Berikut ini merupakan potongan dari suatu program Pascal:
for i:=1 to 5 do
write(’i ‘);
Jika i bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah…
- 2 3 4 c. i i i i e. 0
- i i i i i d. 1 2 3 4 5
20. Jika program dianggap benar dan lengkap, maka output dari pernyataan :
Writeln(‘Ujian Kenaikan Kelas’);
Write(‘Kelas X’);Write(‘Semester II’);
Writeln(‘Mudah dan Menyenangkan’);
adalah ....
- Ujian Kenaikan Kelas Kelas X
Semester II
Mudah dan Menyenangkan
- Ujian Kenaikan Kelas
Kelas X Semester II
Mudah dan Menyenangkan
- Ujian Kenaikan Kelas
Kelas XSemester II Mudah dan Menyenangkan
- Ujian Kenaikan Kelas
Kelas XSemester IIMudah dan Menyenangkan
- Ujian Kenaikan Kelas
Kelas X Semester IIMudah dan Menyenangkan
21. Berikut ini yang bukan penulisan pernyataan if yang benar…
- if nilai < 75 then;
writeln(‘Tidak Tuntas’);
- if nilai < 75 then
begin
writeln(‘Tidak Tuntas’);
end.
- if nilai < 75 then
Begin
writeln(‘Tidak Tuntas’)
end;
- if nilai < 76 then
writeln(‘Tidak Tuntas’)
else
writeln(‘Tuntas’);
- if nilai < 76 then;
writeln(‘Tidak Tuntas’);
else
writeln(‘Tuntas’);
22. Pernyataan WHILE dalam pemrograman pascal selalu berpasangan dengan pernyataan ….
- Then c. End e. Repeat
- Do d. Until
23. interval tipe data integer adalah…
- 0 sd. 2147483 d. -2147483 sd, 2147483
- 0 sd. 255 e. 2,9x10-39 sd. 1,7x1038
- -32678 sd.32678
24. Looping While Do dikerjakan minimal…kali, sedangkan pada Repeat Until dikerjakan minimal…kali
a. 0 0 c. 1 0 e. Tidak ada
b. 0 1 d. 1 1 jawaban
25. Yang tidak termasuk blok Deklarasi adalah…
- Type c. Procedure e. Tidak ada
- Var d. Function jawaban
26. Berikut ini potongan program dalam pascal yang akan menghasilkan output : 5 4 3 2
- For i:=5 to 2 do writeln(i,’ ’);
- For i:=2 to 5 do writeln(i,’ ’);
- For i:=5 to 2 downto 2 do writeln(i,’ ’);
- For i:=5 downto 2 do writeln(i,’ ’);
- For i:=5 downto 2 to 2 do writeln(i,’ ’);
27. Berikut ini merupakan potongan dari suatu program pascal :
For i:= 4 to 2 do
Write(i,’ ‘);
Jika i bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah…
- 4 3 2 c. 2 3 4 e. Tidak ada
- 3 d. i i i output
28. Berikut ini merupakan potongan dari suatu program pascal :
For i:= 2 to 8 do
If (I mod 3 = 0) then
Write(i,’ ‘);
Jika i bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah…
- 3 6 c. 3 e. 2 4 6
- 2 d. 2 4 6 8
29. Berikut ini merupakan potongan dari suatu program pascal :
i:= 1
while i<5 do
begin
Write(i,’ ‘);
i:=i+1;
end;
Jika i bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah…
- 1 2 3 4 c. i i i i i e. Tidak ada
- 1 2 3 4 5 d. i i i i output
30. Jika x=8, y=2, z=10, maka ekspresi (x shl y)*z adalah…
- 20 c. 2 e. salah semua
- 320 d. 320
31. Suatu program pascal dalam penulisannya setiap baris selalu diakhiri dengan tanda ….
a. . (titik) c. , (koma) e. : (titik dua)
b. ; (titik koma) d. “ (petik ganda)
32. Program latray;
Uses crt;
Var Hs,qty,hrg:array[1..5] of integer;
X,jd : integer;
Begin
Write(‘Jumlah Data = ‘);readln(jd);
For x:=1 to jd do
Begin
Write(‘Harga Satuan = ‘);readln(hs[x]);
Write(‘Jumlah = ‘);readln(qty[x]);
Hrg[x]:=hs[x]*qty[x];
End;
Write(x,’ ‘,hs[x],qty[x],’ ‘,hrg[x];readln;End.
Jika jd=3 berapa data yang akan dicetak…
- 1 c. 3 e. Tidak ada
- 5 d. 4 output
33. Berikut ini merupakan potongan dari suatu program pascal :
For i:= ‘a’ to b do
Begin
For j:=’a’ to ’c’ do
Write(i,’ ‘);
Writeln;
end;
Jika i bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah…
- a b c d. a a e. a a a
- a b b b b b b
- a b c c
a b c
34. berikut ini merupakan penulisan kepala judul yang benar…
- Program uastik2; d. Program uas2tik
- Program 2uastik; e. salah semua
- Program uas tik2;
35. 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.
Jika x=5 dan y=4, maka hasil = …
- 0 c. 4 e. salah semua
- 1 d. 5
36. Yang bukan rumus y = a5 dalam Pascal dapat diekspresikan sebagai berikut…
- y := sqr(a)*sqr(a)*a;
- y := sqr(a)*a*sqr(a);
- y := (a*a *a * a*a);
- y := a *a *a *sqr(a);
- y := sqr(a) * sqr(a);
37. Operator dalam bahasa pemrograman Pascal yang digunakan untuk mendapatkan hasil bagi sebuah bilangan bulat oleh bilangan bulat lain adalah …
- divide c. modulus e. salah semua
- div d. mod
38. Komentar program akan diapit oleh…
- {… c. {…} e. (…)
- …} d. /…/
39. Function hasil(var A,B:integer):integer;
Begin
A:=A*B; hasil:=A+B;
end;
var x,y : integer;=
begin
writeln(hasil(4,8));readln;
end.
Berapakah nilai hasil dari program diatas…
- 12 c. 32 e. salah semua
- 35 d. 40
40. Nilai dari trunc(sqrt(5 shl 2)/3) adalah …
a. 6 c. 4 e. 10
b. 7 d. 3
 |  |
Selamat Mengerjakan
