Рекурсия

[LegionuS]

Цель работы: Выполнить необходимую обработку, при этом описать рекурсивную процедуру или функцию, исходя из условия задачи. Исходные данные задать самостоятельно, учитывая специфику задачи.

Задача: Дано натуральное число п. Вычислить: 1 2 + 2 3 4 + … + n (n + 1) … 2n.

[Stilet]

n (n + 1)

Умножение подразумевается?

[LegionuS]

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

Умножение подразумевается?

ну естественно!

[Stilet]

  const n=10;
  function Result(i:integer):integer;
  begin
   if i<2*n then Result:=i*(i+1)+ok(i+1);
  end;
begin
 writeln(Result(1));readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Учитывая что это паскаль как-то так.

[Serge_Bliznykov]

ну естественно!

ну, раз естественно, так получите ещё один вариант.
естественно, на Паскале:

function MyRecursiveMulti(M0, M : longint) : longint;
begin
  if M=M0 then MyRecursiveMulti := M0
  else MyRecursiveMulti := M * MyRecursiveMulti(M0, M-1)
end;


function MyRecursiveSum(K : longint) : longint;
var MultiPrev : Longint;
begin
  MultiPrev := MyRecursiveMulti(K, 2*K);
  if K=1 then MyRecursiveSum := MultiPrev
  else MyRecursiveSum := MultiPrev + MyRecursiveSum(K-1)
end;   


var
  N : longint;
begin
  WriteLn('Введите N');
  Readln(N);
  WriteLn('Результат ряда = ',MyRecursiveSum(N));
  readln;
end.