Рекурсивная функция

[Natalian]

Пожалуйста, помогите. Нужна помощь(Рекурсивная функция) Никак не могу решить

[Serge_Bliznykov]

классика. вычисление факториала.

function Factorial(n: LongInt):LongInt;
begin
   if n<2 then Factorial := 1
   else Factorial := n*Factorial(n-1)
end;

[Natalian]

Нет, не так. Это только для факториала

Задание такое

[Serge_Bliznykov]

Natalian, да, это для вычисления факториала.
А что, в вашем сообщении был другой вопрос?!

Формулы с чужого ( я бы даже сказал - "чуждого") форума не показываются.
Поэтому сделайте скриншот задания и выложите картинку сюда (через ответ - Расширенный режим - Управление вложениями).

Ну или ждите, пока на кибере Вам ответят!

[Natalian]

Ошиблась

[newerow1989]

var i,n,fac:integer;
    s:real;
    zn:-1..1;
begin
   Write('n = '); Readln(n);
   s:=0;
   zn:=1;
   fac:=1;
   For i:=1 to n do
   begin
      zn:=-zn;
      fac:=fac*i;
      s:=s+(zn*i*i*(i+1))/fac;
   end;
   Writeln(s:5:5);
   Readln;
end.

[FPaul]

Думаю, нет - т.к.

Сообщение от Natalian

Нужна помощь(Рекурсивная функция) Никак не могу решить

[Аватар]

Используя рекурсию так можно

function Summa(i: Integer; var Member: Double): Double;
var s: Double;
begin
  if i<2 then begin Member:=-2; Summa:=Member; end
  else begin
    s:=Summa(i-1,Member);
    Member:=-Member*(i+1)/(i-1)/(i-1);
    Summa:=s+Member;
  end;
end;

А просто используя рекуррентность так, что проще и прозрачней

  r:=-2; s:=r; n:=20;
  for i:=2 to n do begin
    r:=-r*(i+1)/(i-1)/(i-1);
    s:=s+r;
  end;

факториал в цикле - фи-фи-фи