Рекурсия.Вычисление n-го элемента посл-ти, Вычисление n-го элемента посл-ти чисел Фибоначчи Опции

[BSS]

Очень нужна рекурсивная реализация для вычисления n-го элемента последовательности чисел Фибоначчи с использованием вспомогательного массива для хранения вычисленных значений
Помогите пожалуйста решить.

[BSS]

Вычислить n-й член последовательности Фибоначчи обычным способом и ускоренным (порядка С logn)
---------------

program fibona4i;
var n,k:longint;
procedure f1_usk;
 var a11,a12,a22,a21,d11,d12,d21,d22,c11,c12,c21,c22:longint;
  begin
  a11:=1;
  a12:=1;
  a21:=1;
  a22:=0;
  c11:=a11;
  c12:=a12;
  c21:=a21;
  c22:=a22;
  while n>2 do begin
  dec(n);
  d11:=a11*c11+a12*c21;
  d12:=a11*c12+a12*c22;
  d21:=a21*c11+a22*c21;
  d22:=a21*c12+a22*c22;
  c11:=d11; c12:=d12; c21:=d21; c22:=d22;
  end;
  writeln(d11);
  end;
procedure f2;
 var i,c,fpr,fsl:longint;
  begin
  fpr:=1;
  fsl:=1;
  for i:=1 to n-2 do begin
      c:=fsl;
      fsl:=fpr+fsl;
      fpr:=c;
  end;
  writeln(fsl);
  end;
(*Osn proga*)
begin
writeln('Usk sposob=1','   ','Ob sposob=2');
read(k);
writeln('Nomer 4isla');
read(n);
case k of
1: f1_usk;
2: f2;
end;
end.

-----------------------------------
уберите плз лишнее, оставив только рекурсивное решение

М

Тэги!!

Сообщение отредактировано: Lapp - 26.03.2010 6:26