9.3.. Napisati program za izračunavanje formule
     c = n! * m!

Opis programa: Prethodni programi su imali imao samo jedno korištenje funkcije odnosno 2 korištenja funkcije i zatim sabiranje dobijenih vrijednosti. Ovaj program sadrži dva poziva iste funkcije sa drugim vrijednostima. Prvi put se poziva sa n a drugi put sa m, a zatim množenje dobijenih vrijednosti iz potprograma.

Listing programa:

PROGRAM 09311018;
{fun04a, c := n! * m!  proizvod dva faktorijela}

USES
  WinCrt;
VAR
  n, m: Integer;
  c : Real;
FUNCTION fact(a:Integer):Real;
VAR
  i: Integer;
  p: Real;
BEGIN
  p := 1;
  FOR i:= 1 TO a DO
    p := p * i;
  fact := p;
END;

BEGIN       {MAIN}
  Writeln ('Proizvod faktorijelova dva broja ');
  Write('n m ');
  Readln(n, m);
  c := fact (n) * fact (m);
  writeln('Proizvod dva faktorjela  = ', c );
END.

Index