Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Visual Prolog] Помогите написать программку

Автор: Erick 15.6.2005, 19:08

Вот программка которая находит маршрут:

Цитата

line("dom", "ostanovka_33","peshkom",5).
line("ostanovka_33", "metro_vostok","bus_33",5).
line("metro_vostok", "metro_pobedi","metro",10).
line("metro_pobedi", "ostanovka_bsuir", "train",10).
line("ostanovka_bsuir", "bsuir","peshkom",5).

path(A,B,S,[ln(A,B,T)|S]):- line(A,B,T,_),!.
path(A,B,S,P):- line(C,B,T,_),path(A,C,[ln(C,B,T)|S],P).

Надо посчитать общее время затраченное на дорогу. Как это сделать?
Последний пораметр предиката line - время.

Автор: TTTRH 10.7.2005, 21:49

Код


path(A,B,S,[ln(A,B,T)|S],Q):- line(A,B,T,Q),!.
path(A,B,S,P,Q):- line(C,B,T,Q1),path(A,C,[ln(C,B,T)|S],P,Q2),Q=Q1+Q2.