Очень нужна рекурсивная реализация для вычисления n-го элемента последовательности чисел Фибоначчи с использованием вспомогательного массива для хранения вычисленных значений
Помогите пожалуйста решить.
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.
М | Тэги!! |
const
maxValue = 256;
var
Results: array[1 .. maxValue] of longint;
function fib(n: integer): longint;
begin
if Results[n] = -1 then
if n <= 2 then Results[n] := 1
else Results[n] := fib(n - 1) + fib(n - 2);
fib := Results[n]
end;
var i: integer;
begin
for i := 1 to maxValue do Results[i] := -1;
writeln(fib(11));
end.
const
maxValue = 256;
var
Results: array[1 .. maxValue] of longint;
function fib(n: integer): longint;
begin
if Results[n] = -1 then
if n <= 2 then Results[n] := 1
else Results[n] := fib(n - 1) + fib(n - 2);
fib := Results[n]
end;
var i,n: integer;
begin
readln(n);
for i:= 1 to maxValue do Results[i]:= -1;
writeln(fib(n));
end.