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

nl,

readln (Kod),

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

nl,

readint (Kol),

write (“Введите цену”),

nl,

readint (Cena),

assertz (tmc ( Post, Kod, Kol, Cena)),

write ( “ Введите признак продолжения s/0”),

pr=0,

vvod.

goal

vvod,

save (“data”)

3.Дополнение базы новыми фактами

.

.

.

goal

consult(“data”),

vvod,

save(“data’).

4.Активизация фактов из файла на диск

domaines

Post, Kod = string

Kol, Cena = integer

Sum, Sum1 = integer

Sp = kol*