Рефераты по теме Программирование, Базы данных
Реферат Разработка информационно-справочной системы "Характеристика предприятия" Prolog скачать бесплатно
Скачать реферат ↓ [0 B]
Текст реферата Разработка информационно-справочной системы "Характеристика предприятия" Prolog
CODE=12050 /* ************************** * КУРСОВАЯ РАБОТА * * * * Косарева Вячеслава * * ***************************
*/
domains
z,i,n,n1,ko,ob,pl=integer
na,j=symbol
database -svod1
svod1(n,j,ko,ob,pl)
database -lolo
lolo(n,na,i,ob,pl)
database -kuku
kuku(n,na,ko,i,pl)
database
svod(n,na,ko,ob,pl)
predicates
start
patch
load
select(i)
sel(i,i)
process(i)
procedure(i)
sve(i)
lod(i)
repeat goal start. clauses /*Процедура создания основного меню и загрузки базы данных*/ start:- makewindow(1,2,7,"ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ",0,0,25,80), clearwindow, load, patch. /*Процедура управления основным меню*/ patch:-
repeat,
cursor(7,0),
write(" 0 - О пpогpамме... "),nl, write(" 1 - коррекция данных"),nl, write(" 2 - удаление данных"),nl, write(" 3 - просмотр базы"),nl, write(" 4 - загрузка базы"),nl, write(" 5 - сохранение базы"),nl, write(" 6 - создание новой базы"),nl, write(" 7 - ввод новых данных"),nl, write(" 8 - просмотр-добавление"),nl, write(" 9 - выход из программы"),nl, write(" =>"),
readint(Choice),
Choice >= 0,
Choice < 10,
clearwindow,
process(Choice),
clearwindow,
Choice = 9,
retractall(_), removewindow. /*Процедура поиска и загрузки файла содержащего базу данных*/ load:-
existfile("slava.dat"),
consult("slava.dat"),
cursor(1,2),
write("База загружена").
load:-
cursor(1,2), write("Нет базы на диске"). /*Пpоцедуpа ввода новых данных*/ process(7):- makewindow(1,2,7,"Ввод новых данных",0,0,25,80), nl, write("Введите порядковый номер :"),readint(K),nl, write("Введите название предприятия:"),readln(O),nl, write("Введите количество рабочих :"),readint(I),nl, write("Введите объем продукции :"),readint(Y),nl, write("Введите занимаемую площадь :"),readint(T),nl,