Числа Фибоначчи — проект на Delphi

DP.07 · Основы

Задача

Вывести первые n чисел Фибоначчи.

Алгоритм

Держим два соседних числа a и b, на каждом шаге вычисляем следующее и сдвигаем пару.

Исходный код

program ChislaFibonachchi;
{$mode delphi}{$apptype console}
var a, b, t, i, n: Integer;
begin
  Write('Сколько чисел? '); ReadLn(n);
  a := 0; b := 1;
  for i := 1 to n do begin
    Write(a, ' ');
    t := a + b; a := b; b := t;
  end;
  WriteLn;
  ReadLn;
end.

Пояснения

Итеративный вариант работает за O(n) без переполнения стека, в отличие от наивной рекурсии.