SOAL UJI KEMAMPUAN AWAL PASCAL

1. Deklarasi yang tepat adalah

a. var A: String;

b. const A: Integer := 25;

c. type A = record;

d. type MagicNumber: Integer;

e. Jawaban (a) – (d) benar semua

2. Pernyataan manakah yang boleh dipakai untuk

    mendeklarasikan variabel dalam Pascal?

a. var A, B;

b. var A: Real, B: Integer;

c. var A; B: Integer;

d. var (A, B): Integer;

e. var A: Pointer; B: Integer;

3. Bagaimana cara mendeklarasikan konstanta bertipe?

a. var A: Integer const = 100;

b. const A: Integer = 100;

c. const A = 100;

d. var A: Integer = 100;

e. const Integer A = 100;

4. Carilah deklarasi yang tidak diperbolehkan:

a. const A = 14;

    B = A * 2.5;

b. const E1 = 'Division by zero';

                E2 = 'Overflow';

                E3 = 'Invalid argument';

                ErrMsg: array[1..3] of String =

                (E1, E2, E3);

c. const A = 40;

                B: Integer = A * 15;

d. const A = 123;

                B = Chr(A);

e. Semua jawaban salah

5. Deklarasi mana yang sahih dalam bahasa Pascal?

a. var A: String[70];

b. var A = String;

c. var A: String[1024];

d. var A: String[1..75];

e. Semua jawaban salah

6. Bagaimana cara mendeklarasikan array dua dimensi?

a. var A: array[1..10, 1..10] of Char;

b. var B: array[1 to 10, 1 to 10] of Char;

c. var C: matrix[1..10, 1..10] of Char;

d. var D: array[10, 10] of Char;

e. var E: matrix[10, 10] of Char;

7. Deklarasi manakah yang benar?

a. type Anggota = record

    Nama: String[40];

    NomorAnggota: Word;

    End;

b. type Anggota: record

    Nama = String;

    NomorAnggota = Word;

    End;

c. type Anggota := record

    Nama := String[20];

    NomorAnggota := Word;

    End;

d. type Anggota = record

    Nama: String[];

    NomorAnggota: Word;

    end;

e. Semua deklarasi di atas salah

8. Deklarasi manakah yang dapat diterima?

    a . var F: File of Text;

    b. var F: File of Integer;

    c. var F: File[1..10] of Integer;

    d. var F: Text of Char;

    e. salah semua.

9. Deklarasi manakah yang salah?

a. type Rec = record

    X, Y: Real;

    end;

    var F: File of Rec;

b. var F: File;

c.  type A = array[1..10] of Byte;

    var F: File of A;

d. var F: File of array;

e. Tidak ada deklarasi yang salah

10. Deklarasi manakah yang salah?

a. var E: record X, Y: Integer end;

b. var F: File of set of Char;

c. var G: record

F: File;

U: Integer;

    end;

d. var H: File of record X, Y: Integer end;

e. Tidak ada deklarasi yang salah

11. Deklarasi manakah yang salah?

a. var A: set of Real;

b. var B: array[1..10,1..10] of record

    Flag: set of Byte;

    R: Real;

    end;

c. var C: set of (Nasi, Roti, Bakmi, Bakpau);

d. var D: array[1..10] of File;

e. Tidak ada deklarasi yang salah

12. Deklarasi manakah yang benar?

a. var R: array[True..False] of String;

b. type P = set of Byte;

    var R: array[P] of String;

c. var Q: set of String;

d. type S = array[1, 5, 7..10] of Real;

e. Salah semua

13. Manakah yang salah?

a. function Gamma(I: Real): Real;

b. function Gamma(var I: Real): Real;

c. function Gamma(var I): Real;

d. function Gamma(I: Real);

e. semua deklarasi di atas benar

14. Penulisan program Pascal yang dibenarkan adalah

a. program Sederhana;

begin

var C: Word;

C := 275 * 400 + 5;

Writeln(C);

end.

b. { program Sederhana; }

var W: Word;

begin

W := 61224;

Writeln(W - 50000);

end.

c. program Sederhana;

var A: String;

begin

A := ' tahun lalu belum ada komputer';

A := 200 + A;

Writeln(A);

end.

d. program Matematika;

var Jari-jari: Real;

begin

Write('Jari-jari lingkaran = ');

Readln(Jari-jari);

Writeln('Keliling=',2 * Pi * Jari-jari);

end.

e. Semua program di atas salah!

15. Tipe data manakah yang dapat memuat bilangan pecahan?

a. Byte

b. Integer

c. Boolean

d. Real

e. LongInt

16. Manakah yang salah:

a. var X: Integer;

     begin

     for X := 1 to 25 do Writeln(X);

     end.

b. var X: Char;

    begin

    for X := '1' to '9' do Writeln(X);

    end.

c. var X: LongInt;

    begin

    for X := -50 downto -400 do Writeln(X);

    end.

d. var X: Real;

    begin

    for X := 0 to 5 do Writeln(X);

    end.

e. Jawab (a) – (d) benar semua

17. Tipe data manakah yang sanggup memuat nilai numeric sebesar 75000?

a. Integer

b. Byte

c. Real

d. Word

e. String

18. Berapakah jangkauan tipe data Word?

a. 0…255

b. 0…65536

c. 0…65535

d. -32768…32767

e. Salah semua

19. Turbo Pascal menyediakan tipe data enumerasi yang didefinisikan dengan

      menyebutkan nama-nama elemennya oleh pemakai. Bila tipe data Nilai dapat  

      bernilai Jelek, Kurang, Cukup, dan Baik, bagaimanakah cara menulisnya?

a. type Nilai = (Jelek, Kurang, Cukup, Baik);

b. type Nilai = Jelek, Kurang, Cukup, Baik;

c. type Nilai = 'Jelek, Kurang, Cukup, Baik';

d. type Nilai = [Jelek, Kurang, Cukup, Baik];

e. Salah semua.

20. Lihat kembali definisi Nilai di atas. Pernyataan manakah yang tidak benar?

a. var Ket: array[Jelek..Baik] of Nilai;

b. var Ket: array[Jelek..Baik] of String;

c. var Ket: Jelek;

d. var Ket: set of Nilai;

e. Salah semua

21. Misalkan N adalah variabel bertipe Nilai (lihat soal di atas), maka operasi

      manakah yang tidak dibenarkan untuk N?

a. Inc(N);

b. N := N + Jelek;

c. Writeln(Ord(N));

d. if N >= Cukup then Writeln('Lulus');

e. Semua salah

22. Berikut ini adalah deklarasi sebuah program:

type IsiRoti = (Coklat, Pisang, Nanas);

var Isi: IsiRoti;

    Manakah yang sahih di antara pernyataan-pernyataan berikut?

a.         if Isi in IsiRoti then

Writeln('Nah, ini baru enak.');

b.         if Isi in [Coklat, Nanas] then

Writeln('Saya suka itu!');

c.         if 'Coklat' in Isi then

Writeln('Suka roti coklat juga ya?');

d.         if IsiRoti = [] then

Writeln('Harus pilih salah satu!');

e.         if [Nanas] in Isi then

Writeln('Memilih roti nanas.');

23. Dalam potongan program berikut,

var Z1, Z2, Z3, Z4: set of Byte;

begin

Z1 := [1, 2, 6, 8, 9];

Z2 := [3, 6, 8, 12, 14];

Z3 := Z1 + Z2;

Z4 := Z1 * Z2;

end.

    Berapakah nilai akhir Z3 dan Z4?

a. Z3 = [6, 7, 8]

                Z4 = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]

b. Z3 = [6, 8]

                Z4 = [1, 2, 3, 6, 8, 9, 12, 14]

c. Z3 = [1, 2, 3, 6, 6, 8, 8, 9, 12, 14]

                Z4 = [6, 6, 8, 8]

d. Z3 = [1, 2, 3, 6, 8, 9, 12, 14]

    Z4 = [6, 8]

e. Salah semua

24. Manakah yang salah bila var Size: array[1..150] of Real;

     R: Real;

     I: Integer;

a. Size[I] := I;

b. Size[R] := 15.5;

c. Size[I] := R;

d. Size[2] := I / R;

e. Tidak ada yang salah

Deklarasi variabel berikut ini digunakan untuk menjawab soal-soal berikut ini:

var A: Integer;

B: Boolean;

C: Integer;

D: Real;

E: Char;

F: Byte;

25. Dengan deklarasi variabel di atas, ekspresi manakah yang benar dalam bahasa

      Pascal?

a. B := A + C > D;

b. C := A * 5 + D;

c. if A then C := C + A;

d. A := (B + C) * 7;

e. semua ekspresi salah

26. Lihat kembali deklarasi di atas. Ekspresi manakah yang tidak sah dalam bahasa

      Pascal?

a. C := A and F;

b. D := A + C / 10;

c. D := A + C div 10;

d. if E = F then Writeln('Nilainya sama.');

e. semua ekspresi valid

27. Lihat kembali deklarasi di atas. Ekspresi mana yang dibenarkan dalam bahasa    

      Pascal?

a. A := D div 10;

b. if B and (F > 5) then Writeln('Ulangi!');

c. C := A / 10;

d. F := Ord(E + E);

e. Semua ekspresi tidak benar

28. Lihat kembali deklarasi di atas. Ekspresi mana yang tidak benar?

a. Inc(E);

b. Inc(D);

c. D := D + 1;

d. E := Succ(E);

e. semua ekspresi salah

29. Deklarasi mana yang salah dalam bahasa Pascal?

a. var A: record

    Nama, Alamat: String;

    end;

b. type InfoRec = record

    Nama, Alamat: String;

   end;

   var A: InfoRec;

c. var A: InfoRec = record

    Nama, Alamat: String;

    end;

d. Semua deklarasi di atas salah

e. Semua deklarasi di atas betul dan diperbolehkan

30. Untuk variabel A di atas, bagaimana cara mengakses variable yang betul?

a. A.'Nama' := 'Raden';

b. A:Nama := 'Raden';

c. A.Nama := 'Raden';

d. Nama:A := 'Raden';

e. Nama.A := 'Raden';

Yang Tahu Jawabannya kasih tahu donk.... :)