Kunci Jawaban E-Lab Praktikum Algoritma Dan Pemrograman 2 2013 (Pre Test)

1.     di bawah ini macam-macam perulangan adalah

A.      ?    Perulangan dengan perhitungan (Counter)

B.      ?    Perulangan dengan kondisi terpenuhi.

C.      ?    Perulangan dengan kondisi tidak terpenuhi

D.    :-)  a, b, dan c benar

2.     Sebutkan perulangan dengan counter

A.    :-)  FOR.. TO..DO..

B.      ?    FOR.. END

C.      ?    FOR..NEXT

D.      ?    FOR..WEND

3.     Untuk melakukan perulangan dengan counter decreasing menggunakan perintah

A.      ?    FOR NEXT

B.    :-)  FOR DOWNTO DO

C.      ?    WHILE WEND

D.      ?    WHILE NEXT

4.     Perulangan yang digunakan untuk mengulang sampai terpenuhi kritesia yg ditentukan adalah

A.    :-)  WHILE DO

B.      ?    IF ELSE

C.      ?    FOR DO

D.      ?    FOR NEXT

5.     Perulangan untuk mengulang sebanyak sampai sudah terpenuhinya kriteria yg tidak ditentukan adalah

A.      ?    WHILE UNTil

B.      ?    DO WHILE

C.    :-)  REPEAT UNTIL

D.      ?    FOR DO

6.     Bentuk umum perintah perulangan WHILE DO adalah

A.    :-)  WHILE (Condition) DO
Statement

B.      ?    WHILE (counter) DO
STATEMENT

C.      ?    WHILE (Condition) NEXT

D.      ?    WHILE (condition) WEND

7.     Uses Crt;

Var a, b: char;

Begin
ClrScr;
For a:= ‘A’ to ‘E’ do
Begin
For b:= ‘A’ to a do
begin
if(a=b) then
writeln (b)
else
write(b);
end;
end;
Readkey;
End.


Perulangan diatas termasuk jenis perulangan

A.    ?  Perulangan dengan perhitungan (Counter)

B.    ?  Perulangan dengan kondisi terpenuhi.

C.    ?  Perulangan dengan kondisi tidak terpenuhi

D.     :-)   Perulangan dengan percabangan

8.     Uses Crt;

Var a, b: char;

Begin
ClrScr;
For a:= ‘A’ to ‘E’ do
Begin
For b:= ‘A’ to a do
begin
if(a=b) then
writeln (b)
else
write(b);
end;
end;
Readkey;
End.


Hasil dari program diatas adalah

A.    :-)  A
AB
ABC
ABCD
ABCDE

B.      ?    ABD

C.      ?    BDA

D.      ?    CBA

9.     USES CRT;
CONST X = '::::::::::::::::::';
VAR A,B: INTEGER;
BEGIN
CLRSCR;
WRITELN(X);
A := 0;
FOR B := A TO 15 DO
BEGIN
B := B + 1;
WRITE(B,' ');
END;
WRITELN;
WRITELN(X);
READLN;
END

Counter pada program diatas adalah variabel

A.    X  A

B.    :-)  B

C.      ?    C

D.      ?    D

10.  USES CRT;
CONST X = '::::::::::::::::::';
VAR A,B: INTEGER;
BEGIN
CLRSCR;
WRITELN(X);
A := 0;
FOR B := A TO 15 DO
BEGIN
B := B + 1;
WRITE(B,' ');
END;
WRITELN;
WRITELN(X);
READLN;
END


Hasil dari program diatas adalah

A.      ?    5 1 3 2 4 5

B.    :-)  1 3 5 7 9 11 13 15

C.      ?    6 7 8 9 0 1

D.      ?    1 3 5 7 9 10

11.  Struktur Kondisi yang hanya memberikan satu pilihan aksi bilakondisi dipenuhi (bernilai benar), dan tidak member pilihan aksi lainbila kondisi bernilai salah adalah

A.      ?    IF ELSE

B.      ?    IF DO

C.      ?    IF UNTIL

D.    :-)  IF THEN

12.  IF Condition THEN. Pada kondisi nilai bertipe

A.    ?  Integer

B.    :-)  Boolean

C.    ?  String

D.      ?    Float

13.  Pengkondisian didalam PASCAL adalah

A.      ?    IF THEN

B.      ?    IF ELSE

C.      ?    CASE OF

D.    :-)  A, b, c benar

14.  Bentuk umum IF ELSE adalah

A.      ?    IF kondisi THEN
Statement
END IF

B.    :-)  IF kondisi THEN
Statement 1
ELSE
Statement 2
END

C.      ?    IF kondisi ELSE kondisi

D.      ?    IF satement ELSE kondisi

15.  Uses Crt;
Var
Nilai : Real;
Begin
Write ('Jumlah Nilai :');
Readln (nilai); { Pemasukan data }
If nilai > 60 Then { seleksi kondisi variabel nilai }
Writeln('Lulus') { Dilaksanakan jika nilai lebih besar dari 60 }
Else
Writeln('Tidak lulus'); { Dilaksanakan jika variabel nilai lebih kecil dari 60 }
End.

Bila variabel nilai diisi dengan angka 75 maka hasil dari eksekusi program adalah

A.      ?    Tidak Lulus

B.      ?    Tidak lulus

C.    ?  Lulus

D.    :-)  Lulus

16.  Uses Crt;
Var
Nilai : Real;
Begin
Write ('Jumlah Nilai :');
Readln (nilai); { Pemasukan data }
If nilai > 60 Then { seleksi kondisi variabel nilai }
Writeln('Lulus') { Dilaksanakan jika nilai lebih besar dari 60 }
Else
Writeln('Tidak lulus'); { Dilaksanakan jika variabel nilai lebih kecil dari 60 }
End.

Bila variabel nilai diisi dengan angka 53 maka hasilnya adalah

A.      ?    Lulus

B.    :-)  Tidak lulus

C.      ?    Tidak Lulus

D.      ?    Lulus

17.  Uses Crt;
Var
Nilai : Real;
Begin
Write ('Jumlah Nilai :');
Readln (nilai); { Pemasukan data }
If nilai > 60 Then { seleksi kondisi variabel nilai }
Writeln('Lulus') { Dilaksanakan jika nilai lebih besar dari 60 }
Else
Writeln('Tidak lulus'); { Dilaksanakan jika variabel nilai lebih kecil dari 60 }
End.

Variabel nilai bertipe data

A.      ?    String

B.      ?    Char

C.      ?    Boolean

D.    :-)  Real

18.  Var
I:integer;
Begin
I:=2;
Case I of
1,3,5,7,9:writeln(‘Ganjil’);
2:writeln(‘Prima genap’);
0..10:writeln(‘Normal’);
else writeln(‘Tidak normal’);
end;
end;

Keluaran program diatas adalah

A.    :-)  Prima genap

B.    ?  Normal

C.    ?  Prima genap Normal

D.      ?    Normal

19.  Var
I:integer;
Begin
I:=2;
Case I of
1,3,5,7,9:writeln(‘Ganjil’);
2:writeln(‘Prima genap’);
0..10:writeln(‘Normal’);
else writeln(‘Tidak normal’);
end;
end;

Struktur kontrol diatas menggunakan

A.      ?    FOR DO

B.      ?    IF ELSE

C.      ?    IF

D.    :-)  CASE OF

20.  Var
I:integer;
Begin
I:=2;
Case I of
1,3,5,7,9:writeln(‘Ganjil’);
2:writeln(‘Prima genap’);
0..10:writeln(‘Normal’);
else writeln(‘Tidak normal’);
end;
end;

Bila variabel I nilainya kita ganti menjadi 10 maka keluarannya adalah

A.      ?    Prima genap

B.    ?  Normal

C.      ?    Prima genap Normal

D.    :-)  Normal

21.  tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama adalah

A.      ?    Integer

B.      ?    Float

C.      ?    Double

D.    :-)  Array

22.  Dibawah ini yang termasuk macam-macam array kecuali

A.      ?    Array satu dimensi

B.      ?    Array dua dimensi

C.      ?    Array multi dimensi

D.    :-)  Array tidak berdimensi

23.  Pengertian dari array / larik adalah

A.      ?    Array adalah Kumpulan data bertipe sama yang menggunakan nama sama.

B.      ?    Array adalah tipe data yang memiliki kemampuan dapat mengumpulkan beberapa data yang bertipe sama dalam satu variable sehingga dalam pembuatan terdiri dari beberapa tipe yang sama tidak membutuhkan banyak variable.

C.      ?    A dan b salah

D.    :-)  A dan b benar

24.  Bentuk deklarasi array diemnsi satu adalah

A.    :-)  Var
nama_variabel : Array[ index ] Of Tipe_Data;

B.    ?  Var
nama_variabel : Array[ counter ] Of Tipe_Data;

C.    ?  Var
nama_variabel : Array[ Tipe_data ] Of index;

D.      ?    Var
nama_variabel : Array[ index ];

25.  uses wincrt;

var X : array[1..100] of integer;
a,b,n,r : integer;
beda : boolean;
begin
write('Banyaknya data : ');readln(n);
if n > 100 then begin
writeln('Melebihi batas, (tidak boleh lebih dari 100)');
exit;
end;
for a:=1 to n do begin
repeat
r:=random(100)+1;
b:=1;beda:=true;
repeat
if r=x[b] then beda:=false else inc(b);
until (b>a-1) or (beda=false);
until (beda);
x[a]:=r;
end;
writeln;
for a:=1 to n do write(X[a],' ');
end.


Berapa maksimum index pada dekalrasi variabel array x

A.      ?    50

B.      ?    30

C.    :-)  100

D.      ?    60

26.  uses wincrt;

var X : array[1..100] of integer;
a,b,n,r : integer;
beda : boolean;
begin
write('Banyaknya data : ');readln(n);
if n > 100 then begin
writeln('Melebihi batas, (tidak boleh lebih dari 100)');
exit;
end;
for a:=1 to n do begin
repeat
r:=random(100)+1;
b:=1;beda:=true;
repeat
if r=x[b] then beda:=false else inc(b);
until (b>a-1) or (beda=false);
until (beda);
x[a]:=r;
end;
writeln;
for a:=1 to n do write(X[a],' ');
end.

Variabel array x memiliki tipe data

A.      ?    Float

B.      ?    String

C.      ?    Char

D.    :-)  Integer

27.  uses crt;
const
Nama : Array [1..7] of string [10] = ('Lina,'MariaF','Hamid','Surya','Polin','Watinah','Kalla') ;
Nilai : Array [1..7] of integer = (60,75,55,65,70,80,40) ;

Var
A : Byte
Besar : integer
NM : string [10]
Begin
Besar := Nilai [1] ;
NM := Nama [1] ;
For A := 2 to 7 do
Begin
If Besar < Nilai [A] then
Begin
Besar := Nilai [A] ;
NM := Nama [A] ;
End ;
writeln (NM, Besar) ;
End.


Hasil program diatas nilai terbesar ada pada nama

A.      ?    Lina

B.    :-)  Watinah

C.      ?    Kalla

D.      ?    Surya

28.  uses crt;
const
Nama : Array [1..7] of string [10] = ('Lina,'MariaF','Hamid','Surya','Polin','Watinah','Kalla') ;
Nilai : Array [1..7] of integer = (60,75,55,65,70,80,40) ;

Var
A : Byte
Besar : integer
NM : string [10]
Begin
Besar := Nilai [1] ;
NM := Nama [1] ;
For A := 2 to 7 do
Begin
If Besar < Nilai [A] then
Begin
Besar := Nilai [A] ;
NM := Nama [A] ;
End ;
writeln (NM, Besar) ;
End.


Sedangkan nilai terkecil ada pada nama

A.      ?    Lina

B.      ?    Watinah

C.    :-)  Kalla

D.      ?    Surya

29.  uses crt;
const
Nama : Array [1..7] of string [10] = ('Lina,'MariaF','Hamid','Surya','Polin','Watinah','Kalla') ;
Nilai : Array [1..7] of integer = (60,75,55,65,70,80,40) ;

Var
A : Byte
Besar : integer
NM : string [10]
Begin
Besar := Nilai [1] ;
NM := Nama [1] ;
For A := 2 to 7 do
Begin
If Besar < Nilai [A] then
Begin
Besar := Nilai [A] ;
NM := Nama [A] ;
End ;
writeln (NM, Besar) ;
End.

Lebar array dari konstanta Nama dan Nilai adalah

A.    ?  10

B.    :-)  7

C.      ?    4

D.    ?  5

30.  uses crt;
const
Nama : Array [1..7] of string [10] = ('Lina,'MariaF','Hamid','Surya','Polin','Watinah','Kalla') ;
Nilai : Array [1..7] of integer = (60,75,55,65,70,80,40) ;

Var
A : Byte
Besar : integer
NM : string [10]
Begin
Besar := Nilai [1] ;
NM := Nama [1] ;
For A := 2 to 7 do
Begin
If Besar < Nilai [A] then
Begin
Besar := Nilai [A] ;
NM := Nama [A] ;
End ;
writeln (NM, Besar) ;
End.

Tipe data dari kontanta Nama adalah

A.      :-)    String

B.      ?    Integer

C.      ?    Boolean

D.      ?    double