Определить номер элемента списка, значение которого равно сумме первого и последнего элементов

@alinka7701 · Регистрация: 12.11.2015

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

Как реализовать данную задачу на Prolog? Определять номер элемента списка из целых чисел, значение которого равно сумме первого и последнего элементов.Буду очень благодарна за помощь!

@Black Fregat · 28.11.2015, 20:19

1) Найти первый элемент списка
2) Найти последний элемент списка
3) Сложить их
4) Определить номер полученного элемента

Каждая задача по отдельности не раз встречалась на форуме

@alinka7701 · 29.11.2015, 10:30 **[ТС]**

спасибо!

@Catstail · 29.11.2015, 11:29

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
domains
int=integer
intl=int*
 
predicates
last_el(intl,int)
pos_el(intl,int,int)
task(intl,int)
 
clauses
last_el([X],X).
last_el([_|H],X) :- last_el(H,X).
 
pos_el([],_,_) :- fail.
pos_el([H|_],H,1).
pos_el([V|T],H,Z) :- V<>H, pos_el(T,H,Z1), Z=Z1+1.
 
task([H|T],R) :- last_el(T,L), U=H+L, pos_el([H|T],U,R).

@alinka7701 · 29.11.2015, 16:21 **[ТС]**

А возможно реализовать данную задачу рекурсивно?

@Black Fregat · 29.11.2015, 16:45

Сообщение от alinka7701

рекурсивно

Так две подзадачи: поиск номера элемента и взятие последнего - и так реализованы рекурсивно.
А всю задачу - зачем?

@alinka7701 · 29.11.2015, 19:30 **[ТС]**

А на какой версии пролога это написано? У меня почему-то не запускается...

@Black Fregat · 30.11.2015, 00:09

Это Turbo Prolog или Visual Prolog 5

@alinka7701 · 30.11.2015, 17:16 **[ТС]**

спасибо!
Еще вопрос: можно ли реализовать на такой версии Amzi!(R) Logic Explorer(TM) ?

@Black Fregat · 30.11.2015, 17:37

Попробуйте взять начиная с 11 строки (после слова clauses) и напишите, какие будут ошибки

@alinka7701 · 30.11.2015, 17:43 **[ТС]**

Amzi! Prolog Listener
Version: 3.3 Mar96+ 16-bit 286 Protected Mode Windows
May 12 1996 18:46:51

Consulting ENV.PRO

yes
?- consult('C:\\USERS\\_CA05~1\\DESKTOP\\05 00~1\\219833~1\\(EB42~1.)\\PROLOG\\AMZIE XPL\\NEW.PRO')
Error #221: Unexpected operator

Error #300: Attempt to read invalid Prolog term
read_ / 2
Arg (1) --> L30
Arg (2) --> 4
pos_el([V|T],H,Z):-V<> <-NEAR HERE-> H, pos_el(T,H,Z1), Z=Z1+1
Action (? for help):

@Catstail · 30.11.2015, 17:57

Сообщение от alinka7701

Version: 3.3 Mar96+ 16-bit 286 Protected Mode Windows

- уж тогда лучше без затей Турбо Пролог...

@alinka7701 · 30.11.2015, 18:02 **[ТС]**

так в чем у меня проблема здесь ? почему не работает ?

@Black Fregat · 30.11.2015, 19:12

Попробуйте так:

Prolog
1
2
3
4
5
6
7
last_el([X], X).
last_el([_|H], X) :- last_el(H, X).
 
pos_el([H|_], H, 1).
pos_el([V|T], H, Z) :- V=\=H, pos_el(T, H, Z1), Z is Z1+1.
 
task([H|T], R) :- last_el(T, L), U is H+L, pos_el([H|T], U, R).

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

Сообщение от alinka7701

почему не работает ?

Синтаксис разный у разных версий Пролога

@alinka7701 · 01.12.2015, 13:47 **[ТС]**

Спасибо Вам большое! Вы мне очень-очень помогли! Всё работает!

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@alinka7701 -2 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 60

	Определить номер элемента списка, значение которого равно сумме первого и последнего элементов 28.11.2015, 13:46. Показов 1609. Ответов 14 Метки нет (Все метки) Как реализовать данную задачу на Prolog? Определять номер элемента списка из целых чисел, значение которого равно сумме первого и последнего элементов.Буду очень благодарна за помощь! 0

@Black Fregat Фрилансер 3709 / 2082 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	28.11.2015, 20:19
	1) Найти первый элемент списка 2) Найти последний элемент списка 3) Сложить их 4) Определить номер полученного элемента Каждая задача по отдельности не раз встречалась на форуме 0

@alinka7701 -2 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 60
	29.11.2015, 10:30 [ТС]
	спасибо! 0

@alinka7701 -2 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 60
	29.11.2015, 16:21 [ТС]
	А возможно реализовать данную задачу рекурсивно? 0

@alinka7701 -2 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 60
	29.11.2015, 19:30 [ТС]
	А на какой версии пролога это написано? У меня почему-то не запускается... 0

@Black Fregat Фрилансер 3709 / 2082 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	30.11.2015, 00:09
	Это Turbo Prolog или Visual Prolog 5 1

@alinka7701 -2 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 60
	30.11.2015, 17:16 [ТС]
	спасибо! Еще вопрос: можно ли реализовать на такой версии Amzi!(R) Logic Explorer(TM) ? 0

@Black Fregat Фрилансер 3709 / 2082 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	30.11.2015, 17:37
	Попробуйте взять начиная с 11 строки (после слова clauses) и напишите, какие будут ошибки 0

@alinka7701 -2 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 60
	30.11.2015, 17:43 [ТС]
	Amzi! Prolog Listener Version: 3.3 Mar96+ 16-bit 286 Protected Mode Windows May 12 1996 18:46:51 Consulting ENV.PRO yes ?- consult('C:\\USERS\\_CA05~1\\DESKTOP\\05 00~1\\219833~1\\(EB42~1.)\\PROLOG\\AMZIE XPL\\NEW.PRO') Error #221: Unexpected operator Error #300: Attempt to read invalid Prolog term read_ / 2 Arg (1) --> L30 Arg (2) --> 4 pos_el([V\|T],H,Z):-V<> <-NEAR HERE-> H, pos_el(T,H,Z1), Z=Z1+1 Action (? for help): 0

@alinka7701 -2 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 60
	30.11.2015, 18:02 [ТС]
	так в чем у меня проблема здесь ? почему не работает ? 0

@alinka7701 -2 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 60
	01.12.2015, 13:47 [ТС]
	Спасибо Вам большое! Вы мне очень-очень помогли! Всё работает! 0