9.5. Izračunati stepen 2 za vrijednosti eksponenta od 1 do 10.

Listing programa:

PROGRAM p09511027;
{Program izracunava stepen 2 od 1 do 10}
USES
  WinCrt;
Var
  i, n : Integer;

FUNCTION Stepen_od_2 (don : Integer) : Integer;  {funkcija}
Var
  j, P : Integer;

BEGIN
  P := 1;
  FOR j := 1 TO don DO
    BEGIN
       P := P * 2;
    END;
  Stepen_od_2 := P;
END;

BEGIN    {Glavni program}
  Writeln('stepen od 2 u intervalu od 1 do 10');
  Writeln ('i       Stepen_od_2 ');
  FOR i := 1 TO 10 DO
      Writeln ( i, '           ', Stepen_od_2 (i));
END.

Izvođenje programa:

Index