Форум программистов, компьютерный форум, киберфорум
Наши страницы
Prolog
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
_Loader_
6 / 6 / 1
Регистрация: 18.04.2012
Сообщений: 92
1

Логическая задача про месяца и солнечные дни.

21.10.2013, 23:14. Просмотров 667. Ответов 2
Метки нет (Все метки)

Всем привет! прошу помощи(

Вот задачка:
Метеорологи установили, что в апреле, июне и сентябре 1926 года было разное количество солнечных дней. В одном из месяцев было 12 солнечных дней, в другом — 10, еще в одном — 16. В каком месяце было 16 солнечных дней, если известно, что:
1) в сентябре было не 12 солнечных дней;
2) в июне таких дней было не 16;
3) 12 солнечных дней было не в июне?...

Вот что у меня получилось:

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
domains
    month = april; june; september.
    number = _10; _12; _16.
predicates
    nondeterm solar(month, number).
    nondeterm nonsolar (month, number).
clauses
    nonsolar (september, _12).
    nonsolar (june, _16).
    nonsolar (june, _12).
    
    
    solar (X,_16):-
goal
    solar (X,_16).
но ни как не получается составить условие(
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.10.2013, 23:14
Ответы с готовыми решениями:

Логическая задача про напитки.
В бутылке, стакане, кувшине и банке находятся молоко, лимонад, квас и вода....

Логическая задача про деревья
Здравствуйте, нужно написать программу: Возле почты растут 6 деревьев: сосна,...

Логическая задача про экскурсию
Здравствуйте. Обращаюсь к вам с просьбой помочь мне с одной не простой (на мой...

Логическая задача про архиологов
Добрый день. Нужна помощь с логической задачей. Три археолога нашли амфору и...

Логическая задача про преподавателей.
Помогите найти ошибку в коде, пожалуйста Задание: Три друга – Иван, Дмитрий...

2
Грымзик
2478 / 1454 / 35
Регистрация: 14.09.2009
Сообщений: 2,742
23.10.2013, 22:26 2
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
predicates
    nondeterm month(string).  
    nondeterm solve(string, string, string).
 
clauses
    month(X):- X="april"; X="june"; X="september".
   
    solve(Month10, Month12, Month16):-
        month(Month10), month(Month12), Month10<>Month12,
        Month12<>"september", Month12<>"june",
        month(Month16), Month10<>Month16, Month12<>Month16,
        Month16<>"june".
        
goal
    solve(A, B, C).
1
_Loader_
6 / 6 / 1
Регистрация: 18.04.2012
Сообщений: 92
04.11.2013, 22:18  [ТС] 3
Грымзик, решил по другому не много, выложу что получилось позже)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.11.2013, 22:18

Логическая задача про офицеров
вообще ворос пока про одну строчку, но боюсь, что возникнут еще воросы, по...

Логическая задача про девочек в библиотеке.
Здравствуйте. Помогите пожалуйста с задачей: Меня хватило только на домены...

Логическая задача про разбитое окно.
Один из тpьox братьев разбил окно. Витя НЕ разбивал окна, - сказал...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru