6 / 6 / 1
Регистрация: 18.04.2012
Сообщений: 92
1

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

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

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

Вот задачка:
Метеорологи установили, что в апреле, июне и сентябре 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.10.2013, 23:14
Ответы с готовыми решениями:

Солнечные дни в месяце
помогите написать программу для вывода солнечных дней месяца плиз помогите

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

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

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

2
2505 / 1480 / 37
Регистрация: 14.09.2009
Сообщений: 2,740
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
6 / 6 / 1
Регистрация: 18.04.2012
Сообщений: 92
04.11.2013, 22:18  [ТС] 3
Грымзик, решил по другому не много, выложу что получилось позже)
0
04.11.2013, 22:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2013, 22:18
Помогаю со студенческими работами здесь

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

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

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

Логическая задача про дома
помогите пожалуйста решить задачу на лиспе: На одной улице стоят в ряд 4 дома, в которых живут 4...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru