Задача 5 Урок 20

Primary tabs

Submitted by NewDeveloper on Tue, 08/24/2021 - 16:02

Forums:

Задача 5 Урок 20:

Пользователь получает на вход целое положительное число N напишите рекурсивную функцию, которая вернет число Фиббоначи стоящии под этим номером

function fib(n: integer): integer;
begin
 if n > 1 then result := fib(n - 1) + fib(n - 2)
 else result := n;
end;

var N: integer;
begin
  write('Введите номер числа Фибоначчи: ');
  readln(N);
  writeln(fib(N));
  readln();
end.
  • Log in to post comments
  • 1366 reads
vedro-compota's picture

vedro-compota

Tue, 08/24/2021 - 21:34

решение засчитано
подумать на решением в один рекурсивный вызов в теле фукции

_____________
матфак вгу и остальная классика =)

NewDeveloper

Wed, 08/25/2021 - 20:25 

type arr = array [1..2] of integer;
function fib(n: integer): arr;
const a: arr = (0, 1);
begin
 if n = 0 then result := a
 else
   begin
     a[2] += a[1];
     a[1] := a[2] - a[1];
     result := fib(n - 1);
   end;
end;

var N: integer;
begin
  write('Введите номер числа Фибоначчи: ');
  readln(N);
  writeln(fib(N)[1]);
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 08/29/2021 - 12:35

решение засчитано

_____________
матфак вгу и остальная классика =)