Задача По Prolog

Тема в разделе "Другие", создана пользователем Thrillseeker, 21 апр 2013.

  1. Thrillseeker

    Thrillseeker New Member

    Регистрация:
    21 апр 2013
    Сообщения:
    4
    Симпатии:
    0
    Буду признателен любой помощи в решении данного задания.

    Ответьте на вопрос “Что ест моя кошка?“, если: Птицам нравятся червяки. Кошкам нравятся рыбы. Друзья
    нравятся друг другу. Моя кошка мой друг. Моя кошка ест все, что ей нравится.

    likes(symbol,symbol)
    Clauses
    likes(bird,worm).
    likes(cat,fish).
    likes(friend1,friend2).
    likes(cat,friend).

    Этот вариант работает, но преподавателя, увы, не устраивает.

    Он написал примерно следующее:
    domains
    s=symbol
    predicates
    bird(s)
    worm(s)
    cat(s)
    friend(s,s)
    fish(s)
    eat(s,s)
    like(s,s)
    prinad(s,s)
    clauses
    bird(x). worm(y):-like(x,y).
    cat(x). fish(y):-like(x,y).
    friend(x,y):-like(x,y),like(y,x).
     
  2. rrrFer

    rrrFer Well-Known Member
    Команда форума C\C++ Team

    Регистрация:
    6 сен 2011
    Сообщения:
    1.324
    Симпатии:
    36
    Код (Text):
    про друзей неправильно.

    friend (i, cat). % это просто факт, что мы с кошкой друзья

    like(cat, meat).
    like(fish, fruit). % это тоже просто факты

    like(A, B):- friend(A, B); friend(B, A). % правило, друзья нравятся друг другу

    eat(cat, X):- like(cat, X). % правило, кошка ест все что ей нравица

    остается тока запрос написать eat(cat, X). и получить X = meat, X = i
     
  3. Thrillseeker

    Thrillseeker New Member

    Регистрация:
    21 апр 2013
    Сообщения:
    4
    Симпатии:
    0
    Большое Вам спасибо, всё работает!
     
  4. rrrFer

    rrrFer Well-Known Member
    Команда форума C\C++ Team

    Регистрация:
    6 сен 2011
    Сообщения:
    1.324
    Симпатии:
    36
    да пжалсто, пишите еще )
     
  5. samuelson

    samuelson New Member

    Регистрация:
    23 май 2013
    Сообщения:
    1
    Симпатии:
    0
    Решить срочно 4 задачи на пролог, по цене договоримся, подробности: aleksandr.vozhakov@mail.ru
     
  6. rrrFer

    rrrFer Well-Known Member
    Команда форума C\C++ Team

    Регистрация:
    6 сен 2011
    Сообщения:
    1.324
    Симпатии:
    36
    написал на почту
     
  7. Тань

    Тань New Member

    Регистрация:
    29 май 2013
    Сообщения:
    1
    Симпатии:
    0
    Помогите! Задание:
    Написать программу подсчёта суммы 8-битных знаковых чисел, расположенных в ячейках $8200 ... $82ff
     
  8. rrrFer

    rrrFer Well-Known Member
    Команда форума C\C++ Team

    Регистрация:
    6 сен 2011
    Сообщения:
    1.324
    Симпатии:
    36
    на прологе ?
     
  9. developermen

    developermen New Member

    Регистрация:
    29 май 2013
    Сообщения:
    3
    Симпатии:
    0
    Видать что да !!! :eek:
     
Загрузка...

Поделиться этой страницей