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

Формулировка задачи:

Помогите создать предикат, вычисляющий функцию cos(x) через sin(x) по формуле cos(x)=sqrt(1-sin^2(х))

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

textual
predicates
my_cos(real,real)
 
clauses
my_cos(X,R) :- S=sin(X), S2=S*S, R=sqrt(1-S2).

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ