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. Glavna dijagonala i=j

Listing programa:

PROGRAM p08514022;
USES
  WinCrt;
VAR              { deklarisanje promjenljivih }
  i, j, n, k : Integer;

BEGIN
  WRITELN('Trougao');  { naslov }
  
  Write('Broj redova: ');    { ulazne promjenljive }
  Readln(n);                 { broj redova }

  k := 0;
  FOR i:=1 TO n DO
    BEGIN
      k := k + i;             { napredovanje u izabranom redu }
      FOR j:=1 TO n DO
          IF i >= j THEN      { ispod glavne dijagonale? }
            BEGIN
              WRITE(k, ' ');  { brojac }
              k := k - 1;
            END;
      k := k + i;             { napredovanje u izabranom redu }
      WRITELN;
    END;
END.

Ispis na ekranu:

Index