Лабораторная работа №1. Общие сведения об языке логического программирования
Пример 1. Наша первая Пролог программа будет содержать информацию о военнослужащих некоторого воинского подразделения и их званиях: “Павлов генерал”, “Сабо полковник”, “Денисов капитан”, “Матвеев капитан”, “Кулёмин сержант”, “Николаев сержант”. Сформулировать на Прологе следующие вопросы: 1) Павлов генерал? 2) Кто является полковником? 3)Кем является Денисов? 4)В подразделение есть военный в звание сержанта? 5) В подразделение есть военный в звание подполковника? 6) Вывести военных, имеющих одинаковые звания.
В программе каждого военного мы представим предикатом military размерности 2, каждый компонент- атом, первый представляет фамилию, а второй – его звание.
Программа 3. База данных «Военная часть»
Domains
s=symbol
Predicates
military(s,s)
Clauses
military(pavlov, general).
military(sabo, polkovnik).
military(denisov, kapitan).
military(matveev, kapitan).
military(kulemin, serzhant).
military(nikolaev, serzhant).
Сформулируем запросы:
1) ? military(pavlov, general)
Ответ: yes
2) ? military(X, polkovnik)
Ответ: X= sabo
3) ? military(denisov, X)
Ответ: X= kapitan
4) ? military(_, serzhant)
Ответ: yes
5)? military(_, podpolkovnik)
Ответ: no
6) ? military(X,Y), military(Z, Y), X<>Z
Ответ: X= denisov Z= matveev Y= kapitan
X= kulemin Z= nikolaev Y= serzhant
Пример 2. Данные о крупных реках России сведены в таблицу:
Таблица 5.
Данные о крупных реках России
Название реки
Длина, км
Годовой сток, км3
Площадь бассейна, тыс. км2
Истоки
Куда впадает
Амур
Яблоневый хребет
Татарский пролив
Лена
Байкальский хребет
Море Лаптевых
Обь
Предгорья Алтая
Карское море
Иртыш
Китай
Обь
Енисей
Восточный Саян
Карское море
Волга
Валдайская возвышенность
Каспийское море
Колыма
Хребет Черского
Восточносибирское море
Урал
Южный Урал
Каспийское море
Дон
Среднерусская возвышенность
Азовское море
Кама
Верхне — Камская возвышенность
Волга
Печора
Северный Урал
Баренцево море
Ангара
Байкал
Енисей
Селенга
Монголия
Байкал
Кубань
Кавказ
Азовское море
Составить базу данных и ответить на следующие вопросы:
1) Определить реки, впадающие в Азовское море.
2) Определить реки, исток которых находится на Валдайской возвышенности?
3) Какие реки короче Камы?
4) Какие реки длиннее Иртыша?
5) Как задать вопрос, определяющий все данные о реке Кама?
Пример 3. Известно, что Лене нравится теннис, Денису нравится футбол, Борису – бейсбол, Эдику – плавание, Марку нравится теннис, а Фёдору то, что нравится Борису. Записать факты на Прологе и ответить на вопросы: 1)Кому нравится теннис? 2) Что нравится Федору? 3)Кто занимается одинаковыми видами спорта?
Программа 5. База знаний «Предпочтения»
Predicates
likes(symbol,symbol)
Clauses
likes(lenа, tennis).
likes(denis, football).
likes(boris, baseball).
likes(edic, swimming).
likes(mark, tennis).
likes(fedor, Activity):- likes(boris, Activity).
/* Activity играет роль переменной*/
Запросы
1) ? likes(X, tennis)
Ответ:
X= lenа
X= mark
2) ? likes(fedor, X)
Ответ:
X= baseball
3) ? likes(X, T), likes(Y, T)
Ответ:
X= lenа Y= mark T= tennis
X= mark Y= lenа T= tennis
X= boris Y= fedor T= baseball
X= fedor Y= boris T= baseball
Пример 4. Лена, Анна, Денис и Борис-люди, лада и нисан - автомобили, Лене нравится лада, Анне - пицца, Денису - футбол, а Борис - Мерседес, Ваське - рыбка. Пицца, лада, мерседес продаются. Человек может купить машину, если она продается, и она ему нравится. Сформулировать на прологе вопросы: 1)Какую машину может купить Лена? 2) Кто-нибудь может купить мерседес? 3) какие машины продаются, и ответить на них.
Программа 6. База знаний «Предпочтения и возможности»
Пример 6. Вывести в каждой строке сообщения: Леонард отец Катерины, Карл отец Джейсона, Карл отец Марины.
Программа 8. База знаний «Семья»
Domains
name = symbol
Predicates
father(name, name)
everybody
clauses
father(leonard, katherine).
father(carl, jason).
father(carl, marinа).
everybody :-
father(X, Y),
write(X, " is ", Y, "s father\n"),
fail.
В некоторых случаях может быть необходимым продолжение поиска дополнительных решений, для этого можно использовать встроенный предикат fail. Он не имеет аргументов, всегда считается ложным.
Проверьте работу программы с и без использования предиката fail.
Отрицание задается с помощью предиката not.
Пример 7. У нас есть информация о странах-партнерах Европы, имеющих общую границу. Предположим, нас интересуют какие страны-партнеры не имеют общей границы.