Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

predicates

   sum( Sp, Sum)

clouses

   sum ( [ ], 0).

   sum ( [ H/t ], Sum) if

               sum(T,Sum1),

               Sum= H + Sum1.

goal

   consult (“data”),

   write (“Введите код ТМЦ”),

   nl,

   readln (Kod),

   sum(Sp, Sum),

   write (Sum).

5.Удаление конкретных фактов из БД

domains

   Post, Kod = string

   Kol, Cena = integer

database

   tmc (Post, Kod, Kol, Cena)

predicates

   udal

clouses

   udal if

   write (“Укажите код поставщика”),

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





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата