domains
i=integer
predicates
poezd(i,i,string,string,real)
nomerapoezdov
yspet(symbol,real)
clauses
poezd(121,3,"KIEV","KREMENCHUG",4:40).
poezd(123,1,"KHARKOV","KREMENCHUG",4:10).
poezd(245,2,"KHARKOV","KIEV",3:30).
nomerapoezdov:-write("/nNomera poezdov:"),
readln(X),poezd(A,B,X,C,D),
write("/nSpisok poezdov:
poezd(A,_,X,_,_)
Простая лаба [Prolog]
Задать факты электропоезд (номер, ниаменование линии, начальная станция, конечная станция, средний интервал прохождения между станциями). Найти правило успею_доехать, если средний интервал прохождения между станциями не превышает заданного времени,а также вывести на экран все номера поездов с заданной начальной станцией.
Я вот тут написала чать, а дальге не могу, одно условие выполнила, а другое ну никак!
:(:(:(
Я вот тут написала чать, а дальге не могу, одно условие выполнила, а другое ну никак!
Код: