База данных "Солнечная система"

@Lastedl · Регистрация: 20.01.2013

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

Задание.

Составить базу данных, учитывая измерение по некоторым параметрам в разных единицах.
Ответить на вопросы: Какие планеты ближе к Солнцу, чем Земля? Какие планеты дальше от Солнца, чем Земля? На каких планетах солнечные сутки меньше, чем земные? На каких планетах период обращения измеряется в годах?
Вот что сделал

Prolog

pl(merkuriy,39,88,4224).
pl(venera,72,225,2808).
pl(zemlya,100,365,24).
pl(mars,152,687,25).
pl(jupiter,520,4380,10).
pl(saturn,954,10585,11).
pl(uran,1920,30660,24).
pl(neptun,3010,60225,22).
pl(pluton,3950,90155,144).

Там где период обращение годы перевел в сутки, а средние солнечные сутки в часы.
Составил следующие вопросы:

Prolog

Какие планеты ближе к Солнцу, чем Земля? 
pl(X,Y,_,_),pl(C,W,_,_), pl(zemlya,Z,_,_), Z>Y,W>Y.
Какие планеты дальше от Солнца, чем Земля?
pl(X,Y,_,_),pl(C,W,_,_),pl(D,Q,_,_),pl(E,R,_,_),pl(A,T,_,_),pl(B,U,_,_), pl(zemlya,Z,_,_),Z<Y,W>Y,Q>W,R>Q,T>R,U>T.
На каких планетах солнечные сутки меньше, чем земные?
pl(X,_,_,Y),pl(C,_,_,W),pl(D,_,_,E),pl(zemlya,_,_,Z), Z>Y,Y>W,W>E.
На каких планетах период обращения измеряется в годах?
pl(X,_,Y,_),pl(C,_,W,_),pl(D,_,Q,_),pl(E,_,R,_),pl(A,_,T,_), pl(mars,_,Z,_),Z<Y,W>Y,Q>W,R>Q,T>R.

Такой способ работает и выдает правильные ответы, но преподавателю не понравилось.
Посдкажите пожалуйста как ее можно сделать каким нибудь другим способом?

@Black Fregat · 22.10.2014, 13:47

Честно говоря, не понял, зачем нужна такая пропасть запросов к базе.
Или Вы пытаетесь уложить все возможные варианты ответов в один набор переменных?
Этого не нужно делать, список ответов будет выдан на откатах:

Prolog

?- pl(zemlya,Z,_,_), pl(X,Y,_,_), Z>Y.
Z = 100,
X = merkuriy,
Y = 39 ;
Z = 100,
X = venera,
Y = 72 ;
false.
 
?- pl(zemlya,Z,_,_), pl(X,Y,_,_), Z<Y.
Z = 100,
X = mars,
Y = 152 ;
Z = 100,
X = jupiter,
Y = 520 ;
Z = 100,
X = saturn,
Y = 954 ;
Z = 100,
X = uran,
Y = 1920 ;
Z = 100,
X = neptun,
Y = 3010 ;
Z = 100,
X = pluton,
Y = 3950.

Добавлено через 3 минуты

Сообщение от Lastedl

Там где период обращение годы перевел в сутки, а средние солнечные сутки в часы.

А вот это - спорное решение. Оно, конечно, правильное с точки зрения практического применения.
И оно облегчает ответы на большинство вопросов задания.
Но на последний вопрос Вы при этом корректно не ответите.

@Lastedl · 22.10.2014, 13:52 **[ТС]**

Сообщение от Black Fregat

Но на последний вопрос Вы при этом корректно не ответите.

А как лучше тогда переделать факты, чтобы пролог понимал, что 247 лет больше 365 суток?

@Black Fregat · 22.10.2014, 15:32

Я не могу дать абсолютно верный совет.

Не по теме:

Я не знаю, чего именно хочет преподаватель. У всех преподавателей вкусы разные, но почему-то каждый второй считает, что именно его вкус единственно правильный.

Но я бы сделал примерно так:
1) Добавил бы в базу единицы измерения

Prolog

1 2	pl(mars,152,687,d,25). pl(jupiter,520,12,y,10).

2) Написал отдельный предикат типа

Prolog

period_days(N, P):-
    pl(N, _, P, d, 10).
period_days(N, P):-
    pl(N, _, PP, y, 10),
    P is PP * 365.

3) Использовал его вместо прямых запросов к базе:

Prolog

1	period_days(zemlya,Z), period_days(X,Y), Z>Y.

@Lastedl · 22.10.2014, 23:56 **[ТС]**

Сообщение от Black Fregat

3) Использовал его вместо прямых запросов к базе:

Сделал как вы посоветовали, но пролог после этого запроса возвращает только false.
Что я сделал неправильно?

Prolog

pl(merkuriy,39,88,d,4224).
pl(venera,72,225,d,2808).
pl(zemlya,100,365,d,24).
pl(mars,152,687,d,25).
pl(jupiter,520,12,y,10).
pl(saturn,954,29,y,11).
pl(uran,1920,84,y,24).
pl(neptun,3010,165,y,22).
pl(pluton,3950,247,y,144).
period_days(N, P):-
    pl(N, _, P, d, 10).
period_days(N, P):-
    pl(N, _, PP, y, 10),
    P is PP * 365.

@Black Fregat · 23.10.2014, 07:45

Я, пока копировал, ошибся. Конечно же, вместо 10 нужно было поставить прочерк:

Prolog

period_days(N, P):-
    pl(N, _, P, d, _).
period_days(N, P):-
    pl(N, _, PP, y, _),
    P is PP * 365.

@nobs_rozhead · 20.11.2019, 01:42

Не понял, напишите пожалуйста код полностью

@Lastedl 0 / 0 / 0 Регистрация: 20.01.2013 Сообщений: 34
	22.10.2014, 13:52 [ТС]	3
	Сообщение от Black Fregat Но на последний вопрос Вы при этом корректно не ответите. А как лучше тогда переделать факты, чтобы пролог понимал, что 247 лет больше 365 суток? 0

@nobs_rozhead 0 / 0 / 0 Регистрация: 24.10.2017 Сообщений: 47
	20.11.2019, 01:42	7
	Не понял, напишите пожалуйста код полностью 0

База данных "Солнечная система"

Решение