Napisati program za ispis vrijednosti 2n za n od 1 do 10 sa procedurom za izračunavanje vrijednosti 2n .

Listing programa:

PROGRAM Tablica_potencija_broja;
VAR
 k, p :Integer;
PROCEDURE Pot;
VAR
  i: Integer;
BEGIN
  p := 2;
  FOR i := 2 TO k DO
    p := p  * 2;
END;

BEGIN       {MAIN}
  FOR k := 1 TO 10 DO
    BEGIN
      pot;
      Writeln('2 na   ', k, ' =  ',p);
    END;
  READLN;
END.

Ispis na ekranu:
2 na   1 =  2
2 na   2 =  4
2 na   3 =  8
2 na   4 =  16
2 na   5 =  32
2 na   6 =  64
2 na   7 =  128
2 na   8 =  256
2 na   9 =  512
2 na   10 =  1024

Index