Вычислить значение выражения. Где ошибка? - Prolog

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

Нужно вычислить значение выражения, используя SWI Prolog. Вот что получилось:

                    Листинг программы
                
solution(X):-X<>0, Y=exp(X)*sin(X)+5*ln(X),
    write("y=",Y).

Но при вводе запроса

                    Листинг программы
                
write("х="),read(X),solution(X),nl.

выдается ошибка ERROR: toplevel: Undefined procedure: solution/1 (DWIM could not correct goal). Подскажите, пожалуйста, что нужно исправить?

Решение задачи: «Вычислить значение выражения. Где ошибка?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
predicates
solution(real,real)
clauses
solution(X,Y):- X<>0, Y=exp(X)*sin(X)+5*ln(X).
goal
write("y="),readreal(X),solution(X,Y),write("y="),write(Y),nl.

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

7 голосов , оценка 4.143 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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