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

@Simplistic · Регистрация: 19.01.2017

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

Добрый вечер. Помогите изменить текущую программу в турбо прологе:
Создайте предикат, вычисляющий функцию sin(x) с заданной точностью, что бы она вычисляла cos(x) с заданной точностью.

Prolog

domains
i=integer
r=real
predicates
degtorad(r,r)
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).
degtorad(A,AL):-AL=(3.14/180)*A.
goal
write("‚ўҐ¤ЁвҐ §* зҐ*ЁҐ в®з*®бвЁ E="),readreal(E),write("‚ўҐ¤ЁвҐ §* зҐ*Ёп гЈ«  ў Ја ¤гб е="),readreal(AL),degtorad(AL,X), s(E,X,X,0,X,R), write("sin(" ,AL, ")=",R).

@Catstail · 21.01.2017, 12:33

Так это и реализовано... E - точность.

@Catstail Модератор 36359 / 19811 / 4148 Регистрация: 12.02.2012 Сообщений: 32,937 Записей в блоге: 13
	21.01.2017, 12:33	2
	Так это и реализовано... E - точность. 0

Опции темы