Napisati program za izračunavanje formule
     s=1+2!/3+3!/6+...+n!/(1+2+3+...+n)
sa funkcijama za izračunavanje faktorijela i zbira prvih k prirodnih brojeva.

Listing programa:

PROGRAM faktorijel;
USES
  WinCrt;
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;

FUNCTION Harmonijski(a:Integer):Real;
VAR
  i: Integer;
  s: Real;
BEGIN
  s := 0;
  FOR i:= 1 TO a DO
    s := s + i;
    Harmonijski:= s;
END;

BEGIN
  Writeln ('Suma faktorijel brojeva do n ');
  Write('n ');
  Readln(n);
  s := 0;
  FOR i := 1 TO n DO
    s := s + fact (i)/Harmonijski(i+1);
  writeln('faktorijl  = ', s );
END.

Index