9.5.21. Izracunava stepen broja 2 na 10 - funkcija stepen.

Listing programa:

PROGRAM stepen1do10;
{Izracunava stepen broja 2 na 10 - funkcija stepen}
USES
  WinCrt;
Var
  i : Integer;
  st, a : Integer;

FUNCTION Stepen :Integer;  {funkcija}
Var
  j, P : Integer;
BEGIN
  P := 1;
  FOR j := 1 TO 10 DO
    P := P * 2;
  Stepen := P;
END;

BEGIN    {Glavni program}
  Writeln ('Izracunava 2 na 10 : ', Stepen);
END.

Izvođenje programa:

Index