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

Kol, Cena = integer

database

tmc ( Post, Kod, Kol, Cena)

predicates

perezap

dauses

tmc (“001”, “001”, 45,80).

.

.

.

perzap if

save (“data”)

gocel

perezap.

2. Создание базы в процессе диалога

domains

Post, Kod = string

Kol, Cena = integer

Pc = integer &&признак окончания ввода

database

tmc ( Post, Kod, Kol, Cena) &&база создается первоначально

predicates

vvod

clouses

vvod if

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

nl,

readln (post),

nl,