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

Opis programa:
Stepenovanje u Pascalu se izvodi korišćenjem dvije funkcije EXP i LN:
           ab= e ln ab      = e b*ln a    =exp(b*ln(a)) Vidi >>
Na slici je prikazan odnos redova i kolona.

Slika 1. Glavna dijagonala i=j

Listing programa:

PROGRAM p08514019;
USES
  WinCrt;
VAR              { deklarisanje promjenljivih }
  i, j, n : Integer;  
  Stepen : Real;   { stepen }

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

  FOR i:=1 TO n DO
    BEGIN
      FOR J:=1 TO n DO
        IF i >= j THEN       { ispod i na glavnoj dijagonali? }
          WRITE(2**(j-1),' ');        { znak }
      WRITELN;
    END;
END.

Verzija 2
PROGRAM p08514019;
VAR              { deklarisanje promjenljivih }
  i, j, n : Integer;  
  Stepen : Real;   { stepen }

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

  FOR i:=1 TO n DO
    BEGIN
      FOR J:=1 TO n DO
        IF i >= j THEN       { ispod i na glavnoj dijagonali? }
          BEGIN
            Stepen := EXP((j-1)*LN(2));    { 2 ** (j-1) }
            WRITE(trunc(Stepen), ' ');    { stepen indeksa kolone - 1 }
          END;
      WRITELN;
    END;
END.

Ispis na ekranu:

Index