![]() |
Модераторы: Poseidon |
![]() ![]() ![]() |
|
natasha92 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 12 Регистрация: 14.9.2009 Репутация: -1 Всего: -1 |
Создайте предикат, вычисляющий по натуральному числу N сумму нечетных чисел, не превосходящих N.
ПОМОГИТЕ ПЛИЗ)))))))Я плохо знаю пролог!!!!ПОМОГИТЕ)))))))))) |
|||
|
||||
Грымзик |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 50 Регистрация: 7.10.2009 Репутация: нет Всего: 6 |
?- count(4,S), write(S).
nechetn(X):- Y is X//2, Z is Y*2+1, Z==X. count(N, S):- (nechetn(N), sum(N,S)) ; (not(nechetn(N)), N1 is N-1, sum(N1,S)). sum(1,1):- !. sum(N,S):- N1 is N-2,sum(N1,S1), S is S1+N. |
|||
|
||||
natasha92 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 12 Регистрация: 14.9.2009 Репутация: -1 Всего: -1 |
Ты не можешь рассказать куда это вставлять(predicates,clauses).Я совсем не знаю пролог.
|
|||
|
||||
Void |
|
|||
![]() λcat.lolcat ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 2206 Регистрация: 16.11.2004 Где: Zürich Репутация: 6 Всего: 173 |
В мусорку!
В ЦП! Это сообщение отредактировал(а) Void - 12.10.2009, 14:22 -------------------- “Coming back to where you started is not the same as never leaving.” — Terry Pratchett |
|||
|
||||
mr.Anderson |
|
|||
![]() iOS Lead Developer ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 3374 Регистрация: 20.12.2004 Где: далеко Репутация: 16 Всего: 128 |
|
|||
|
||||
![]() ![]() ![]() |
Правила форума "Центр помощи" | |
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Центр помощи | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |