Page 156 - Pemrograman Dasar kelas X

152 Pemrograman Dasar SMK Kelas X Sem 2

writeln;

until j=jml;
end.
Output dari program di atas jika jml = 3 adalah

a. * b. ***
** ***
*** ***

c. *** d. *
** *
* *

e. Salah semua

3. Perhatikan kode program berikut.
Var I, n: integer;

Begin
Write(‘banyaknya pengulangan ?’);

readln(n);
i:=1;
repeat

begin
write(i);
i:=i+1;

end;
until (i<=n)
end.

Output dari program di atas apabila n=0 adalah

a. 1 b. 12

c. 123 d. 1234
e.

4. Perhatikan kode program berikut.
Var i,n: integer;

Begin
Write(‘banyaknya pengulangan ?’);
readln(n);

for i:=1 to n do
write(i);