Создайте предикат, вычисляющий функцию 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).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
