N начальных чисел ряда Фибоначчи

В этой теме 1 ответ, 2 участника, последнее обновление  Васильев Владимир Сергеевич 1 год, 7 мес. назад.

Просмотр 2 сообщений - с 1 по 2 (из 2 всего)
  • Автор
    Сообщения
  • #3316

    ololena696
    Участник

    Доброго времени суток. Помогите пожалуйста написать программу.

    Создать список из N начальных чисел ряда Фибоначчи

    #3318

    В соседней теме мы описывали программу, выводящую числа Фибоначчи меньше заданного. Вы можете использовать ее при написании вашей задачи:

    next_fib(F1, F2, F3):-
      F3 is F1 + F2.
    
    fib_list(F1, F2, 0, [F1, F2]):-!.
    fib_list(F1, F2, Length, [F1|Tail]):-
      NextLength is Length - 1,
      next_fib(F1, F2, F3),
      fib_list(F2, F3, NextLength, Tail).

    fib_list

    Тут предикат next_fib принимает два числа — предыдущие числа Фибоначчи и выводит следующее. Функция fib_list отсчитывает заданное количество чисел, постепенно уменьшая счетчик. Затем, когда счетчик станет равен нулю — возвращает список из двух последних чисел Фибоначчи.

Просмотр 2 сообщений - с 1 по 2 (из 2 всего)

Для ответа в этой теме необходимо авторизоваться.