[Закрыть]
 
popoff.donetsk.ua
Человек, который сознает происходящее, знает, что он чувствует, где находится и который сейчас час. Он знает, что после его смерти деревья будут расти, как и прежде, но он их уже не увидит; поэтому он хочет видеть их сейчас со всей остротой, на которую способен. /Эрик Берн/
Начало | Новости | Статьи | Форум | Опросы | Карта сайта | Обо мне
popoff.donetsk.ua - Форум - Функциональное и логическое программирование - Рекурсия \\ вывести числа от н до 1000 кратные 3

Рекурсия \\ вывести числа от н до 1000 кратные 3

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

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

Автор Сообщение
Гость Veronika url://forum.message:2492
Рекурсия \\ вывести числа от н до 1000 кратные 3
Veronika

Написать программу, печатающую числа, кратные трем, начиная с заданного n и до 1000.

Вот что уже смогла придумать, дальше не знаю... что делать, помогите....


predicates
nondeterm write_number(integer)

clauses
write_number(N) :-   N< 1000 ,
N mod 3 =0,
write(" ", N),    nl,  
write_number(N +1).

write_number(N) :-   N< 1000 ,
write_number(N+1).

goal
write("начало:"),
nl,nl,
readint(N),
write_number(N),
nl,nl,
write("конец").
Это сообщение было отредактировано гостем, оставившим это сообщение 18.05.08 12:25.
popoff
Yuri
Июл, 2004
Сообщений: 923
popoff url://forum.message:2493
predicates
  w(integer,integer)
clauses
  w(N,N):-N<1000,N mod 3=0.
  w(N,X):-N<1000,N1=N+1,w(N1,X).
________________________________
Если не будет деревьев — нам нечем будет дышать, если вода загрязнится — нам нечего будет пить.

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

Страницы: [1]
<< Новый  |  Старый >>  |  Ответ не возможен
Вход
Поиск[?]:
Программное обеспечение любой сложности
koins.com.ua