Сумма К членов ряда Фибоначчи Опции

[-Алексей-]

Уважаемые форумчане!

Помогите пожайлуста с составлением алгоритма для вычисления суммы К членов ряда Фибоначчи.
Ряд Ф.: 1 1 2 3 5 8 13...
Каждый член равен сумме 2 предыдущех.

Для суммы есть формула summa(n)=f(n+2)-1.

Желательно использовать рекурсию.

Спасибо всем, кто ответит!

М

Вопросы постим сюда, а не в FAQ !!! volvo

[volvo]

Вообще-то как раз наоборот, рекурсию здесь НЕжелательно использовать (при маленьких значениях N работать будет, как только начнешь увеличивать - будет вылетать), но если надо...

function fib(n: integer): integer;
begin
  if n < 3 then fib := 1
  else fib := fib(n - 1) + fib(n - 2)
end;

function summa(n: integer): integer;
begin
  summa := pred( fib(n+2) );
end;

begin
  writeln( 's = ', summa(5) );
end.