Не запускается пример программы с интуита на visual prologe 7.4
Формулировка задачи:
база вот
Вот ссылка на страницу откуда брал листинг программы -http://www.intuit.ru/studies/courses/12333/1180/lecture/19984?page=1 ,Компилятор ругается на самую первую строку open core, console, string, list конкретно на слово open ,можете помочь ,я только начал изучение этого языка,заранее благодарю!
так же не могу запустить и следующую программу с интуита про задачу энштейна ,ругается аналогично на open
Решение задачи: «Не запускается пример программы с интуита на visual prologe 7.4»
textual
Листинг программы
/*****************************************************************************
Copyright (c) 2015 My Company
******************************************************************************/
implement main
open core
class facts - relatives
parent: (string Родитель, string Ребенок).
spouse: (string Муж, string Жена).
male: (string).
female: (string).
class predicates
father: (string Отец, string Ребенок) nondeterm anyflow.
mother: (string Мать, string Ребенок) nondeterm (o,o).
clauses
father(X, Y):-
parent(X, Y),
male(X).
mother(X, Y):-
parent(X, Y),
female(X).
run():-
console::init(),
file::consult("base.txt", relatives),
father(X, Y),
console:: write("отец - ", X, ", ребенок - ", Y), console:: nl,
fail;
mother(X, Y),
console:: write("мать - ", X, ", ребенок - ", Y), console:: nl,
fail;
if father("Иван", "Петр") then
console:: write("\nИван является отцом Петра")
else
console:: write("\nИван не является отцом Петра")
end if,
% if father("Иван", Y) then
% console:: write("\n Иван является отцом" ,Y) , fail,console:: nl
% else
% console:: write("\nИван не является отцом",Y),fail,console:: nl
% end if,
male(X),
console:: write("Мужчина - ", X ), console:: nl,
fail;
female(X),
console:: write("Женщина - ", X ), console:: nl,
fail;
_ = console:: readLine().
end implement main
goal
mainExe::run(main::run).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д