8.5.. 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 p08514033;
USES
  WinCrt;
VAR              { deklarisanje promjenljivih }
  i, j, 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 }

  FOR i:=1 TO n DO
    BEGIN
      FOR J:=1 TO n DO
          IF i + j < n + 1 THEN    { iznad sporedne dijagonale? }
            WRITE('    ')          { prazan prostor 4x}
          ELSE
            IF i + j = n + 1 THEN    { sporedna dijagonala? }
              WRITE(znak, ' ')       { sporedna dijagonala, znak prazno mjesto }
            ELSE
              WRITE('I ', znak, ' ');   { ispod sporedne dijagonale }
      WRITELN;
    END;
END.

Ispis na ekranu:

Index