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

Question

Nanabatre 02.01.19

Решено

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

179

ОТВЕТЫ

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

var

n: integer;

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

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

119

Отв. дан 2019-02-01 06:48:10 Montrius

Другие вопросы в разделе - Информатика