Здравствуйте. помогите пожалуйста перенести программу написанную в Prolog 2.3 в Prolog 7.0. (ввести нужно родителей и детей и узнать кто чей родитель при поиске) domains name=srting predicates родитель (name,name) clauses родитель("Иван", "Алексей"). родитель("Мария", "Анна"). родитель("Иван", "Анна") % goal родитель ("Иван", "Анна"). goal родитель(кто, "Анна") кто=Анна кто=Иван
Как-то так вроде... PHP: open consoledomainsname = srting.class factsродитель:(name,name).clausesродитель("Иван", "Алексей").родитель("Мария", "Анна").родитель("Иван", "Анна").run():-init(), родитель(Кто, "Иван"), write(Кто), _=readchar().
И с каким же фактом это сопоставится? По-моему, наоборот: PHP: родитель("Иван", Кто), Получим мать и отца - Алексея и Анну
Лера12345543, Visual Prolog что ли? Вот так попробуйте: PHP: implement main open core, consoleclass facts родитель:(string,string).clauses родитель("Иван", "Алексей"). родитель("Мария", "Анна"). родитель("Иван", "Анна").clauses run():-console::init(), родитель("Иван",Кто),write(Кто),nl,fail. run():-_=readChar().end implement maingoal mainExe::run(main::run).
Лера12345543, оказывается, я там один предикат удалил, который не надо было удалять Новый вариант: PHP: implement main open core, consoleconstants className = "main". classVersion = "".clauses classInfo(className, classVersion).class facts родитель:(string,string).clauses родитель("Иван", "Алексей"). родитель("Мария", "Анна"). родитель("Иван", "Анна").clauses run():-console::init(), родитель("Иван",Кто),write(Кто),nl,fail. run():-_=readChar().end implement maingoal mainExe::run(main::run).
Vlad648, Здравствуйте, Влад. Можете пожалуйста помочь с кодом и написать что за что отвечает. Буду вам очень благодарна.