I. Untuk soal nomor 1 sampai dengan 30, pilihlah salah satu
jawaban yang paling tepat dengan menghitamkan pada huruf A, B, C, D atau E pada
Lembar Jawaban yang disediakan.
1. Struktur pertama dalam pascal adalah . .
a. Char;
b. String
c. End.
d. Writeln
e. Uses
crt;
2. Untuk melihat hasil dari program yang di
kerjakan tekan tombol ...
a. CRTL+F5
b. CRTL+F9
c. CRTL+F2
d. CRTL+F12
e. CRTL+F4
3. Berapa kode yang digunakan untuk membuat
tulisan berwarna “CYAN”…
a. 4
b. 2
c. 128
d. 7
e. 3
4. Perintah dasar sederhana dalam program
passcal adalah...
a.
Readln
b. End
c. Write
d. Wtiteln
e. Uses crt;
5. Tipe data bahasa pascal untuk TRUE FALSE
adalah...
a. String
b. Char
c. Boolean
d. Byte
e. Real
6. Siapkah penemu program pascal…
a. Greyson change
b. Prof.niklauswirth
c. Kondrazuse
d. Prof.niklaussmirth
e. Dr.harcules
7. Struktur bahasa pemograman pascal paling
pertama adalah...
a. Var;
b. Begin
c. End;
d. Uses
crt;
e. Writeln;
8. Tipe data pascal untuk karakter adalah...
a. Char
b. Boolean
c. Integer
d. Real
e. Byte
9. Kapan terbentuknya pascal...
a. 1981
b. 1971
c. 1961
d. 1991
e. 1987
10. Apa kepanjangan dari USES…
a. Unit secure
b. Uni t syntax
c. Unit
sytem
d. Up software
e. Unit semiconductor
11. Berikut ini adalah penulisan identifier yang
benardalam pemograman pascal
adalah...
a. 9program_satu
b. Program_1
c. Program satu
d.
Begin
e. Array
12. Tipe bilangan bulat dalam bahasa pascal
dikenal sebagi ...
a. Byte
b.
Integer
c. Char
d. String
e. Boolean
13. Istilah” perulangan“ dalam pemograman pascal
dikenal dengan ...
a. Repeating
b. Again
c. Funtion
d. Replay
e. Looping
14. Perintah untuk menutup program dalam pascal
adalah...
a. End
b. Program
c. Uses crt;
d. Finish
e. End;
15. Menggambarkan program secara logika merupakan
fungsi dari...
a.
Flowchart
b. Dxdiag
c. Begin
d. SI
e. Sistemoprasi
16. Deklarasi yang digunakanuntukmeng
identifikasikan data yang nilainya sudah
Ditentukan dan pasti tidak dapat dirubah
dalam program disebut deklarasi...
a. Deklarasi label
b. Deklarasi
konstanta
c. Deklarasi tipe
d. Deklarasi variabel
e. Deklarasi prosedur
17. Di bawahinitermasukdalamdeklarasidalampascal
,kecuali...
a. Deklarasi perubah
b. Deklarasi
proses
c. Deklarasi konstanta
d. Deklarasi tipe
e. Deklarasi prosedur
18. Bilangan yang mengadung pecahan ,paling
sedikit harus ada satu digit sebelum
dan sesudah titik desimal termasuk dalm
tipe data...
a.
Real
b. Boolean
c. Integer
d. Longint
e. Byte
19. Prosedur yang digunakan untuk membersihkan
layar saat program dijalankan
adalah...
a. Writeln
b. Readln
c. Begin
d. Write
e. Clrscr
20. Bentuk dari suatu statment IF berada di dalam
lingkungan statmean IF yang
lainya,disebut IF dalamkondisi ...
a.
IF bersarang
b. IF bercabang
c. IF tunggal
d. IF-THEN
e. IF do while-Until
21. Tipe data terstruktur yang terdiri dari
sejumlah komponen ,komponen yang
mempunyai tipe sama, disebut tipe
data...
a.
Array
b. Byte
c. Longint
d. Integer
e. Boolean
22. Perintah untuk menampilkan atau cetak dilayar
monitor tanpa pindah baris ,disebut...
a. Writeln
b. Write
c. Readln
d. Read
e. Begin
23. Perintah untuk menampilkan atau mencetak
dilayar monitor lalu pindah baris kebawah ,disebut...
a. Writeln
b. Write
c. Readln
d. Read
e. Begin
24. Suatu indentifier non standar yang nilainya
tidak tetap atau nilainya merupakan hasil dari suatu proses,disebut…
a. Variabel
b. Tipe data
c. prosedur
d. deklarasi
e. Array
25. Suatu program terpisah dalam blok sendiri yang
berfungsi sebagai subprogram (program bagian) ,disebut...
a. Variabel
b. Tipe data
c. Prosedur
d. Deklarasi
e. Array
26. Deklarasi yang digunakan untuk mengidentifikasikan
data yang nilainya sudah ditentukan dan pasti,tidak dapat dirubah dalam program
disebut deklarasi...
a. Deklarasi label
b. Deklarasi
konstanta
c. Deklarasi tipe
d. Deklarasi variabel
e. Deklarasi prosedur
27. Di bawah ini termasuk dalam deklarasi dalam
pascal ,kecuali...
a. Deklarasi perubah
b. Deklarasi
proses
c. Deklarasi konstanta
d. Deklarasi tipe
e. Deklarasi prosedut
28. Bilangan yang mengadung pecahan ,palingsedikit
harus ada satu digit sebelum dan sesudah titik desimal termasuk dalm tipe
data...
a.
Real
b. Boolean
c. Integer
d. Longint
e. Byte
29. Prosedur yang digunakan untuk membersihkan
layar saat program dijalankan adalah...
a. Writeln
b. Readln
c. Begin
d. Write
e. Clrscr
30. Bentuk dari suatu statment IF berada di dalam
lingkungan statmean IF yang lainya,disebut IF dalam kondisi ...
a. IF
bersarang
b. IF bercabang
c. IF tunggal
d. IF-THEN
e. IF do while-Until
31. Tipe data terstruktur yang terdiri dari
sejumlah komponen ,komponen yang mempunyai tipe sama,disebut tipe data...
a. Array
b. Byte
c. Longint
d. Integer
e. Boolean
32. Perintah
untuk menampilkan atau cetak dilayar monitor tanpa pindah baris ,disebut...
a. Writeln
b. Write
c. Readln
d. Read
e. Begin
33. Perintah
untuk menampilkan atau mencetak dilayar monitor lalu pindah baris kebawah
,disebut...
a. Writeln
b. Write
c. Readln
d. Read
e. Begin
34. Suatu
indentifier non standar yang nilainya tidak tetap atau nilainya merupakan hasil
dari suatu proses,disebut…
a. Variabel
b. Ripe data
c. prosedur
d. deklarasi
e. Array
35. Suatu program terpisah dalam blok sendiri yang
berfungsi sebagai subprogram (program bagian) ,disebut...
a. Variabel
b. Tipe data
c. Prosedur
d. Deklarasi
e. Array
36. Berikut ini yang termasuk operator aritmatika
yaitu ….
a. *
b. /
c. %
d. +
e.
Semua benar
37. Array terdiri dari berbagai tipe kecuali …
a.
Array Multi-Dimensi
b. Array Dimensi Satu
c. Array Dimensi Tiga
d. Array Dimensi Dua
e. Semua jawaban benar
38. Nama variabel berikut ini yang benar adalah …
a. NamaGuru
b. Alamat Guru
c. alm gr
d. sts/status
e. tpt.tgl
39. Tipe data yang cocok untuk menyimpan data nama
siswa adalah …
a. Numeric
b. Character
c. Date/Time
d. Array
e. Integer
40. Pemberian nama variabel yang benar adalah …
a. %nilai
b. nilai_mahasiswa
c. nama mahasiswa
d. &panjang
e. alamat
II.
Essay
1. Buatlah
script kode dengan program Pascal :
a.
Membuat Biodata
program biodata_siswa;
uses crt;
begin clrscr;
writeln(‘Nama:Ratih Mayangsari’);
writeln(‘Kelas:XI-IPA1’);
writeln(‘No Absen:27’);
writeln(‘Alamat:Jl.Cigeureung No 57’);
writeln(‘No Telepon:(0265)337996’);
readln;
end.
uses crt;
begin clrscr;
writeln(‘Nama:Ratih Mayangsari’);
writeln(‘Kelas:XI-IPA1’);
writeln(‘No Absen:27’);
writeln(‘Alamat:Jl.Cigeureung No 57’);
writeln(‘No Telepon:(0265)337996’);
readln;
end.
b.
Memasukan Data
program input_data;
uses crt;
var a,b,c,d,e:string;
begin
clrscr;
write(‘Nama:’);
readln(a);
write(‘Kelas:’);
readln(b);
write(‘No Absen:’);
readln(c);
write(‘Alamat:’);
readln(d);
write(‘No Telepon:’);
readln(e);
writeln(‘Jadi nama siswa tersebut ‘,a);
writeln(‘Berada di kelas ‘,b);
writeln(‘Bernomor absen ‘,c);
wrietln(‘Tingal di ‘,d);
writeln(‘Mempunyai nomor telepon ‘,e);
readln;
end.
uses crt;
var a,b,c,d,e:string;
begin
clrscr;
write(‘Nama:’);
readln(a);
write(‘Kelas:’);
readln(b);
write(‘No Absen:’);
readln(c);
write(‘Alamat:’);
readln(d);
write(‘No Telepon:’);
readln(e);
writeln(‘Jadi nama siswa tersebut ‘,a);
writeln(‘Berada di kelas ‘,b);
writeln(‘Bernomor absen ‘,c);
wrietln(‘Tingal di ‘,d);
writeln(‘Mempunyai nomor telepon ‘,e);
readln;
end.
c.
Mencari Luas Segitiga
program hitung_luas;
uses crt;
var a,t:integer;
begin clrscr;
writeln(‘alas:’);
readln(a);
writeln(‘tinggi:’);
readln(t);
luas:=a*t/2;
writeln(‘Jadi luas segitiga tersebut ‘,luas);
readln;
end.
uses crt;
var a,t:integer;
begin clrscr;
writeln(‘alas:’);
readln(a);
writeln(‘tinggi:’);
readln(t);
luas:=a*t/2;
writeln(‘Jadi luas segitiga tersebut ‘,luas);
readln;
end.
d.
Mencari Volume Kubus
program hitung_volume;
uses crt;
var
a,b.c:integer;
volume:real;
begin
clrscr;
writeln(‘sisi a:’);
readln(a);
writeln(‘sisi b:’);
readln(b);
writeln(‘sisi c’);
readln(c);
volume:=a*b*c;
writeln(‘Jadi volume segitiga tersebut ‘,volume);
readln;
end.
uses crt;
var
a,b.c:integer;
volume:real;
begin
clrscr;
writeln(‘sisi a:’);
readln(a);
writeln(‘sisi b:’);
readln(b);
writeln(‘sisi c’);
readln(c);
volume:=a*b*c;
writeln(‘Jadi volume segitiga tersebut ‘,volume);
readln;
end.
e. Mencari
Luas Persegi Panjang
program
hitung_luas;
uses crt;
var
p,l:integer;
luas:real;
begin
clrscr;
writeln(‘panjang:’);
readln(p);
writeln(‘lebar:’);
readln(l);
luas:=p*l;
readln;
end.
uses crt;
var
p,l:integer;
luas:real;
begin
clrscr;
writeln(‘panjang:’);
readln(p);
writeln(‘lebar:’);
readln(l);
luas:=p*l;
readln;
end.