[Закрыть]
 
popoff.donetsk.ua
Пользуйтесь своим проницательным умом, чтобы придавать партнёру уверенность в себе, а не наоборот.
Начало | Новости | Статьи | Форум | Опросы | Карта сайта | Обо мне
popoff.donetsk.ua - Форум - Функциональное и логическое программирование - Помогите вставить коментарии до задачи (prolog)

Помогите вставить коментарии до задачи (prolog)

форумы popoff.donetsk.ua
Страницы: [1]
<< Новый  |  Старый >>  |  Ответ не возможен

Внимание! Этот топик устарел. Пожалуйста, создайте новый топик, чтобы задать интересующий Вас вопрос.

Автор Сообщение
Гость a dot n dot ja at mail dot ru url://forum.message:2684
Помогите вставить коментарии до задачи (prolog)
a dot n dot ja at mail dot ru

Стрелецкие соревнования
Трое друзей соревновались в стрельбе по мишени.
- Держу пари, - сказал первый перед началом соревнования, - что по меньшей мере один из вас двух не угодит в цель с первого раза.
- Держу пари, - ответил ему другой, - что если тебе удастся первый выстрел, то ты выигрываешь свое пари.
- А я, - молвил тогда третий, - я просто держу пари, что каждый из нас трех угодит в цель с первого раза.
Они выстрелили. Могло ли случится так, чтобы второй и третий стрелки одновременно выиграли или одновременно проиграли свое пари?



domains
i = integer
predicates
nondeterm pari1(i,i,i)
nondeterm pari2(i,i,i)
nondeterm pari3(i,i,i,i)

nondeterm shut(i)
nondeterm go

clauses
shut(0).
shut(1).

pari1(1, V2, V3) :- V = V2 + V3, V < 2, !.
pari1(0,_,_).

pari2(1,1,1):-!.
pari2(0,_,_).

pari3(1,1,1,1):-!.
pari3(0,_,_,_).

go() :- write(No).
go() :- shut(V1),shut(V2),shut(V3),
pari1(R1, V2, V3),
pari2(R2, R1, V1),
pari3(R3, V1, V2, V3),
R2=R3,
write(Yes).


goal
go.


очень нужно!!!!!!!!

Это сообщение было отредактировано popoff 27.02.09 19:32.
popoff
Yuri
Июл, 2004
Сообщений: 923
popoff url://forum.message:2736

Вы не задали вопрос...

________________________________
Если не будет деревьев — нам нечем будет дышать, если вода загрязнится — нам нечего будет пить.

Внимание! Этот топик устарел. Пожалуйста, создайте новый топик, чтобы задать интересующий Вас вопрос.

Страницы: [1]
<< Новый  |  Старый >>  |  Ответ не возможен
Вход
Поиск[?]:
Personal Photo.сайт:
www.denisey.com.ua