Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.08.2015, 19:42   #1
Екатерина 123
Пользователь
 
Регистрация: 15.05.2013
Сообщений: 33
Восклицание SWI prolog и Visual prolog поиск маршрута

Есть код на SWI prolog, объясните как его переделать для Visual prolog и подскажите где его можно скачать чтоб не требовал ключ, пожалуйста, очень нужно, если не трудно, то объясните, принципиальные отличия этих 2 языков программирования, заранее благодарю.
Задача, поиск маршрута.
Код привожу ниже:
Код:
m(a,b).
m(b,c).
m(a,d).
m(b,d).
m(c,d).
m(c,e).
m(d,e).
move(A,B):-m(A,B);m(B,A). %поскольку граф неориентированный

prolong([Temp|Tail],[New,Temp|Tail]):-move(Temp,New),not(member(New,[Temp|Tail])).

dpth([Finish|Tail],Finish,[Finish|Tail]). %если текущая вершина
%совпадает с конечной, то путь найден
dpth(TempWay,Finish,Way):-
    prolong(TempWay,NewWay), %пробуем сделать шаг 
    dpth(NewWay,Finish,Way).%продолжаем поиск уже 
    %с учетом сделанного шага

search_dpth(Start,Finish):-
    dpth([Start],Finish,Way),%вызываем поиск в глубину,
    %считая, что пока путь состоит только из начальной вершины
    show_answer(Way).%выводим путь на экран в наглядном виде

show_answer([_]):-!.
show_answer([A,B|Tail]):-
    show_answer([B|Tail]),nl,write(B),write(' -> '),write(A).

Последний раз редактировалось Вадим Мошев; 29.08.2015 в 13:46.
Екатерина 123 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Расписание поездов на SWI Prolog(e) GetBit Помощь студентам 6 26.03.2018 00:34
[SWI-Prolog] Создание списков Harbinger Помощь студентам 1 13.04.2015 14:20
swi prolog помогите 2 задачки OrdeR Помощь студентам 1 29.10.2013 06:03
Програмирование в SWI-Prolog Лина_Чер Помощь студентам 0 28.01.2013 20:18
swi prolog. поиск пути в лабиринте. tatysya Помощь студентам 1 15.05.2011 18:36