domains

number,sum=integer

predicates

sum(number,sum)

goal

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

write(“Суммаряда : “),

sum(1,sum), write(sum).

clauses

sum(17,0).

sum(Number, Sum) :--

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

New_number=Number+2,

sum(New_number,Partial_sum),

Sum=Number+Partial_sum.

Результат: Сумма ряда : 64

Задание 12.

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

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

domains

town_list=town*

town=symbol

predicates

towns(town_list)

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

goal

towns([A,B,C,D,E]),

write(A,”,”,B,”,”,C,”,”,D,”,”,E).

clauses

towns([ “Kazan”,”Nignekamsk”,”Elabuga”,”Bugulma”,”Almetevsk” ]).

Результат: Kazan, Nignekamsk, Elabuga, Bugulma, Almetevsk

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