Описать рекурсивную функцию Fib1(N) целого типа, вычисляющую N-й элемент последовательности чисел Фибоначчи.

@Student_Skgu · Регистрация: 29.09.2013

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

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

@Joy · 26.09.2014, 15:10

наверное так. в подсчете числа рекурсий не уверен

Pascal

var
  i:integer;
  rk:integer;
function Fib1(K:integer;var rk:integer):integer;
begin
  rk:=rk+1;
  if K>1 then Fib1:=Fib1(K-1,rk)+Fib1(K-2,rk) else Fib1:=K;
end;
begin
  for i:=0 to 5 do begin
  rk:=0;
    writeln('№ ',i,' значение :',Fib1(i,rk),' к-во рекурсий:',rk);
  end;  
end.

@APALoff · 26.09.2014, 15:20

Описать рекурсивную функцию вычисления последовательности Фибоначчи: F0=0, F1=1,Fn = Fn-1 + Fn-2

@Student_Skgu · 30.09.2014, 09:09 **[ТС]**

Pascal

function Fib1(K:integer;var rk:integer):integer;
begin
  rk:=rk+1;
  if K>1 then Fib1:=Fib1(K-1,rk)+Fib1(K-2,rk) else Fib1:=K;
end;

что делает функция?

Добавлено через 16 минут
Обьясните программу подробно

Добавлено через 27 секунд

Pascal

var
  i:integer;
  rk:integer;
function Fib1(K:integer;var rk:integer):integer;
begin
  rk:=rk+1;
  if K>1 then Fib1:=Fib1(K-1,rk)+Fib1(K-2,rk) else Fib1:=K;
end;
begin
  for i:=0 to 5 do begin
  rk:=0;
    writeln('№ ',i,' значение :',Fib1(i,rk),' к-во рекурсий:',rk);
  end;  
end.

@Антон1985 · 01.10.2014, 17:16

Pascal

var  {объявление переменных}
  i:integer;  {счетчик для for}
  rk:integer;  {счетчик, количество рекурсий}
function Fib1(K:integer;var rk:integer):integer;  {объявление функции}
begin
  rk:=rk+1;  {увеличение счетчика количества рекурсий}
  if K>1 then  {проверка условия}
    Fib1:=Fib1(K-1,rk)+Fib1(K-2,rk)  {если истина, вычисление выражения, причем функция вызывает сама себя, но уже с другими параметрами}
  else 
    Fib1:=K;  {если ложно, результат функции равен [B]К[/B]}
end;
begin
  for i:=0 to 5 do begin  {объявление цикла for}
  rk:=0;  {начальное значение счетчика}
    writeln('№ ',i,' значение :',Fib1(i,rk),' к-во рекурсий:',rk);  {вывод строки}
  end;  {конец цикла for}
end.

@Student_Skgu 1 / 1 / 0 Регистрация: 29.09.2013 Сообщений: 72
		1
	Описать рекурсивную функцию Fib1(N) целого типа, вычисляющую N-й элемент последовательности чисел Фибоначчи. 26.09.2014, 12:57. Показов 8112. Ответов 4 Метки количество рекурсий, последовательность фибоначчи, рекурсивная функция (Все метки) Вариант4. Описать рекурсивную функцию Fib1(N) целого типа, вычисляющую N-й элемент последовательности чисел Фибоначчи (N — целое число): F1 = F2 = 1, F(K) = F (K–2) + F( K–1), K = 3, 4, … . С помощью этой функции найти пять чисел Фибоначчи с данными номерами, и вывести эти числа вместе с количеством рекурсивных вызовов функции Fib1, потребовавшихся для их нахождения. 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	26.09.2014, 15:20	3
	Описать рекурсивную функцию вычисления последовательности Фибоначчи: F0=0, F1=1,Fn = Fn-1 + Fn-2 0

Опции темы