8.2.. Napisati program za ispis trougla kao na slici sa željenim brojem redova:
.

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

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

Listing programa:

PROGRAM p08214011;
USES
  WinCrt;
VAR              { deklarisanje promjenljivih }
  i, j, k, n : Integer;
  znak : Char;   { znak koji se ispisuje }

BEGIN
  WRITELN('Trougao');  { naslov }
  
  Write('Broj redova: ');    { ulazne promjenljive }
  Readln(n);                 { broj redova }
  Write('Znak '); 
  Readln(znak);             { znak }
  i := 1;
  WHILE i <= n DO
    BEGIN
      j := 1;
      WHILE i + j < n + 1 DO  { iznad sporedne dijagonale? }
        BEGIN
          WRITE(' ');         { prazno mjesto}
          j := j + 1;         { kraj While petlje j}
        END;
      k := 1;
      WHILE k <= 2*i - 1 DO
        BEGIN
          WRITE(znak);           { znak }
          k := k + 1;
        END;                       { kraj While petlje k}
      WRITELN;
      i := i + 1;
    END;
END.

Ispis na ekranu:

Index