8.1.. 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 P08114015;
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 := 0 TO i - 1 DO
        IF j = 0 THEN       { ispod i na i glavnoj dijagonali? }
          WRITE(znak, ' ')        { znak i prazno mjesto }
        ELSE
          WRITE('I ', znak, ' ');  { I prazno mjesto znak i prazno mjesto }
      WRITELN;
    END;
  READLN;
END.

II verzija
PROGRAM P08114015;
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
      WRITE(znak, ' ');     { znak u prvoj koloni}
      FOR J := 1 TO i - 1 DO  { ima n-1 redova sa kombinacijom i znak}
        WRITE('I ', znak, ' ');  { I prazno mjesto znak i prazno mjesto }
      WRITELN;
    END;
  READLN;
END.

Ispis na ekranu:

Index