Лекции по информатике
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферат подросток, большой реферат
| Добавил(а) на сайт: Egorov.
Предыдущая страница реферата | 17 18 19 20 21 22 23 24 25 26 27 | Следующая страница реферата
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*
database
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 (“Укажите код ТМЦ”),
nl,
Рекомендуем скачать другие рефераты по теме: дипломы грамоты, реферат египет.
Категории:
Предыдущая страница реферата | 17 18 19 20 21 22 23 24 25 26 27 | Следующая страница реферата
Главная