Prolog Задачка на нахождение максимального числа
Здравствуйте, господа.
Имеется задачка:
Иван имеет 10000 руб.
Иван имеет телевизор.
Иван имеет машину-вишневую "Волгу".
Иван имеет магнитофон.
Петр имеет 5000 руб.
Петр имеет телевизор.
Петр имеет холодильник.
Коля имеет 20000 руб.
Коля имеет телевизор.
Задать вопрос: У кого больше всего денег?
Я написала:
А вот как написать, чтобы найти самого богатого?
Имеется задачка:
Иван имеет 10000 руб.
Иван имеет телевизор.
Иван имеет машину-вишневую "Волгу".
Иван имеет магнитофон.
Петр имеет 5000 руб.
Петр имеет телевизор.
Петр имеет холодильник.
Коля имеет 20000 руб.
Коля имеет телевизор.
Задать вопрос: У кого больше всего денег?
Я написала:
Код:
have('Ivan',rub(10000)).
have('Ivan','TVset').
have('Ivan',avto('Volga','Cherry')).
have('Ivan',magnitophone).
have('Piter',rub(5000)).
have('Piter','TVset').
have('Piter',fridge).
have('Kolya',rub(20000)).
have('Kolya','TVset').
bolshe(X,T):-have(X,rub(Y)),have(T,rub(P)),Y>P.
menshe(X,T):-have(X,rub(Y)),have(T,rub(P)),Y<P.
have('Ivan','TVset').
have('Ivan',avto('Volga','Cherry')).
have('Ivan',magnitophone).
have('Piter',rub(5000)).
have('Piter','TVset').
have('Piter',fridge).
have('Kolya',rub(20000)).
have('Kolya','TVset').
bolshe(X,T):-have(X,rub(Y)),have(T,rub(P)),Y>P.
menshe(X,T):-have(X,rub(Y)),have(T,rub(P)),Y<P.
Если машина телевизор и магнитофон не имеют интового значения, то только по деньгам =)
