Program Pengulangan (LooP)

1). PERULANGAN FOR TO DO
PROGRAM PERULANGAN;
USES WINCRT;
VAR A:INTEGER;
BEGIN
FOR A:=1 TO 10 DO
WRITELN('BANGGA PRATAMA');
END.

2) PERULANGAN WHILE DO
PROGRAM PERULANGAN_WHILE_DO;
USES WINCRT;
VAR A:INTEGER;
BEGIN
A:=1;
WHILE A
BEGIN
WRITELN('TUGAS PASCAL');
A:=A+1;
END;
END.

3). PERULANGAN FOR DOWNTO DO
PROGRAM PERULANGAN_FOR_DOWNTO_DO;
USES WINCRT;
VAR A:INTEGER;
BEGIN
FOR A:= 10 DOWNTO 1 DO
WRITELN(A);
END.

4). PERULANGAN FOR TO DO BERSARANG
PROGRAM PERULANGAN_FOR_TO_DO_BERSARANG;
USES WINCRT;
VAR A,B:INTEGER;
BEGIN
FOR A:= 1 TO 10 DO
FOR B:= 1 TO 5 DO
WRITELN(A,' ',B);
END.

5) WHILE DO BERSARANG
PROGRAM WHILE_DO_BERSARANG;
USES WINCRT;
VAR
A,B:INTEGER;
BEGIN
CLRSCR;
A:=1;
B:=1;
WHILE A
BEGIN
A:=A+1;
WHILE B
BEGIN
WRITE(A:4,B:2);
B:=B+1;
END;
END;
END.

6) REPEAT UNTIL
PROGRAM REPEAT_UNTIL;
USES WINCRT;
VAR
A,B:INTEGER;
BEGIN
A:=1;
REPEAT
B:=1;
REPEAT
WRITELN('[',A,',',B,']');
B:=B+1;
UNTIL B >4;
A:=A+1;
UNTIL
A >2
END.