Рекурсия

[Pravednik]

Выполнить необходимую обработку, при этом описать рекурсивную процедуру или функцию, исходя из условия задачи. Исходные данные задать самостоятельно, учитывая специфику задачи.
7Дано натуральное число п. Вычислить: 1*2 + 2*3*4 + … + n*(n + 1) *…*2n.Помогите найти ошибку что не правильно?!
вот что я примерно решил!!!

Uses crt;
Var
   N : integer;
   A : integer;
Function prim (n: integer);
  Begin
      If n in [1..2] then pri:=1
    Else
       prim:= 1*2 + 2*3*4 + … + n*(n + 1) *…*2n;
    End;
Begin
Clrscr;
Writeln(‘Vvedite chislo’);
Readln(n);
A:=prim(n);
Writeln(a);
Readkey;
End.

Помогите пожалуста последняя задача которую я не решил для Кр!!!

Код вставляем в тег [CОDE][/СОDЕ] или пользуемся кнопкой # (расширенный режим). Модератор.

[puporev]

Выполнить необходимую обработку, при этом описать рекурсивную процедуру или функцию, исходя из условия задачи. Исходные данные задать самостоятельно, учитывая специфику задачи.
7Дано натуральное число п. Вычислить: 1*2 + 2*3*4 + … + n*(n + 1) *…*2n.Помогите найти ошибку что не правильно?!

Члены ряда в последовательности начиная со второго An=(2*n)!/(n-1)!; Поэтому используем рекурсивную функцию Factorial, описание которой есть почти во всех учебниках. Затем находим сумму всех членов ряда 2-го до n-го и прибавляем к ней 2(первый член). Написать это можно так:

program summa;
uses crt;
var n,i:integer;
    sum:longint;
function Fac(n:integer):longint;
begin
if n=1 then fac:=1
else fac:=n*fac(n-1);
end;
begin
clrscr;
writeln('n=');readln(n);
sum:=0;
for i:=2 to n do
sum:=sum+(fac(2*(i)))div(fac(i-1));
writeln('sum=',sum+2);
readln
end.

[Plague]

To puporev, а вы представляете вообще как ваша программа будет работать?

Вот рабочий код. Пользуйтесь на здоровье:

function f(n:longint):longint;
var i,t:longint;
begin
  if n=1 then f:=2
  else
    begin
      t:=1;
      for i:=n to 2*n do t:=t*i;
      f:=f(n-1)+t;
    end;
end;

[puporev]

Мне представлять не надо, программа просто работает и все.