Prolog есть шарящие?

Печать / RSS-лента
0
1. Михаил (08.01.16 / 17:03)
Пацак
Нужно задачку по прологу решить. Есть кто с ним сталкивался? За вознагрождение.
0
2. Dmitry Kokorin (08.01.16 / 18:57)
Оранжевые штаны
1. DeLUXXMAO, ты бы описал, мб и нашелся кто...
0
3. Михаил (08.01.16 / 20:12)
Пацак
> Построить базу данных:
> В таблице даны некоторые характеристики движения планет Солнечной системы (числовые величины округлены):
> Планета Расстояние до Солнца
> (условных единиц) Период обращения Средние солнечные сутки
> Меркурий 39 88 суток 176 суток
> Венера 72 225 суток 117 суток
> Земля 100 365 суток 24 часа
> Марс 152 687 суток 25 часов
> Юпитер 520 12 лет 10 часов
> Сатурн 954 29 лет 10 часов
> Уран 1920 84 года 24 часа
> Нептун 3010 165 лет 22 часа
> Плутон 3950 247 лет 6 суток
> Составить базу данных, учитывая измерение по некоторым параметрам в разных единицах.
> Ответить на вопросы:
> 1) Какие планеты ближе к Солнцу, чем Земля?
> 2) Какие планеты дальше от Солнца, чем Земля?
> 3) На каких планетах солнечные сутки меньше, чем земные?
> 4) На каких планетах период обращения измеряется в годах?
> 5) На каких планетах солнечные сутки измеряются в часах?
> 6) На каких планетах солнечные сутки измеряются в сутках?
> Замечание. В запросах можно использовать сравнения между числовыми константами.
0
4. Tegos (08.01.16 / 21:33)
Пацак
Нужно в visual prolog или можно turbo prolog?
0
5. Михаил (08.01.16 / 22:45)
Пацак
4. Tegos, Visual Prolog 5.2

Добавлено через 00:53 сек.
Примерную хрень мне старики универа скинули можно на базе сорцов но это черновики
0
6. Михаил (08.01.16 / 23:18)
Пацак
domains
vremya = час(integer); день(integer); год(integer)

predicates
nondeterm информация_планета(symbol, integer, vremya, vremya)
конверт_в_час(vremya, integer)

clauses



%информация_планета(название,расстояние до солнца,период обращения , средние солнечные сутки)
информация_планета(меркурий,39,день(88),день(176)).
информация_планета(венера,72,день(225),день(117)).
информация_планета(земля,100,день(365),час(24)).
информация_планета(марс,152,день(687),час(25)).
информация_планета(юпитер,520,год(12),час(10)).
информация_планета(сатурн,954,год(29),час(10)).
информация_планета(уран,1920,год(84),час(24)).
информация_планета(нептун,3010,год(165),час(22)).
информация_планета(венера,3950,год(247),день(6)).

%конверт_в_час(промежуток_времени,в_часах).
конверт_в_час(час(X),X).
конверт_в_час(день(X),Y):-Y is X*24.
конверт_в_час(год(X),Y):-Y is X*24*365.


% 1. Какие планеты ближе к Солнцу, чем Земля?
% ?- информация_планета(Название,Length,_,_),информация_планета(земля,X,_,_),Length<X.
% 2.Какие планеты дальше от Солнца, чем Земля?
%?- информация_планета(Название,Length,_,_),информация_планета(земля,X,_,_),Length>X.
%3.На каких планетах солнечные сутки меньше, чем земные?
% ?-информация_планета(Название,_,_,X),информация_планета(земля,_,_,Земные_сутки),конверт_в_час(X,X1),конверт_в_час(Земные_сутки,Земные_сутки1),X1<Земные_сутки1.
% 4.На каких планетах период обращения измеряется в годах? ?-
% информация_планета(Название,_,год(_),_).
Для добавления сообщения необходимо авторизоваться
Стикеры / Теги / Правила / Топ тем / Топ постов / Поиск