Question

Составить алгоритм и программу в паскале вывести n-ое число фибоначчи (1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, …). справка: последовательность чисел, каждый член которой равен сумме двух предыдущих, имеет множество любопытных свойств. () подсказка: а) храним в памяти в каждый текущий момент три числа, текущее и два предыдущих; б) перед началом вычислений f1=1, f2=1; в) после вычисления текущего числа по формуле ft = f1 + f2 необходимо выполнить передвижку чисел f1 = f2 f2 = ft

Answer 1

Для решения создадим функцию Fib(n), в качестве аргумента она будет получать число n. Эта функция будет возвращать число, которое будет равно f(n-1) + f(n-2). То есть она вызывает себя 2 раза из самой себя до тех пор ,пока не дойдет до 1 или 2.
Добавим условие  на 1 и 2(if n <=2 then Fib:= 1), которое прекратит нашу рекурсию
PascalABC.NET

var

n: integer;

function Fib(n:integer): longint;
Begin
if n <=2 then Fib:= 1 else
Fib:= Fib(n - 1) + Fib(n - 2);
end;

Begin
readln(n);
Writeln(Fib(n));
end.