Napisati program za izračunavanje formule
     s=1+2/2!+6/3!+...+n(n-1)/n!
sa funkcijom za izračunavanje faktorijela.

Listing programa:

PROGRAM faktorijel;
VAR
  i, n: Integer;
  s : 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
  Writeln ('Suma faktorijel brojeva do n ');
  Write('n ');
  Readln(n);
  s := 1; 
  FOR i := 2 TO n DO
    s := s + (i-1)*i/fact(i);
  writeln('faktorijl  = ', s );
  READLN;
END.

Index