Всем привет! Нужно написать программу на Prolog. Вот задача: Предметная область "Подписка на газеты и журналы в почтовом отделении". Отношения-факты: <издание>(<шифр>, <название>, <тип>,<цена 1 экз>,<число экз в год>). <подписчик>(<ФИО>, <профессия>, <возраст>, <адрес>). <подписался>(<шифр_издания>, <ФИО>, <дата_начала>, <длительность>, <стоимость>).
Добавьте свои факты для полноты базы. Отношения-правила: • кто на какое издание подписан, • стоимость издания, • что за издание - журнал или газета, Написать запросы, чтобы получить следующие отчеты: • получить список изданий для каждого подписчика, • подсчитать, на какую сумму подписчик подписался
Написать программу на Prolog
Реклама
Написать программу на Prolog
Всем привет! Нужно написать программу на Prolog.
Вот задача:
Предметная область "Подписка на газеты и журналы в почтовом отделении".
Отношения-факты:
<издание>(<шифр>, <название>, <тип>,<цена 1 экз>,<число экз в год>).
<подписчик>(<ФИО>, <профессия>, <возраст>, <адрес>).
<подписался>(<шифр_издания>, <ФИО>, <дата_начала>, <длительность>, <стоимость>).
Добавьте свои факты для полноты базы.
Отношения-правила:
• кто на какое издание подписан,
• стоимость издания,
• что за издание - журнал или газета,
Написать запросы, чтобы получить следующие отчеты:
• получить список изданий для каждого подписчика,
• подсчитать, на какую сумму подписчик подписался
Сделать в таком стиле:
product,sum = integer
PREDICATES
add_em_up(sum,sum,sum)
multiply_em(product,product,product)
CLAUSES
add_em_up(X,Y,Sum):-
Sum=X+Y.
multiply_em(X,Y,Product):-
Product=X*Y.
goal
%add_em_up(32, 54, Sum).
%multipl...