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

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

nl.

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

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

Возможно вы искали - Курсовая работа: Конвертер программы с подмножества языка Си в Паскаль с использованием LL1 метода синтаксическог

nl.

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

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

nl.

Результат: Vvedite chisla

Похожий материал - Контрольная работа: Boot Record команды DOS Norton Commander Windows

2

4

2+4=6

2-4=-2

2*4=8

Очень интересно - Дипломная работа: Машинная память

2/4=0,5

Задание 9.

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

domains

name=symbol

predicates

Вам будет интересно - Доклад: Компьютерные определители

men(name)

mama(name)

sons(name,name)

doughter(name,name)

deda(name,name)

Похожий материал - Статья: Основы работы в Internet

brother(name,name).

goal

deda(X,”Vaciliy”),

write(X,”Vaciliy”),