Рекурсия - 15 стр.

UptoLike

Составители:

Рубрика:

Пример 4 Описать и использовать функцию вычисления числа Фибоначчи

с номером n.

Как известно, определение чисел Фибоначчи рекурсивно:

⎩

⎨

⎧

−−

.1,

1 ,0,1

nff

program Rec_4;

var n, f: integer;

function Fib(n: integer): integer;

begin

if (n=0) or (n=1) then Fib:=1

else Fib:= Fib(n-1)+ Fib(n-2)

end;

begin

write('Введите целое число ');

readln(n);

f:= Fib(n);

writeln(n, '-е число Фибоначчи равно ', f)

end.

Однако, такое решение крайне неэффективно, поскольку содержит боль-

шое количество повторяющихся вычислений.