0

Ряд задан формулой k-го члена: аk=(2–а2k-1)/2, a0=1

Как с помощью рекурсии на языке Turbo Prolog 2.0 вычислить сумму ряда?

k-й член задается в самом начале выполнения программы.

predicates
 sum(integer,real).
clauses
 sum(0,1):- !.
 sum(K,Sum):- NextK=K-1,
 sum(NextK,NextSum),
 Sum=(2-(NextK*NextK))/2 +NextSum.
goal 
 write("Vvedite K: "),readint(K),sum(K,Sum),write("Summa: ",Sum).
8
  • 1
    Что конкретно не получается?
    – Grundy
    5 ноя 2017 в 15:23
  • добавь свой код в вопрос. Отредактировать вопрос можно с помощью кнопки править под вопросом
    – Grundy
    5 ноя 2017 в 18:12
  • как минимум у тебя формула не правильная: в формуле в квадрат возводится k-1 элемент, а у тебя ты в квадрат возводишь просто k-1
    – Grundy
    5 ноя 2017 в 18:43
  • А как она должна выглядеть?
    – Igor
    13 ноя 2017 в 13:33
  • вместо NextK, в ней должно быть NextAk
    – Grundy
    13 ноя 2017 в 14:57

2 ответа 2

1

В коде в вопросе неверная формула. Вместо самих элементов последовательности в квадрат возводятся их индексы.

Для исправления нужно дополнительно вычислять сам элемент последовательности.

Например так:

sum(0,1,1):-!.
sum(K,Ak,Sum):-PrevK=K-1, /* получаем предыдущее значение K */
   sum(PrevK,PrevAk,PrevSum), /* получаем предыдущий элемент и предыдущую сумму */
   Ak=(2-(PrevAk*PrevAk))/2, /* получаем текущий элемент */
   Sum=PrevSum+Ak. /* добавляем его к сумме */
8
  • Ошибка 707 в PrevK=K-1
    – Igor
    15 ноя 2017 в 4:49
  • @Igor, а у меня работает. Ну и мой код в этой строке от твоего вообще не отличается
    – Grundy
    15 ноя 2017 в 6:41
  • У меня TurboProlog 2.0
    – Igor
    15 ноя 2017 в 9:41
  • @Igor, у меня тоже. Скорее всего ты забыл поменять код вокруг.
    – Grundy
    15 ноя 2017 в 10:04
  • Не забыл. Работает, но считает неправильно. Последняя версия моего кода работает, суммирует два предыдущих члена, а не все.
    – Igor
    16 ноя 2017 в 15:31
0
predicates
    sum(integer,real).
clauses
    sum(0,1.00):- !.
    sum(K,Sum):- K1=K-1,
    sum(K1,Sum1),
    Sum=(2-(Sum1*Sum1))/2.
goal
    write("Vvedite K: "),readint(K),sum(K,Sum),write("Summa: ",Sum).
2
  • формула все еще неверная
    – Grundy
    13 ноя 2017 в 18:29
  • Потому я и прошу помощи.
    – Igor
    14 ноя 2017 в 6:01

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.