Решаем задачи Абрамян на Паскале. Recur4

Recur4. Описать рекурсивную функцию Fib1($$N$$) целого типа, вычисляющую $$N$$-й элемент последовательности чисел Фибоначчи ($$N$$ — целое число): $$F_1=F_2=1$$,$$F_K=F_{K-2}+F_{K-1}$$, $$K=3, 4,…$$. С помощью этой функции найти пять чисел Фибоначчи с данными номерами, и вывести эти числа вместе с количеством рекурсивных вызовов функции Fib1, потребовавшихся для их нахождения.

Решение:

program Recur4;

var

N,i,Num:integer;

Function Fib1(N:integer):integer;

begin

if N>2 then Fib1:=Fib1(N-2)+Fib1(N-1)

else Fib1:=1;

inc(num);

end;

begin

for i:=1 to 5 do

begin

Num:=0;

Write('N: ');

Readln(N);

Writeln(Fib1(N),':',Num);

end;

end.

Другие задачи из раздела Recur можно посмотреть здесь.

Комментарии 2

#include<iostream>

using namespace std;

int fib1(int N) {

if (N<2)

return 1;

else

return fib1(N-2)+fib1(N-1);

}

int main()

{

int a=5;

for(int i = 0; i<=a; i++)

cout<<i+1<<":" <<fib1(i) << endl;

return 0;

}

Ответить

program Recur4;//pabc.net

//uses PT4;

function CoverFib1(n, Count: integer): (integer, integer);

function Fib1(n: integer): integer;

begin

Count += 1;

if (n = 1) or (n = 2) then

Result := 1

else

Result := Fib1(n - 1) + Fib1(n - 2)

end;

begin

Result := (Fib1(n), Count)

end;

begin

//Task('Recur4');

ReadSeqInteger(5)

.Select(x -> CoverFib1(x, 0))

.ForEach(x -> begin Println(x.Item1, x.Item2) end)

end.

Ответить

Решаем задачи Абрамян на Паскале. Recur4

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ