Рефераты по теме Программирование, Базы данных
Реферат Разработка информационно-справочной системы "Водительское удостоверение" Prolog скачать бесплатно
Скачать реферат ↓ [0 B]
Текст реферата Разработка информационно-справочной системы "Водительское удостоверение" Prolog
CODE=12050 /* ************************** * КУРСОВАЯ РАБОТА * * * * Федорова Вадима * * ***************************
*/
domains
z,i,n,n1,n,no,dat,datv=integer
gor,fio,se,j=symbol
database -svod1
svod1(n,j,dat,gor,se,no,datv)
database -lolo
lolo(n,fio,dat,gor,j,no,datv)
database -kuku
kuku(n,fio,dat,gor,se,i,datv)
database-svod
svod(n,fio,dat,gor,se,no,datv)
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("mak.dat"),
consult("mak.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("Введите город рождения:"),readln(Y),nl, write("Введите