Вычислить значение суммы - Pascal

[avatar54]

Вычислить значение суммы (значение n вводится с клавиатуры) при помощи рекурсивной процедуры
Безымянный11111.png

VAR N: INTEGER;ss: real;
  procedure Sum(K:real; var s:real);           
   BEGIN
    IF K=0 THEN S:=1
       ELSE
        S:=1/(k*(k+1)) ;
 end;
BEGIN
  WRITE('N='); READLN(N); sum(n,ss);
  WRITELN('S=',ss:0:5) ; readln
END.

[newerow1989]

Рекурсивная:

VAR N: INTEGER;ss: real;
  procedure Sum(K:real; var s:real);
  var ss:real;
   BEGIN
    IF K=0 THEN S:=1
       ELSE
       begin
          Sum(k-1,ss);
          S:=1/(k*(k+1))+ss;
       end;
 end;
BEGIN
  WRITE('N='); READLN(N); sum(n,ss);
  WRITELN('S=',ss:0:5) ; readln
END.

Без рекурсии:

VAR i,N: INTEGER;ss: real;
  function Sum(n:integer):real;
   BEGIN
    IF n=0 THEN Result:=1
       ELSE
        Result:=1/(n*(n+1)) ;
 end;
BEGIN
  WRITE('N='); READLN(N);
  ss:=0;
  For i:=0 to n do
     ss:=ss+sum(i);
  WRITELN('S=',ss:0:5) ; readln
END.

[avatar54]

спасибо

[newerow1989]