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

Opis programa: Prethodni program je imao samo jedno korištenje funkcije. Ovaj program sadrži dva poziva iste funkcije sa drugim vrijednostima. Prvi put se poziva sa n a drugi put sa m.

Listing programa:

PROGRAM 09311017;
{c := n! + m!  proizvod dva faktorijela}

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 ('Suma faktorijelova dva broja ');
  Write('n m ');
  Readln(n, m);
  c := fact (n) + fact (m);
  writeln('Suma dva faktorjela  = ', c );
  READLN;
END.

Index