1. Diberikan program sebagai berikut :

Var a : char;
b,c : real;
Begin
Readln(a);
b := 1;
c := a+b;
Writeln(c);
End.

Bila input = 9, maka outputnya adalah ...

A. 9
B. 1
C. 10
D. 8
E. Runtime Error



2. Diberikan program sebagai berikut:

Var kal : string [10];
Begin
Kal := '#Senang#';
Kal := copy(kal,2,length(kal)) + kal;
Write(kal);
End.

Apa Output program di atas ?

A. #Senang#
B. #Senang##Senang#
C. Senang##Se
D. Senang#Sen
E. Senang#



3. Diberikan program sebagai berikut:

Begin
Writeln (ord('A'));
Write(Chr(90));
End.

Apa Output program diatas?
A. 65
Z
B. Z
65
C. B
89
D. 65Z
E. 89B

Untuk soal 4 – 5
FUNCTION fak (x, y: integer) : Integer;
BEGIN
if y:= 0 then fak := 1
else
fak := x * fak (x, y-1);
END;
Writeln (fak(5, 3));

4. Apa hasil dari program di atas!
a. 125
b. 8
c. 81
d. 3
e. 15

5. Jika writeln (fak(5,3)) diganti menjadi writeln (fak(4,5)), hasil dimunculkan adalah…
a. 20
b. 9
c. 1024
d. 64
e. 5

6. Manakah yang salah dari deklarasi dibawah ini
a. function info(a:byte):real;
b. function info:byte;
c. function info(a,b:byte) : real;
d. function info(a: real; b:integer):real;
e. function info(a:real);