Page 141 - Pemrograman Dasar kelas X
P. 141
Bab 4 Struktur Kontrol Perulangan 137
Begin
For i := 1 To 3 Do
Begin
For j := 3 DownTo i Do
Write(j);
writeln;
End;
End.
a. 123 b. 321
12 32
1 3
c. 1 d. 3
12 32
123 321
e. 321
21
1
3. Program untuk menghasilkan output : 5 4 3 2 1 adalah.....
a. var i: byte; b. var i: integer;
begin begin
For i:= 5 to 1 Do For i:= 5 downto 1 Do
Write(i); Writeln(i);
end. end.
c. var i: integer; d. var i: byte
begin begin
For i:= 1 to 5 For i:= 5 downto 1 Do
Do Write(i); Write(i);
end. end.
e. var i: integer;
begin
For i:= 1 to 5
Do Writeln(i);
end.
4. Perhatikan program berikut.
Var a,b : integer;
Begin
