Рекурсивно найти N-й элемент последовательности чисел Фибоначчи

@be first · Регистрация: 05.02.2018

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста, как написать такую простенькую программу:
Описать рекурсивную функцию Fib2(N) целого типа, вычисляющую
N-й элемент последовательности чисел Фибоначчи (N — целое число):
F1 = F2=F3=1, FK = FK−3+FK−2 + FK−1, K = 4, 5, . . . . Считать, что номер N не превосходит 20. Вывести результат вместе с количеством рекурсивных вызовов функции.

@Ivandur · 19.05.2018, 21:37

Pascal

var nf,nn,res:integer;
function fib2(N:integer);
begin
inc(nf);
if (N>=1)and(N<=3) then
   fib2:=1
else
   fib2:=fib2(N-3)+fib2(N-2)+fib2(N-1);
end;
 
begin
nf:=1;
write('Введите N:');
read(nn);
res:=fib2(nn);
writeln('Результат = ',res,'; Кол-во вызовов = ',nf);
end.

Примерно так...

@Hitoku · 19.05.2018, 22:59

Ivandur, забыли

Pascal

2	function fib2(N:integer):integer;

@be first 0 / 0 / 0 Регистрация: 05.02.2018 Сообщений: 4
		1
	Рекурсивно найти N-й элемент последовательности чисел Фибоначчи 19.05.2018, 19:18. Показов 4154. Ответов 2 Метки нет (Все метки) Подскажите, пожалуйста, как написать такую простенькую программу: Описать рекурсивную функцию Fib2(N) целого типа, вычисляющую N-й элемент последовательности чисел Фибоначчи (N — целое число): F1 = F2=F3=1, FK = FK−3+FK−2 + FK−1, K = 4, 5, . . . . Считать, что номер N не превосходит 20. Вывести результат вместе с количеством рекурсивных вызовов функции. 0

	19.05.2018, 22:59

Рекурсивно найти N-й элемент последовательности чисел Фибоначчи

Решение