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 <= 2 DO
j := 1;
WHILE j <= 3 DO
WRITELN('i= ', i , ' j= ', j);
j := j + 1;
i := i + 1;
Listing programa:
PROGRAM p08610103;
USES
WinCrt;
VAR { deklarisanje promjenljivih }
i, j : Integer;
BEGIN
WRITELN('Trougao'); { naslov }
i := 1;
WHILE i <= 2 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
|