IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Поиск контуров. Язык Prolog, Нужна небольшая помощь
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 80
Пол: Мужской

Репутация: -  0  +


Задача: Определение независимых контуров в заданом графе для заданого остова.

В принципе задачу с помощью рекурсии я решить могу.
Проблема в том что не знаю как сделать, чтобы он выводил все контуры, а не ответ yes и первый попавшийся контур!

Domains
z=integer
Predicates
Rebro(Z,Z)
Kontur
Clauses
Rebro(1,2).
Rebro(2,3).
Rebro(2,4).
Rebro(2,5).
Rebro(3,4).
Rebro(3,5).
Rebro(3,6).
Rebro(5,6).
Rebro(6,2).
Rebro(5,1).
Kontur:-
Rebro(X,Y),
Rebro(Y,X),
C=X,
V=Y,
Write("Контур",C,V," "),
Write(V,C," "),
Read;

Rebro(X,Y),
Rebro(Y,D),
D1=D,
Rebro(D1,X),
C=X, B=Y, M=D,
Write("Контур",C,B," ", B,D," ",D,C," ").

Граф задан рёбрами... контур ищется по ним ...
Подскажите пожалуйста как сделать нормальный вывод контуров.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
В принципе задачу с помощью рекурсии я решить могу.

А где решение с помощью рекурсии?
И еще давай-ка с заданием поконкретнее.
Что значит "Определение независимых контуров в заданом графе для заданого остова."
Контур это путь насколько я помню.
Что в задаче требуется?

Есть разные способы решения задач, выводить какой-то ответ тоже можно по разному.
На обратном ходе рекурсии, с помощью FAIL и отсечения или предиката findall и далее вывод списка на экран (стандартная задача, разобранная во всех учебниках).


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 31.10.2020 16:10
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name