Рекурсия: вычисление sin(x)+sin(sin(x))+ ... + sin(sin(sin(...(sin(x))) - Prolog
Формулировка задачи:
Здравствуйте, помогите пожалуйста реализовать на прологе.
Заранее спасибо.
y=sin(x)+sin(sin(x))+ .... + sin(sin(sin(...(sin(x)))
Решение задачи: «Рекурсия: вычисление sin(x)+sin(sin(x))+ ... + sin(sin(sin(...(sin(x)))»
textual
Листинг программы
predicates task(integer,real,real) clauses task(0,_,0) :- !. task(N,X,S) :- XX=sin(X),N1=N-1,task(N1,XX,SS),S=SS+XX.