Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

 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),

 nl.

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

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

 nl.

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

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

 nl.

Рекомендуем скачать другие рефераты по теме: курсовая работа по праву, сообщение об открытии.



Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки