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

1
2
3
--- --- IME
--- IME IME
IME IME IME

Opis programa: Petljom FOR J:=1 TO 3-i DO se ispisuju crtice a petlja FOR k:=1 TO i DO ispisuje ime. Petlja FOR i:=1 TO 3 DO odredjuje broj redova.

Listing programa:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PROGRAM p08114003;
USES
  WinCrt;
VAR
  i, j, k: INTEGER;
BEGIN
  FOR i:=1 TO 3 DO
    BEGIN   
      FOR J:=1 TO 3-i DO
        WRITE('--- ');
      FOR k:=1 TO i DO
        WRITE('IME ');
      WRITELN;
    END
END.

Ispis na ekranu:

Index