Форум программистов, компьютерный форум, киберфорум
Наши страницы
Prolog
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
Работнег
0 / 0 / 0
Регистрация: 30.03.2012
Сообщений: 2
1

Хвостовая рекурсия в Prolog

03.04.2012, 11:09. Просмотров 2402. Ответов 1
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста с хвостовой рекурсией. Никак не могу найти ошибку.
Задание: "Вычислить сумму ряда целых нечетных чисел от 1 до n". Предположим что n всегда нечетное.

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
PREDICATES
summ(integer,integer)
summ_aux(integer,integer,integer,integer)
 
CLAUSES
summ(N,Summ_N):-summ_aux(N,Summ_N,1,1).
summ_aux(N,Summ_N,Count,Product):-
    Count<=N-2,!,New_Count=Count+2,
    New_Product=Product+New_Count,
    summ_aux(N,Summa_N,New_Count,New_Product).
    summ_aux(_,Summ_N,_,Summ_N).
 
 
GOAL
write("Введите нечетное число"),readint(N),
summ(N,Result),write("Результат расчета:",Result).
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2012, 11:09
Ответы с готовыми решениями:

Хвостовая и не хвостовая рекурсия
Не хвостовая рекурсия predicates summa(integer, integer) clauses ...

Хвостовая рекурсия
Помогите с лабой. В Прологе не шарю, а сделать задание нужно. Напишите...

Хвостовая рекурсия
Уже несколько дней пытаюсь довести до ума вот эту задачку в Visual Prolog...

Хвостовая рекурсия
Напишите программу с хвостовой рекурсией, которая будет вычислять факториал без...

Хвостовая и нехвостовая рекурсия
написал программу с рекурсией, вопрос такой, сейчас здесь нехвостовая рекурсия,...

1
Грымзик
2481 / 1457 / 35
Регистрация: 14.09.2009
Сообщений: 2,742
03.04.2012, 19:47 2
Но ведь пишется в чем именно ошибка - замените Summa_N на Summ_N.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.04.2012, 19:47

Хвостовая рекурсия: вычислить значение 2^n
Здравствуйте, помогите решить задачу на Прологе. Заранее благодарю за помощь....

Хвостовая рекурсия: возведение в степень
Эндрю: PREDICATES stepen(real, real, real) CLAUSES stepen(_, 0, 1):-...

Изменить программу. Хвостовая рекурсия. Поиск с возвратом.
Помогите написать программу с хвостовой рекурсией, которая будет работать как...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru