9.5. Za pet upisanih parova broja i eksoponeta izracunati razultat. - funkcija proizvod.

Listing programa:

PROGRAM proizvod02;
{Za pet upisanih parova broja i eksoponeta izracunati razultat. - funkcija proizvod}
USES
  WinCrt;
Var
  i : Integer;
  st, br, a : Integer;

FUNCTION Fact (bbr, sst:Integer) :Integer;  {funkcija}
Var
  j, P : Integer;

BEGIN
  P := 1;
  FOR j := 1 TO sst DO
    BEGIN
       P := P * bbr;
    END;
  Fact := P;
END;

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

Izvođenje programa:

Index