8.6.. Ispisati brojeve kao na slici:
Opis programa: Ispis se izvodi sa dvije REPEAT naredbe. Vanjska petlja mijenja vrijednosti od 1 do 2
WHILE i <= 3 DO
j := 1;
WHILE j <= 3 DO
WRITELN('i= ', i , ' j= ', j);
j := j + 1;
i := i + 1;
Listing programa:
PROGRAM p08710104;
USES
WinCrt;
VAR
i, j : INTEGER;
BEGIN
WRITELN('Dvije petlje'); { Dvije petlje }
i := 1;
WHILE i <= 3 DO
BEGIN
j := 1;
WHILE j <= 3 DO
BEGIN
WRITELN('i= ', i , ' j= ', j);
j := j + 1;
END;
WRITELN;
i := i + 1;
END;
END.
Ispis na ekranu:
Index
|