Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

 satellite(X,"Марс"),

 write(X," спутник Марса."),

 nl.

clauses

 star("Солнце").

 planet("Земля").

 planet("Марс").

 revolve("Земля","Солнце").

 revolve("Марс","Солнце").

 revolve("Луна","Земля").

 revolve("Фобос","Марс").

 revolve("Деймос","Марс").

 satellite(X,Y):-planet(Y),revolve(X,Y).

Результат: Фобос спутник Марса.

Написать и реализовать программу установления родственных связей: Василий имеет дочь Ольгу, у которой два сына Михаил и Максим. Использовать внешние и внутренние цели.

domains

              name=symbol

predicates

               men(name)

               mama(name)

               sons(name,name)

               doughter(name,name)

               deda(name,name)

               brother(name,name).

goal

Рекомендуем скачать другие рефераты по теме: курсовая работа по праву, сообщение об открытии.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата