Программа «Дети» - демонстрация метода предиката cut (!) и метода отката и отсечения. Программа выводит список детей, до определённого имени ребёнка включительно.

domains
 
 person = symbol
 
predicates
/* База данных имен детей */
 child(person)
 /* Вывод имен детей из БД */
 show_some_of_them
/* Правило вывода имен - до имени Диана */
 make_cut(person)
 
clauses
 
/* База данных имен детей */
 child("Tom").
 child("Beth").
 child("Jeff").
 child("Sarah").
 child("Larry").
 child("Peter").
 child("Diana").
 child("Judy").
 child("Sandy").
 
 /* Вывод имен детей из БД */
show_some_of_them :- child(Name), write("Имя: ", Name), nl, make_cut(Name),!.
 
/* Правило вывода имен - до имени Диана */
make_cut(Name) :- Name="Diana".
 
goal
 
write("Мальчики и девочки"),  nl, nl,  show_some_of_them.

Результат выполнения:

Мальчики и девочки

Имя: Tom
Имя: Beth
Имя: Jeff
Имя: Sarah
Имя: Larry
Имя: Peter
Имя: Diana

!!Рекомендуем: Семейная Энциклопедия Здоровья ⇒ Что должен знать современный человек? ⇒ Самоанализ. Работа над собой ⇒ Оглавление ⇒ Главная сайта