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

Primary tabs

Submitted by slavina036 on Sat, 09/11/2021 - 08:34

Forums:

Задача 6 урок 20

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

program u20z6;
var n:integer;
function fun(f2,f1,n1:integer):integer;
begin
  if (n1>1) then
  begin
    result:=fun(f1,f1+f2,n1-1);
  end
  else
    result:=f2;
end;
begin
  writeln('vvedite n');
  readln(n);
  writeln(fun(0,1,n));
  readln();
end.
  • Log in to post comments
  • 1549 reads
vedro-compota's picture

vedro-compota

Sun, 10/10/2021 - 13:08

добавить решение одним аргументом

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

slavina036

Tue, 10/12/2021 - 11:33 

program u20z6;
var n:integer;

function fun(n1:integer):integer;
begin
  if (n1=1) or (n1=2) then
    result:=1
  else
    result:=fun(n1-1)+fun(n1-2);
end;

begin
  writeln('vvedite n');
  readln(n);
  writeln(fun(n));
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 10/13/2021 - 20:40

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

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