goal

write("X = "),

readint(X),

nl,

write("K = "),

readreal(K),

nl,

Z=exp(sin(X))+sqrt(K+X*X),

write("Z = ",Z).

Результат: X=5, K=16, Z=6,7864292326

2. В режиме калькулятора вычислить X = (2 + 5) * 3,4, т.е. вводя значения 2, 5, 3.4 с клавиатуры.

goal

write("X = "),

readint(X),

nl,

write("K = "),

readint(K),

nl,

write(“N= “),

readreal(N),

nl

Z=(X+K)*N,

write("Z = ",Z).

Результат: 23,8

Задание 7.

Реализовать приведенную программу с внешней связью, выполнив все четыре арифметические операции.

predicates

operation(symbol,real,real)

clauses

operation("+",X,Y):-Z=X+Y,

write(X,"+",Y,"=",Z),