: - 3


retrat(< >)( dbasedom) : (i) , . retrat . . , , . .

SAVE(< >) . .

string : (i) save/

CONSULT(< >) . . 񠠠 string : (i) .

2. .

1. clouses .

domains

Post, Kod = string

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,

write ( ֔),

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.