Реферат: Агрегаты фактов

tmc (Post, Kod, Kol, Cena)

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 (“Укажите код поставщика”),

nl,

readln (Post),

write (“Укажите код ТМЦ”),