Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Prolog] Помогите с задачей Пожалуйста!!!


Автор: Дашулька 17.5.2008, 18:41
Ребята помогите пожалуйста, возникла проблема в лабараторной про прологу, это последняя лаба а я её не могу сдать , на носу не допуск сессии ( вот моя задача: 
Задано отношение «связаны_дорогой(город, город)». Определить отношение «маршрут(город, город)». Написать программу, выводящую все промежуточные пункты маршрута из одного города в другой. Улучшить программу таким образом, чтобы названия конечных пунктов запрашивались программой; в случае отсутствия маршрута в БД выводилось соответствующее сообщение. ..... К сожалению я в прологе не сильна... ((
А вот на этом я остановилась:
domains
put = p(gorod1, gorod2)
gorod1, gorod2 = string
predicates
readput(put)
run
goal
run.
clauses
readput(p(Gorod1,Gorod2)):-
write("Gorod1:"), readln(Gorod1),
write("Gorod2:"), readln(Gorod2).

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)