Создайте предикат, вычисляющий функцию sin(x) с заданной точностью

@Kurumu71 · Регистрация: 17.06.2015

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

@~~pavelr~~ · 18.06.2015, 16:26

Prolog

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

@Kurumu71 0 / 0 / 0 Регистрация: 17.06.2015 Сообщений: 4
		1
	Создайте предикат, вычисляющий функцию sin(x) с заданной точностью 17.06.2015, 21:53. Показов 1521. Ответов 1 Метки нет (Все метки) Создайте предикат, вычисляющий функцию sin(x) с заданной точностью 0

Опции темы