Программа выводит на экран первые 5 натуральных чисел. Реализует метод повтора, определяемый пользователем
database
counter( integer )
predicates
repeat
count
goal
count.
clauses
repeat.
repeat :- repeat.
count :- assert( counter(0) ) , fail.
count :- repeat ,
counter(X), /* начало тела цикла */
Y = X + 1,
retract( counter(X) ),
asserta( counter(Y) ),
write(Y,"\n"),
Y = 5. /* условие выхода из цикла */
|