soal ukk pascal smt2 - 2012

Berilah Tanda Silang pada jawaban yang benar!

1.    Perusahaan pembuat sistem operasi windows adalah…

1. Linux           c.    Aple              e.  Blank On
2. Macintos       d.   Microsoft

2.    Bahasa Pemrograman Pascal merupakan bahasa pemrograman berbasis…

1. windows       c.    Linux            e.  Macinthos
2. Dos              d.   Unix

3.    Siapa pencipta program pascal…

1. Tomas         c.    Aristoteles     e.  Pascal
2. 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 …

1. Boolean       c.    Integer          e.  Char
2. 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…

1. F₁                c.    Alt+F₄            e.  Ctrl+F₉
2. Ctrl+F₅         d.   Alt+F₉

9.    Prosedure Standar Clrscr adalah untuk menghapus layar namun untuk menggunakannya unit yang harus disebutkan dalam program adalah….

1. CTR             c.    Screen           e.  Dos
2. 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. 1                 c.    2                  e.  3
2. 24               d.   96

12.  Interval tipe data byte adalah…

1. 0 sd. 255      c.    -255 sd. 255  e.  -128 sd. 127
2. 0 sd. 65535  d.   -32768 sd. 32767

13.  Berikut ini yang bukan termasuk tipe data integer…

1. word            c.    integer          e.  byte
2. longint         d.   real

14.  Nilai dari (5 shl 2) + (20 shr 2)adalah…

1. 12               c.    29                 e.  25
2. 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…

1. baris 2 kolom 2      d.   baris 3 kolom 2
2. kolom 3 baris 2      e.   baris 2 kolom 3
3. kolom 3 baris 3

18.  Variabel x=‘Turbo’, dalam Pascal dimasukkan dalam tipe data…

1. Char            c.    Sortint           e.  String
2. 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…

1. 2 3 4            c.    i i i i              e.  0
2. 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 ....

1. Ujian Kenaikan Kelas Kelas X

Semester II

Mudah dan Menyenangkan

2. Ujian Kenaikan Kelas

Kelas X Semester II

Mudah dan Menyenangkan

3. Ujian Kenaikan Kelas

Kelas XSemester II Mudah dan Menyenangkan

4. Ujian Kenaikan Kelas

Kelas XSemester IIMudah dan Menyenangkan

5. Ujian Kenaikan Kelas

Kelas X Semester IIMudah dan Menyenangkan

21.  Berikut ini yang bukan penulisan pernyataan if yang benar…

1. if nilai < 75 then;

writeln(‘Tidak Tuntas’);

2. if nilai < 75 then

begin

writeln(‘Tidak Tuntas’);

end.

3. if nilai < 75 then

Begin

writeln(‘Tidak Tuntas’)

end;

4. if nilai < 76 then

writeln(‘Tidak Tuntas’)

else

writeln(‘Tuntas’);

5. if nilai < 76 then;

writeln(‘Tidak Tuntas’);

else

writeln(‘Tuntas’);

22.  Pernyataan WHILE dalam pemrograman pascal selalu berpasangan dengan pernyataan ….

1. Then            c.    End               e.  Repeat
2. Do               d.   Until

23.  interval tipe data integer adalah…

1. 0 sd. 2147483        d.   -2147483 sd, 2147483
2. 0 sd. 255               e.   2,9x10^-39 sd. 1,7x10³⁸
3. -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…

1. Type            c.    Procedure      e.  Tidak ada
2. Var              d.   Function             jawaban         

26.  Berikut ini potongan program dalam pascal yang akan menghasilkan output : 5 4 3 2

1. For i:=5 to 2 do writeln(i,’ ’);
2. For i:=2 to 5 do writeln(i,’ ’);
3. For i:=5 to 2 downto 2 do writeln(i,’ ’);
4. For i:=5 downto 2 do writeln(i,’ ’);
5. 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…

1. 4 3 2            c.    2 3 4             e.  Tidak ada
2. 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…

1. 3 6              c.    3                  e.  2 4 6
2. 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. 1 2 3 4         c.    i i i i i            e.  Tidak ada
2. 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…

1. 20               c.    2                  e.  salah semua
2. 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. 1                 c.    3                  e.  Tidak ada
2. 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…

1. a  b  c          d.   a  a               e.  a  a  a
2. a  b                    b  b                    b  b  b
3. a  b                    c  c

a  b  c

34.  berikut ini merupakan penulisan kepala judul yang benar…

1. Program uastik2;    d.   Program uas2tik
2. Program 2uastik;    e.   salah semua
3. 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 = …

1. 0                 c.    4                  e.  salah semua
2. 1                 d.   5

36.  Yang bukan rumus y = a⁵ dalam Pascal dapat diekspresikan sebagai berikut…

1. y := sqr(a)*sqr(a)*a;
2. y := sqr(a)*a*sqr(a);               
3. y := (a*a *a * a*a);
4. y := a *a *a *sqr(a);
5. 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 …

1. divide           c.    modulus        e.  salah semua
2. div               d.   mod

38.  Komentar program akan diapit oleh…

1. {…               c.    {…}               e.  (…)
2. …}               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…

1. 12               c.    32                 e.  salah semua
2. 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

ASCII Table and Description

ASCII stands for American Standard Code for Information Interchange. Computers can only understand numbers, so an ASCII code is the numerical representation of a character such as 'a' or '@' or an action of some sort. ASCII was developed a long time ago and now the non-printing characters are rarely used for their original purpose. Below is the ASCII character table and this includes descriptions of the first 32 non-printing characters. ASCII was actually designed for use with teletypes and so the descriptions are somewhat obscure. If someone says they want your CV however in ASCII format, all this means is they want 'plain' text with no formatting such as tabs, bold or underscoring - the raw format that any computer can understand. This is usually so they can easily import the file into their own applications without issues. Notepad.exe creates ASCII text, or in MS Word you can save a file as 'text only

Extended ASCII Codes

ARRAY PADA PASCAL

Array adalah variabel yang dapat menyimpan lebih dari satu nilai sejenis. Terdpt dua bagian penting yaitu elemen array yang mrp nilai dan indeks array yang mrp nilai urut untuk mengakses nilai pada array.
Berikut ini contoh array A dengan 10 buah elemen tiap elemen memiliki nilai antara 10 hingga 100.

A[1]	A[2]	A[3]	A[4]	A[5]	A[6]	A[7]	A[8]	A[9]	A[10]
1	2	3	4	5	6	7	8	9	10
10	20	30	40	50	60	70	80	90	100

Deklarasi Array.

Array dideklarasikan pada bagian deklarasi. Deklarasi umum dari array adalah
NamaArray : array[IndeksAwal..IndeksAkhir] of tipe_data;

Contoh:

Jika akan mendeklarasikan variabel A sebagai Array dengan 10 elemen bertipe integer :
Var

A: array [1..10] of Integer;
Contoh lain:

A1: array[0..9] of Integer;

A1: array[10..20] of Integer;

A1: array[‘a’..’j’] of Integer;

Mengakses elemen Array
U/ memberikan nilai pada variabel array dpt dgn menggunakan parameter berikut :
NamaArray [indeks]:=nilai;

Contoh :
Var

A: array[1..10] of integer;
Begin

A[1]:=1; {Mengisikan elemen 1 dengan nilai 1}

A[9]:=200; {Mengisi elemen 9 dengan nilai 200};
End.

Array sebagai konstanta

Nilai pd array dpt bernilai konstan. Dpt kita lakukan dgn mendeklarasikannya pd bagian constanta.
Bentuk umum pendeklrasiannya adalah:
Const
NamaArray : array[IndeksAwal..IndeksAkhir] of Tipe_Data = (nilai1, nilai2,………);
Banyaknya nilai konstanta harus sama dengan jumlah elemennya.
Contoh penggunaanya

Program ArrayKonstan;
Uses Wincrt;
Const

Hari : array[1..7] of string = ('senin','selasa','rabu','kamis','jumat','sabtu','minggu');
Var

noHari:integer;
begin

clrscr;

write('Masukan nomor harinya : ');readln(noHAri);

write('Hari ke-',noHari, ' adalah ',Hari[noHari]);

readln;
end.

Output :

Masukan nomor harinya : 3
Hari ke 3 adalah rabu

Array sebagai parameter

Array pada waktu tertentu dpt digunakan sebagai parameter dari suatu prosedur / fungsi.

Contoh :
Type
Bilangan = array [1..100] of integer;
Procedure InputArray(A:bilangan; N:integer);
var

i:integer;
begin

for i:=1 to N do

write('Masukan elemen array ke ',i); readln(A[i]);
end.

Contoh diatas adalah penggunaan array sebagai parameter untuk memberikan nilai pd suatu array tertentu.

Array berisi record
Caranya adalah mendefinisikan record terlebih dahulu yang kemudian akan digunakan sebagai tipe data pada saat pendeklarasian array. Contoh:
Type

Tsiswa = record

NIM:=string[9];

Nama:string[25];
End;
TkumpulanSiswa = array [1..100] of Tsiswa;

Var
A: TkumpulanSiswa;

Variabel A diatas akan menampung 100 buah record yang bertipe Tsiswa. Sementara untuk record berisi array dengan contoh perhitungan nilai siswa berikut : Nilai = (20% * kuis) + (30% * UTS) + (50% * UAS). Maka kita dapat mendefinisikan mahasiswa sebagai tipe record yang memiliki 3 nilai dengan menggunakan array. Yaitu:
Type

Tsiswa = record

NIM:=string[9];

Nama:string[25];

Nilai = array [1..3] of real;
Kode diatas menunjukan bahwa setiap mahasiswa memiliki 3 nilai.

Metode pencarian pada Array
Ada beberapa macam teknik dalam mendapatkan nilai dari suatu elemen pada array salah satunya dengan metode pencarian beruntun.

Contoh:
Program CariBeruntun;

Uses Wincrt;
Const

N : array[1..5] of integer= (10,20,30,40,50);
Var

a,b,index : integer;
begin

clrscr;

write(‘Masukan nilai yang akan dicari : ’);readln(a);

index:=0;

for b:=1 to 5 do

begin

if N[b] = a then

begin

index:=b;

break;

end;

end;

writeln(a,’ adalah nilai yang ditemukan pada index ke ’,index);
end.

Array 2 dimensi
Array 2 dimensi adalah array yg memiliki 2 buah elemen bertipe array yang berbentuk kolom dan baris. Pendeklarasiannya adalah sebagai berikut:
NamaArray : array[1..BanyakBaris, 1..BanyakKolom] of tipe_data;

Contoh :
Array2D : array[1..3, 1..4] of integer;
Sedangkan untuk mengaskes maupun memberikan nilai dengan parameter:
Array2D [2,3]:=200; {Mengisikan nilai 200 pada baris 2 kolom 3}