БД о животных

@kaztennis · Регистрация: 28.09.2013

Author24 — интернет-сервис помощи студентам

Всем привет! не могу решить задачи на турбо прологе
1. Известно, что: Элен любит мороженое; Джон любит читать книги; Том - играть в теннис и футбол; Эрик - смотреть телевизор; Марк любит то же, что Элен и Джон; Боб любит читать книги. Составьте Пролог программу, содержащую эту информацию, в которой должна присутствовать аксиома:” Билл любит то же, что и Том Н~ Программа должна позволять составлять группы ребят по интересам (используйте предикат Hndall (X,Y,Z.)).

2. Имеются животные: известны названия, цвет. вес, размер(большое. маленькое). Напишите программу, содержащую данную информацию и позволяющую найти всех животных больших и светлого (или темного) цвета. животных с одинаковым весом. наименьшим весом, наибольшим весом. Составьте запросы. получит2 и зафиксируйте ответы на запросы.

Prolog

Domains
int=integer
str=string
list=int*
Predicates
stud(str,int)
print(int)
find_max(list,int)
find_min(list,int)
Clauses
stud("bear",98).
stud("wolf",25).
stud("fox",25).
stud("rabbit",15).
stud("tiger",100).
 
print(Y):-stud(X,Y),
          write(X," - ",Y),nl,
          fail.
 
  find_max([X],X).
  find_max([X,Y|T],Max):-X<Y,find_max([Y|T],Max).
  find_max([X,Y|T],Max):-X>Y,find_max([X|T],Max).
  find_min([X],X).
  find_min([X,Y|T],Min):-X>Y,find_min([Y|T],Min).
  find_min([X,Y|T],Min):-X<Y,find_min([X|T],Min).
 
Goal
findall(X,stud(_,X),F),
find_max(F,X),write("Макс вес -",X, " : "),nl,
find_min(F,Y),write("Мин вес -",Y, " : "),nl,
print(Y).

Как можно ее решить дальше? Она не выводит одновременно два значения, то есть названия животных с макс и мин весом. что можно здесь сделать? Заранее спасибо.

@Грымзик · 14.10.2013, 21:46

Зачем было сюда снова 1ю задачу выкладывать.

@Грымзик 2505 / 1480 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	14.10.2013, 21:46	2
	Зачем было сюда снова 1ю задачу выкладывать. 0