Ряд Фибоначчи

@Arxivator · Регистрация: 02.06.2014

Студворк — интернет-сервис помощи студентам

Добрый день. Буду очень рад, если сможете помочь.
На вход подается число. Нужно вывести его в виде списка в с.с. Фибоначчи.
Пример: вводим число 28. в ряду Фибоначчи (1 2 3 5 8 13 21 34) оно стоит между 21 и 34. Берем число, стоящее рядом с 28, но меньше его , т.е. 21. Т.к. 28>21, то начинаем список с 1. далее вычитаем 28-21 = 7. запоминаем 7 и идем к следующему числу в ряду Фибоначчи (приближаемся к началу ряда) - к числу 13. 7<13, значит в список ставим 0. идем дальше по ряду. 7<8, значит в список ставим 0. идем дальше по ряду. 7>5, в список ставим 1. отнимаем 7-5=2. запоминаем 2 и идем дальше по ряду. 2<3, в список ставится 0. далее. 2=2, в список ставим 1, 2-2 = 0, запоминаем 0, идем дальше по ряду. 0<1, в список ставим 0.
в итоге должно получится:
вводим: 28
на выходе: 1001010
з.ы. Ряд Фибоначчи требуется именно 1 2 3 5 8...

@Black Fregat · 23.06.2014, 21:30

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
domains
  i=integer
  il=i*
  
predicates
  generate(i,il,il)
  calculate(i,il,il)
  translate(i,il)
 
clauses
 
  generate(1,_,[1]):-
    !.
  generate(N, [X,Y|T], [X,Y|T]) :-
    X+Y>N,
    !.
  generate(N, [X,Y|T], L) :-
    XY=X+Y, 
    generate(N, [XY,X,Y|T], L).
  
  calculate(_,[],[]).
  calculate(N, [HF|TF], [1|TR]) :-
    N >= HF, 
    !,
    NN = N-HF,
    calculate (NN, TF, TR).
  calculate(N, [_|TF], [0|TR]) :-
    calculate (N, TF, TR).
    
  translate(N, D) :-
    generate(N, [2, 1], L),
    write("List: ", L), nl,
    calculate(N, L, D). 
    
goal
  write("Number: "), 
  readint(N),
  translate(N, D),
  write("Result: ", D), nl.

Добавлено через 1 минуту

Code
1
2
3
Number: 28
List: [21,13,8,5,3,2,1]
Result: [1,0,0,1,0,1,0]

@Arxivator · 24.06.2014, 13:02 **[ТС]**

Black Fregat, спасибо за помощь!, только есть один вопрос небольшой. при вводе 0 , выводит result [0,0]. как исправить?

@Black Fregat · 24.06.2014, 13:49

Прописать явно, как единицу

@Arxivator · 24.06.2014, 14:02 **[ТС]**

при вводе number: 1 - результат = [1]
а при вводе number: 0 = [0,0], это не верно, нужно как нибудь сделать , чтоб выводил либо [0], либо неверно.

@Black Fregat · 24.06.2014, 15:21

Там самое первое правило для 1 задаёт список явно.
Прописать точно такое же, но для нуля.

Если же нужно, чтобы выдавало ошибку, поставить во вторм правиле N>1

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Arxivator 0 / 0 / 0 Регистрация: 02.06.2014 Сообщений: 6

	Ряд Фибоначчи 22.06.2014, 16:35. Показов 4118. Ответов 5 Метки нет (Все метки) Добрый день. Буду очень рад, если сможете помочь. На вход подается число. Нужно вывести его в виде списка в с.с. Фибоначчи. Пример: вводим число 28. в ряду Фибоначчи (1 2 3 5 8 13 21 34) оно стоит между 21 и 34. Берем число, стоящее рядом с 28, но меньше его , т.е. 21. Т.к. 28>21, то начинаем список с 1. далее вычитаем 28-21 = 7. запоминаем 7 и идем к следующему числу в ряду Фибоначчи (приближаемся к началу ряда) - к числу 13. 7<13, значит в список ставим 0. идем дальше по ряду. 7<8, значит в список ставим 0. идем дальше по ряду. 7>5, в список ставим 1. отнимаем 7-5=2. запоминаем 2 и идем дальше по ряду. 2<3, в список ставится 0. далее. 2=2, в список ставим 1, 2-2 = 0, запоминаем 0, идем дальше по ряду. 0<1, в список ставим 0. в итоге должно получится: вводим: 28 на выходе: 1001010 з.ы. Ряд Фибоначчи требуется именно 1 2 3 5 8... 0

@Arxivator 0 / 0 / 0 Регистрация: 02.06.2014 Сообщений: 6
	24.06.2014, 13:02 [ТС]
	Black Fregat, спасибо за помощь!, только есть один вопрос небольшой. при вводе 0 , выводит result [0,0]. как исправить? 0

@Black Fregat Фрилансер 3709 / 2082 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	24.06.2014, 13:49
	Прописать явно, как единицу 0

@Arxivator 0 / 0 / 0 Регистрация: 02.06.2014 Сообщений: 6
	24.06.2014, 14:02 [ТС]
	при вводе number: 1 - результат = [1] а при вводе number: 0 = [0,0], это не верно, нужно как нибудь сделать , чтоб выводил либо [0], либо неверно. 0

@Black Fregat Фрилансер 3709 / 2082 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	24.06.2014, 15:21
	Там самое первое правило для 1 задаёт список явно. Прописать точно такое же, но для нуля. Если же нужно, чтобы выдавало ошибку, поставить во вторм правиле N>1 1

Ряд Фибоначчи

Решение