ЧИСЛА ФИБОНАЧЧИ НА ДЕЛФИ

Числа Фибоначчи - это последовательность чисел, где каждое число равно сумме двух предыдущих. Например, первые десять чисел Фибоначчи: 0, 1, 1, 2, 3, 5, 8, 13, 21, 34. В Delphi можно легко реализовать расчет чисел Фибоначчи с использованием рекурсии.

function Fibonacci(n: Integer): Integer;begin if n = 0 then Result := 0 else if n = 1 then Result := 1 else Result := Fibonacci(n - 1) + Fibonacci(n - 2);end;

Эта функция рассчитывает n-ое число Фибоначчи. Если n равно нулю, то результат будет 0. Если n равно единице, то результат будет 1. В остальных случаях функция вызывает себя же с аргументами n-1 и n-2, и складывает результаты. Например, чтобы рассчитать первые десять чисел Фибоначчи:

for i := 0 to 9 do Memo1.Lines.Add(IntToStr(Fibonacci(i)));

Этот код заполняет компонент Memo1 первыми десятью числами Фибоначчи с помощью функции Fibonacci.

Музыка из последовательности чисел Фибоначчи

Числа Фибоначчи. Решение задачи на Python

Числа Фибоначчи

Выведение чисел delphi-hlp.ru

Алгоритмы и Структуры Данных. Урок 1: Введение. Числа Фибоначчи.

Число Бога. Неопровержимое доказательство Бога; The number of God. The incontrovertible proof of God

Числа Фибоначчи и формула Бине