Форум программистов, компьютерный форум, киберфорум
Наши страницы
Prolog
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Ulia1906
0 / 0 / 0
Регистрация: 18.04.2013
Сообщений: 6
1

Описать на Прологе-Д сказку.версия 3.00

10.05.2013, 12:26. Просмотров 849. Ответов 4
Метки нет (Все метки)

Пожалуйста помогите сделать задание на прологе-д версия учебная 3.00

Задание: 1.Описать на Прологе-Д сказку про попа, у которого была собака.
"У попа была собака,
Он ее любил,
Она съела кусок мяса,
Он ее убил
И на могиле написал...".

2. Описать на Прологе-Д сказку о репке.
Посадил дед репку. Выросла репка большая-пребольшая.
Пошел дед репку рвать: тянет-потянет, вытянуть не может!
Позвал дед бабку:
бабка за дедку,
дедка за репку -
тянут-потянут, вытянуть не могут!
Позвала бабка внучку:
внучка за бабку,
бабка за дедку,
дедка за репку -
тянут-потянут, вытянуть не могут!
Позвала внучка Жучку:
Жучка за внучку,
внучка за бабку,
бабка за дедку,
дедка за репку -
тянут-потянут, вытянуть не могут!
Позвала Жучка кошку:
кошка за Жучку,
Жучка за внучку,
внучка за бабку,
бабка за дедку,
дедка за репку -
тянут-потянут, вытянуть не могут!
Позвала кошка мышку:
мышка за кошку,
кошка за Жучку,
Жучка за внучку,
внучка за бабку,
бабка за дедку,
дедка за репку -
тянут-потянут, - вытянули репку!

Что не так: подскажите. что исправить и как правильно задать вопрос
Вот мой вариант:
Prolog
1
2
3
4
5
6
7
ход(состояни(у_попа), была,состояние(собака));
ход(состояние(он), любил, состояние(собака));
ход(состояние(собака), съела, состояние(кусок_мяса));
ход(состояние(он), убил, состояние(собака));
ход(состояние(он), закопал, состояние(яма));
ход(состояние(он), написал, состояние(надпись, что));
?ход(собака была у кого?);
Про репку:
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
ход(состояние(дед),посадил, состоятие(репку));
ход(состояние(репка),выросла,состояние(большая-пребольшая));
ход(состояние(дед),пошел рвать,сотояние(репку)); 
ход(состояние(дед),тянет-потянет, вытянуть не может, состояние(репку));
ход(состояние(дед), позвал, состояние(бабку));
ход(состояние(бабка за дедку,дедка за репку),тянут-потянут, вытянуть не могут!,состояние(репку));
ход(состояние(бабка),позвала, состояние(внучку));
ход(состояние(внучка за бабку, бабка за дедку,дедка за репку),тянут-потянут, вытянуть не могут!,состояние(репку));
ход(состояние(внучка),позвала, состояние(Жучку));
ход(состояние(Жучка за внучку, внучка за бабку, бабка за дедку,дедка за репку),тянут-потянут, вытянуть не могут!,состояние(репку));
ход(состояние(Жучка),позвала, состояние(кошку));
ход(состояние(кошка за Жучку, Жучка за внучку, внучка за бабку, бабка за дедку,дедка за репку),тянут-потянут, вытянуть не могут!,состояние(репку));
ход(состояние(кошка),позвала, состояние(мышку));
ход(состояние(мышка за кошку, кошка за Жучку, Жучка за внучку, внучка за бабку, бабка за дедку,дедка за репку),тянут-потянут, - вытянули репку!,состояние(репку));
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2013, 12:26
Ответы с готовыми решениями:

Давайте напишем сказку №3
Запрещены машины и механизмы, кроме известных в средневековье, включая позднее (вроде мельниц),...

Давайте напишем сказку!
Давайте напишем сказку! Каждый пишет по фразе и посмотрим что получится! Правила форума не...

Давайте напишем сказку #2
Ладно, начнём заново. В полночь вспенилась вода и на берег вышло чудище морское: три хвоста, крылья...

Двайте сочиним не правильную сказку
Жил-был рыцарь и отправился он на подвиги. А слышал он от коллег, что самый крутой подвиг – это...

Китайский JTAG RealView ULINK2 версия прошивки и версия Keil
Есть китайский клон 20-pin JTAG очень похожий на Keil-вый. Какую версию Keil с ним можно...

4
nullxdth
1848 / 814 / 64
Регистрация: 12.03.2013
Сообщений: 3,660
10.05.2013, 16:05 2
Клиника.
0
Ulia1906
0 / 0 / 0
Регистрация: 18.04.2013
Сообщений: 6
10.05.2013, 18:15  [ТС] 3
Цитата Сообщение от nullxdth Посмотреть сообщение
Клиника.
что вы этим имеете в виду???)))
не моя вина, что преподаватели такие задания дают
0
Narkolepsia
0 / 0 / 0
Регистрация: 12.06.2012
Сообщений: 11
20.05.2013, 02:54 4
Ulia1906, Вы решили задачу? У меня подобная. Может сможете посоветовать?
0
Ulia1906
0 / 0 / 0
Регистрация: 18.04.2013
Сообщений: 6
25.05.2013, 15:04  [ТС] 5
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
ход(состояние(дед),посадил, состоятие(репку));
ход(состояние(репка),выросла,состояние(большаяпребольшая));
ход(состояние(дед),пошел_рвать,состояние(репку)); 
ход(состояние(дед),тянет_потянет,вытянуть_не_может,состояние(репку));
ход(состояние(дед),позвал,состояние(бабку));
ход(состояние(бабка_за_дедку,дедка_за_репку),тянут_потянут_вытянуть_не_могут,состояние(репку));
ход(состояние(бабка),позвала,состояние(внучку));
ход(состояние(внучка_за_бабку,бабка_за_дедку,дедка_за_репку),тянут_потянут_вытянуть_не_могут,состояние(репку));
ход(состояние(внучка),позвала,состояние(Жучку));
ход(состояние(Жучка_за_внучку,внучка_за_бабку,бабка_за_дедку,дедка_за_репку),тянут_потянут_вытянуть_не_могут,состояние(репку));
ход(состояние(Жучка),позвала,состояние(кошку));
ход(состояние(кошка_за_Жучку,Жучка_за_внучку,внучка_за_бабку,бабка_за_дедку,дедка_за_репку),тянут_потянут_вытянуть_не_могут,состояние(репку));
ход(состояние(кошка),позвала,состояние(мышку));
ход(состояние(мышка_за_кошку,кошка_за_Жучку,Жучка_за_внучку,внучка_за_бабку,бабка_за_дедку,дедка_за_репку),тянут_потянут,вытянули_репку,состояние(репку));
 
?ход(состояние(дед),х, состоятие(репку));
?ход(состояние(x),посадил, состоятие(y));
?ход(состояние(x),y, состоятие(репку));
?ход(состояние(x),позвала, состояние(y));
?ход(состояние(х),позвала, состояние(мышку));
?ход(состояние(x),тянут_потянут,вытянуть_не_могут,состояние(репку));
?ход(состояние(Жучка_за_внучку,внучка_за_бабку,бабка_за_дедку,дедка_за_репку),x,состояние(репку));
 
?ход(состояние(мышка_за_кошку,кошка_за_Жучку,Жучка_за_внучку,внучка_за_бабку,бабка_за_дедку,дедка_за_репку),тянут_потянут,вытянули_репку,состояние(x));
?ход(состояние(дедка_за_репку),тянут_потянут_вытянуть_не_могут,состояние(репку));
?ход(состояние(x),y, состоятие(репку));
?ход(состояние(дед), x, состояние(y));
?ход(состояние(х),позвала,состояние(у));
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
ход(состояние(у_попа), была, состояние(собака));
ход(состояние(он), любил, состояние(собака));
ход(состояние(собака), съела, состояние(кусок_мяса));
ход(состояние(он), убил, состояние(собака));
ход(состояние(он), закопал, состояние(яма));
ход(состояние(он), написал, состояние(надпись_что));
 
?ход(состояние(х),была,состояние(у));
?ход(состояние(х),убил,состояние(у));
?ход(состояние(x), съела, состояние(y));
?ход(состояние(х),любил,состояние(у));
?ход(состояние(х),закопал,состояние(у));
?ход(состояние(х),написал,состояние(у));
?ход(состояние(он),х,состояние(у));
?ход(состояние(у_попа), х, состояние(собака));
?ход(состояние(х), у, состояние(собака));
0
25.05.2013, 15:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2013, 15:04

Какая версия версия GCC сейчас самая безглючная?
Собираю проект. Проект заведомо рабочий. а у меня, почему-то он не работает. На проверенной плате....

как просит биос леново ноутбук версия биоса 2-54 на офисал саите версия 2-53 что ето такое?
вопрос как просит биос леново ноутбук версия биоса 2-54 на офисал саите версия 2-53 сто ето такое?

Обычная версия страници VS Версия для печати
Итак. Есть Блог. И получается так, что 80% народу яндекс отпраляет на версии для печати. В чем...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru