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

               brother(name,name).

goal

               deda(X,”Vaciliy”),

               write(X,”Vaciliy”),

               nl.

clauses

               men(“Vaciliy”).

               men(“Michail”).

               men(“Maxim”).   

               mama(“Olga”).

               sons(“Michail”,”Olga”).

               sons(“Maxim”,”Olga”).

               doughter(“Olga”,”Vasiliy”).

               deda(X,Y) :--men(X),men(Y),sons(X,Y),doughter(Z,Y),nl,

               write(“ “,X),nl, fail.

               brother(X,Y) :--men(X),men(Y), sons(X,Z),sons(Y,Z),X<>Y.

Результат:  Michail

                    Maxim

Задание 10.

Реализовать программы вычисления суммы следующих рядов:

1 + 2 + 3 + ... + 9 + 10

2 + 4 + 6 + ... + 14 + 16

10 + 9 + 8 + ... + 2 + 1

1 + 3 + 5 + ... + 13 + 15

domains

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





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