9.5. Naći n-ti stepen za upisani broj - funkcija proizvod.

Listing programa:

PROGRAM proizvod01;
{Naci n-ti stepen za upisani broj - funkcija proizvod}
Var
  i : Integer;
  st, br, a : Integer;

FUNCTION Fact :Integer;  {funkcija}
Var
  j, P : Integer;

BEGIN
  P := 1;
  FOR j := 1 TO st DO
    P := P * br;
  Fact := P;
END;

BEGIN    {Glavni program}
  FOR i := 1 TO 5 DO
    BEGIN
      Write('Broj ');
      Readln(br);
      Write('Stepen ');
      Readln(st);
      a:= Fact;
      Writeln (' Stepen:', st, '  broj:', br, ' rezultat', a);
    END;
  READLN;
END.

Ispis na ekranu:

Index