[Закрыть]
 
popoff.donetsk.ua
Если дать ссылку на страничку с десятью примерами, то всегда найдутся люди, которые будут вести себя так, как будто этой ссылки не было и просить: «нет, ну ты приведи хотя бы один пример!»
Начало | Новости | Статьи | Форум | Опросы | Карта сайта | Обо мне
popoff.donetsk.ua - Форум - Функциональное и логическое программирование - Исправить задачку на Прологе

Исправить задачку на Прологе

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

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

Автор Сообщение
Vesnyshka
Светлана
Дек, 2009
Сообщений: 2
Vesnyshka url://forum.message:2992
Исправить задачку на Прологе

Здраствуйте!
Задание: Сумма ряда целых четных чисел от 0 до n.
Мне надо исправить на «Сумма ряда целых четных чисел от 2 до n.»

summ(0, 0).
summ(N, Sum) :-
     N1 is N - 2,
     summ(N1, Sum1),
     Sum is Sum1 + N.

popoff
Yuri
Июл, 2004
Сообщений: 929
popoff url://forum.message:2994

Vesnyshka,
Вы забыли сказать, в чём именно у Вас проблема.
Также, Вы помогли бы мне дать Вам исчерпывающий ответ, если бы сказали, что Вы хотите получить в качестве ответа.

________________________________
Если не будет деревьев — нам нечем будет дышать, если вода загрязнится — нам нечего будет пить.
Vesnyshka
Светлана
Дек, 2009
Сообщений: 2
Vesnyshka url://forum.message:2995

В качестве ответа мне надо «Подсчитать сумму ряда целых четных чисел от 2 до N».
Вот только то, что я смогла сделать

predicates
summ(integer,integer)
goal
summ(2,N), write(N).
clauses
summ(N,S):-S=(N+2)*(N-1) div 2.   («формула суммы арифметической прогрессии, в данном случае (N+2)*(N-1)/2»)

Не могли бы Вы помочь переделать или доделать, ибо завтра уже сдавать(

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

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