8.6.. Napisati program da ne ispisuje ime u prvom redu. Jedno ime u drugom, a zatim u svakom narednom po jedno ime više. Broj redova učitati sa tastature.

Opis rješenja: Dvije WHILE petlja od 1 do 3 se mijenjaju brojači. Unutrašnja petlja prvo ima jedan prolaz j=1, zatim 2 i na kraju 3 prolaza.

Opis programa: Na slici je prikazan odnos redova i kolona.

Slika 1. Glavna dijagonala i=j

Listing programa:

PROGRAM p08614057;
USES
  WinCrt;
VAR
  i, j, n: INTEGER;
BEGIN
  WRITE('Broj redova: ');    { ulazne promjenljive }
  READLN(n);                 { broj redova }
  i := 1;
  WHILE i <= n DO            { petlja za redove }
    BEGIN
      j := 1;
      WHILE j <= n DO        { petlja za kolona }
          BEGIN
            IF i >= j THEN    { ispod i na glavnoj dijagonali }
              WRITE('IME ');
            j := j + 1;
          END;
        WRITELN;
      i := i + 1;
    END;
END.

Ispis na ekranu:

Index