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

@free16 · Регистрация: 20.02.2017

Author24 — интернет-сервис помощи студентам

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> 1+\frac{1}{2}+\frac{1}{6}+\frac{1}{12}+...+\frac{1}{n(n+1)}<br />$

Помогите сделать так, что бы считало всю сумму, у меня получилось найти только последний член последовательности.

Pascal

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

Pascal

 VAR N: longint;
  FUNCTION S(K:real):real;           
   BEGIN
    IF K=0 THEN S:=0
       ELSE S:=1/(k*(k+1));
  END;
BEGIN
  WRITE('N='); READLN(N);
  WRITELN('S=',S(N):0:5) ; readln
END.

@Puporev · 26.06.2017, 18:57

Pascal

function s(n:integer):real;
begin
if n=0 then s:=1 else s:=s(n-1)+1/(n*(n+1));
end;
var n:integer;
begin
write('n=');
readln(n);
write('S=',s(n):0:5);
readln
end.

@free16 · 26.06.2017, 20:34 **[ТС]**

Не могли бы вы помочь ещё сделать через процедуру

@Puporev · 26.06.2017, 20:36

Не умею я писать такие процедуры.

@free16 0 / 0 / 0 Регистрация: 20.02.2017 Сообщений: 55
	26.06.2017, 20:34 [ТС]	3
	Не могли бы вы помочь ещё сделать через процедуру 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.06.2017, 20:36	4
	Не умею я писать такие процедуры. 0