Как через рекурсию вычислить сумму ряда?

@Igor_Web · Регистрация: 22.12.2016

Author24 — интернет-сервис помощи студентам

Ряд задан формулой k-го члена: a_k=(2–а²_k-1)/2, известно, что a⁰=1
Как через рекурсию на языке Turbo Prolog 2.0 вычислить сумму ряда?
k-й член задается в самом начале выполнения программы.

Prolog

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).

@fishpaste · 22.11.2017, 20:12

Prolog

domains
        int=integer
        r=real
predicates
        sum(int,r)
goal
        readint(K),
        sum(K,S),
        write("Sum = ",S).
clauses
        sum(0,1):-!.
        sum(K,S):-K-1=K1,
                sum(K1,S1),
                S1+(2-K1*K1)/2=S.

	22.11.2017, 20:12