9.5. Napisati program za izračunavanje x=(a!-b!)/c! - funkcija proizvod.

Listing programa:

PROGRAM proizvod03;
{Program izracunava x=(a!-b!)/c! - funkcija proizvod}
USES
  WinCrt;
Var
  a, b, c : Integer;
  x : Real;

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

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

BEGIN    {Glavni program}
  Writeln('x=(a!-b!)/c!');
  Write('a ');   { ulazne vrijednosti }
  Readln(a);
  Write('b ');
  Readln(b);
  Write('c ');
  Readln(c);
  x := (Fact(a) - Fact(b))/Fact(c); { izracunaj}
  Write ('a!:', Fact(a), '  b!:', Fact(b), '  c!:', Fact(c), '  x!:', x); {ispis}
END.

Izvođenje programa:

Index