Создайте предикат, вычисляющий функцию sin(x) с заданной точностью - Prolog
Формулировка задачи:
Создайте предикат, вычисляющий функцию sin(x) с заданной точностью
Решение задачи: «Создайте предикат, вычисляющий функцию sin(x) с заданной точностью»
textual
Листинг программы
domains
i=integer
r=real
predicates
s(r,r,r,i,r,r)
clauses
s(E,_,Z,_,R,R):-abs(Z)<E,!.
s(E,X,Z,N,R1,R):-Z1=-Z*X*X/((2*N+2)*(2*N+3)),N1=N+1,R2=R1+Z1,s(E,X,Z1,N1,R2,R).
goal
write("Vvedite E="),readreal(E),write("Vvedite X="),readreal(X),
s(E,X,X,0,X,R).