8.6.. Napisati program da ispisuje u prvom redu crtice umjesto imena i na kraju ispisuju ime a zatim u svakom narednom po jedno ime više.

--- --- IME
--- IME IME
IME IME IME

Opis programa: Petljom j := 1; WHILE j <= 3-i DO se ispisuju crtice a petlja k := 1; WHILE k <= i DO ispisuje IME. Petlja WHILE i <= 3 DO odredjuje broj redova.

Listing programa:

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

Slika 1. Sporedna dijagonala i+j = n+1

PROGRAM p08614003;
USES
  WinCrt;
VAR
  i, j, k: INTEGER;
BEGIN
  i := 1;
  WHILE i <= 3 DO            { petlja za redove }
    BEGIN    
      j := 1;
      WHILE j <= 3-i DO      { petlja za kolona }
          BEGIN              { iznad glavne dijagonale }
            WRITE('--- ');
            j := j + 1;
          END;      
       k := 1;
       WHILE k <= i DO       { ispod i na glavnoj dijagonali }
         BEGIN
           WRITE('IME ');
           k := k + 1;
        END;
      WRITELN;
      i := i + 1;
    END;
  READLN;
END.

Ispis na ekranu:

Index