 |
НАУЧНАЯ БИБЛИОТЕКА - РЕФЕРАТЫ - Разработка информационно справочной системы Технический паспорт автомобиля
Разработка информационно справочной системы Технический паспорт автомобиля
CODE=12050
/* ************************** * КУРСОВАЯ РАБОТА * * * * * * * **************************
*/
domains b,c,d,m,r,z,i,n,n1,ko,ob,pl=integer t,a,f,s,l,p,u,na,j=symbol
database -svod1 svod1(a,b,c,d,f,m,t,r,s,l,p,u)
database -lolo lolo(a,b,c,d,f,m,t,r,s,l,p,u)
database -kuku kuku(a,b,c,d,f,m,t,r,s,l,p,u)
database svod(a,b,c,d,f,m,t,r,s,l,p,u) predicates start patch load select(i) sel(i,i) process(i) procedure(i) sve(i) lod(i) repeat
goal start.
clauses
/*Процедура создания основного меню и загрузки базы данных*/ start:- makewindow(1,10,0,"ТЕХНИЧЕСКИЙ ПАСПОРТ АВТОЛЮБИТЕЛЯ",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("dima.dat"), consult("dima.dat"), cursor(1,2), write("База загружена"). load:- cursor(1,2), write("Нет базы на диске").
/*Пpоцедуpа ввода новых данных*/ process(7):- makewindow(1,2,7,"Ввод новых данных",0,0,25,80), nl, write("Введите марку автомобиля :"),readln(K),nl, write("Введите год выпуска :"),readint(O),nl, write("Введите номер двигателя :"),readint(I),nl, write("Введите номер шасси :"),readint(Y),nl, write("Введите цвет :"),readln(T),nl, write("Введите номерной знак :"),readint(FF),nl, write("Введите серию паспорта :"),readln(OO),nl, write("Введите номер паспорта :"),readint(YY),nl, write("Введите фамилию :"),readln(KK),nl, write("Введите инициалы имени :"),readln(II),nl, write(" oтчества :"),readln(TT),nl, write("Введите район учета :"),readln(HH),nl, N1=K,NA1=O,KO1=I,OB1=Y,PL1=T,FF1=FF,OO1=OO, YY1=YY,KK1=KK,II1=II,TT1=TT,HH1=HH, assertz(svod(N1,NA1,KO1,OB1,PL1,FF1,OO1,YY1,KK1,II1,TT1,HH1)), removewindow, fail.
/*Процедура просмотра-добавления*/ process(8):- makewindow(1,2,7,"Просмотр-добавление",0,0,25,80), nl, write("Введите марку автомобиля:"),readln(A),nl,nl, svod(KY,NA,KO,OB,PL,N,OOO,YYY,KKK,III,TTT,HHH), A=KY, write("Марка автомобиля :"),write(A),nl, write("Год выпуска :"),write(NA),nl, write("Номер двигателя :"),write(KO),nl, write("Номер шасси :"),write(OB),nl, write("Цвет автомобиля :"),write(PL),nl, write("Номерной знак :"),write(N),nl, write("Cерия паспорта :"),write(OOO),nl, write("Номер паспорта :"),write(YYY),nl, write("Фамилия :"),write(KKK),nl, write("Инициалы имени :"),write(III),nl, write(" отчества :"),write(TTT),nl, write("район учета :"),write(HHH),nl, nl,nl, write("Нажмите на любую клавишу"), readchar(_), removewindow, !. process(8):-
write("Этой марки автомобиля нет в базе."),
write("Повторите введенную марку автомобиля "),
write("и продолжайте ввод данных"),nl,nl,nl,
write("Введите марку автомобиля:"), readln(A),nl, A=N1, write("Введите год выпуска :"),readint(F),nl, write("Введите номер двигателя :"),readint(Y),nl, write("Введите номер шасси :"),readint(J),nl, write("Введите цвет :"),readln(G),nl, write("Введите номерной знак :"),readint(FFFF),nl, write("Введите серию паспорта :"),readln(OOOO),nl, write("Введите номер паспорта :"),readint(IIII),nl, write("Введите фамилию :"),readln(KKKK),nl, write("Введите инициалы имени :"),readln(TTTT),nl, write(" отчества :"),readln(MMMM),nl, write("Введите район учета :"),readln(GGGG),nl, NA1=F,KO1=Y,OB1=J,PL1=G,FF1=FFFF,OO1=OOOO, YY1=IIII,KK1=KKKK,II1=TTTT,TT1=MMMM,HH1=GGGG, assertz(svod(N1,NA1,KO1,OB1,PL1,FF1,OO1,YY1,KK1,II1,TT1,HH1)), removewindow, fail.
/*Пpоцедуpа вывода данных о пpогpамме*/ process(0):- makewindow(1,2,7,"О пpогpамме...",0,0,25,80),
write(" Инфоpмационно-спpавочная система"),nl,nl,
write(" -технический паспорт автолюбителя."),
nl,nl,
write(" Язык-TURBO-PROLOG v.2.0. "),nl,nl,
write(" автоp: ЛИПАТКИН ДМИТРИЙ "),nl,nl,
write(" МИРЭА, гp. ИИ-1-95 (с) 1996 г. "),
nl,nl,nl,nl,
write("Нажмите на любую клавишу"), readchar(_), removewindow.
/*Процедура изменения содержимого записей базы данных*/ process(1):- makewindow(1,2,7,"Коppекция данных",0,0,25,80), nl, select(N), RR=N, svod(KY,NA,KO,OB,PL,RR,OOO,YYY,KKK,III,TTT,HHH), write("Марка автомобиля :"),write(KY),nl, write("Год выпуска :"),write(NA),nl, write("Номер двигателя :"),write(KO),nl, write("Номер шасси :"),write(OB),nl, write("Цвет автомобиля :"),write(PL),nl, write("Номерной знак :"),write(RR),nl, write("Серия паспорта :"),write(OOO),nl, write("Номер паспорта :"),write(YYY),nl, write("Фамилия :"),write(KKK),nl, write("Инициалы имени :"),write(III),nl, write(" oтчества :"),write(TTT),nl, write("Район учета :"),write(HHH),nl, nl, write("Введите марку автомобиля :"),readln(N1),nl, write("Введите год выпуска :"),readint(NA1),nl, write("Введите номер двигателя :"),readint(KO1),nl, write("Введите номер шасси :"),readint(OB1),nl, write("Введите цвет :"),readln(PL1),nl, write("Введите номерной знак :"),readint(RR1),nl, write("Введите серию паспорта :"),readln(OO1),nl, write("Введите номер паспорта :"),readint(YY1),nl, write("Введите фамилию :"),readln(KK1),nl, write("Введите инициалы имени :"),readln(II1),nl, write(" отчества :"),readln(TT1),nl, write("Введите район учета :"),readln(HH1),nl, retract(svod(KY,NA,KO,OB,PL,RR,OOO,YYY,KKK,III,TTT,HHH)), assert(svod(N1,NA1,KO1,OB1,PL1,RR1,OO1,YY1,KK1,II1,TT1,HH1)), !, removewindow.
/*Процедура удаления записей из базы данных*/ process(2):- makewindow(1,2,7,"Удаление записей",0,0,25,80), nl, select(N), X=N, svod(KY,NA,KO,OB,PL,X,OOO,YYY,KKK,III,TTT,HHH), retract(svod(KY,NA,KO,OB,PL,X,OOO,YYY,KKK,III,TTT,HHH)),!, removewindow.
/*Процедура просмотра содержимого базы данных*/ process(3):- makewindow(1,2,7,"Просмотp базы",0,0,25,80), nl,
write("ЙННННННННННННННННННННННННННННННННННННННННННННННННННННННННН»"),
write("є ТЕХНИЧЕСКИЙ ПАСПОРТ АВТОЛЮБИТЕЛЯ є"),
write("МНННННЛНННННЛННННННЛНННННЛННННЛННННННЛННННННННЛНННННЛННННН№"),
write("ємаркає год є No є No є єномер-єпаспорт є ФИО є є"),
write("єавт. євыпу-єдвига-єшассиєцветє ной єНННННЛННОНЛНЛН№районє"),
write("є єска є теля є є є знак єсерияєNoєФєИєОє є"),
write("МНННННОНННННОННННННОНННННОННННОННННННОНННННОННОНОНОНОННННН№"), svod(KY,NA,KO,OB,PL,N,OOO,YYY,KKK,III,TTT,HHH), cursor(Z,_), cursor(Z,0),write(KY), cursor(Z,8),write(NA), cursor(Z,16),write(KO), cursor(Z,26),write(OB), cursor(Z,32),write(PL), cursor(Z,39),write(N), cursor(Z,46),write(OOO), cursor(Z,52),write(YYY), cursor(Z,58),write(KKK), cursor(Z,66),write(III), cursor(Z,68),write(TTT), cursor(Z,70),write(HHH), nl, fail. process(3):-
write("ИНННННННННННННННННННННННННННННННННННННННННННННННННННННННННј
nl,
write("Нажмите на любую клавишу"), readchar(_), removewindow.
/*Процедура загрузки в память базы данных*/ process(4):- nl, makewindow(2,15,4,"Загрузка",5,5,20,70), write("1 - База будет загружена из указанного файла"),nl, write("2 - База будет загружена из файла dima.dat"),nl, write("3 - Выход в основное меню"),nl, write("==>"), readint(C), C>0,C0,I0,OБесплатная контрольная работа по Информационно справочные системы и и классификация. Готовая курсовая работа на тему информационно справочная документация. Реферат на тему разоаботка информационно справочных каталогов в СКИТ. Литература по Информационно справочная система и и классификация. Ную работу на тему разработка системы технический паспорт. Понятие информационно справочной системы реферат. Реферат на тему систета управления автомобилем. Классификация информационно справочных систем. Разработка справочно информационной системы. Технический паспорт информационной системы. Что такое технический паспорт автомобиля. Реферат Информационно справочная система. Реферат технический паспорт недвижимости. Понятие информационно справочные системы. Реферат информационно справочные системы.
| |
|
|
