Предыдущая страница реферата | 1  2  3  4  5  6



remember(X,Y,yes):-

asserta(xpositive(X,Y)).

remember(X,Y,no):-

asserta(xnegative(X,Y)),

fail.

clear_facts:-

retract(xpositive(_,_)),

fail.

clear_facts:-

retract(xnegative(_,_)),

fail.

tree_is("Дуб"):-

positive(tree,"Лиственная"),

positive(tree,"Твердая"),

positive(tree,"Серо_Коричневая"),

positive(tree,"Мелкая_текстура"),!.

tree_is("Бук"):-

positive(tree,"Лиственная"),

positive(tree,"Твердая"),

positive(tree,"Светло_Красная"),

positive(tree,"Крупная_текстура"),!.

tree_is("Осина"):-

positive(tree,"Лиственная"),

positive(tree,"Мягкая"),

positive(tree,"Светлая"),

positive(tree,"Мелкая_текстура"),!.

tree_is("Тис"):-

positive(tree,"Лиственная"),

positive(tree,"Очень_твердая"),

positive(tree,"Темная"),!.

tree_is("Ель"):-

positive(tree,"Хвойная"),

positive(tree,"Мягкая"),

positive(tree,"Светлая"),

positive(tree,"Смолистая"),!.

tree_is("Сосна"):-

positive(tree,"Хвойная"),

positive(tree,"Мягкая"),

positive(tree,"Светлая"),

positive(tree,"Очень_Смолистая"),!.

tree_is("Столб"):-

positive(tree,"Не_дерево"),

positive(tree,"Очень_Твердый"),!.
Скачали данный реферат: Невский, Нагиев, Shuvalov, Курпатов, Ferapont, Kupcov, Mavra.
Последние просмотренные рефераты на тему: рефераты, стратегия реферат, шпоры бесплатно, первый снег сочинение.

Предыдущая страница реферата | 1  2  3  4  5  6

Поделитесь этой записью или добавьте в закладки