Предмет: Информатика, автор: zac00

Напишите нерекурсивную функцию Фибоначи


Аноним: Что она должна принимать в качестве параметров и что возвращать?
zac00: Просто такое задание дали, я и сам не понимаю что делать. Тупые учебники пошли
zac00: Больше ничего не дано
Аноним: Но сдавать ведь задание Вам, поэтому Вы должны определиться, каким должно быть решение.
Аноним: Можно, к примеру, вычислять число Фибоначчи с номером N. А можно получать весь набор чисел Фибоначчи, включая число с номером N
zac00: Ну давайте только с номером N

Ответы

Автор ответа: Аноним
0

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

function Fib(n: integer): integer;

begin

 if n < 3 then Result := 1

 else

 begin

   var (a, b) := (1, 1);

   for var i := 3 to n do

     (a, b) := (a + b, a);

   Result := a

 end

end;


begin

 for var i := 1 to 10 do Fib(i).Print; // контрольный пример

end.

1 1 2 3 5 8 13 21 34 55

Похожие вопросы
Предмет: География, автор: sonya146374
Предмет: Химия, автор: nas6669
Предмет: Алгебра, автор: anlevina