Ряд задан формулой 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).
k-1