Turbo Prolog 2.0 Вычислить значение M

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

Помогите исправить ошибку в вычислении "M"

domains
x,y = real
predicates
X1(x,y)
X2(x,y)
M(x,y)
clauses
X1(X,Res1) if X>0; X<=2; Res1 = X*X+2*cos(X).
X2(X,Res2) if X>2; Res2 =(X*X+exp(X)) /2*X.
M(X,Rez) if Res1 = Res2; Rez = Res2.

Решение задачи: «Turbo Prolog 2.0 Вычислить значение M»

textual
                            Листинг программы 
                        

                            predicates
m(real,real)
clauses
m(X,Y) :- X>2, Y=(X*X+exp(X))/(2*X).
m(X,Y) :- X>0, X<2,Y=X*X+2*cos(X).
                        

Оцени полезность:

9 голосов , оценка 3.778 из 5

Похожие ответы