рефераты

Рефераты

рефераты   Главная
рефераты   Краткое содержание
      произведений
рефераты   Архитектура
рефераты   Астрономия
рефераты   Банковское дело
      и кредитование
рефераты   Безопасность
      жизнедеятельности
рефераты   Биографии
рефераты   Биология
рефераты   Биржевое дело
рефераты   Бухгалтерия и аудит
рефераты   Военное дело
рефераты   География
рефераты   Геодезия
рефераты   Геология
рефераты   Гражданская оборона
рефераты   Животные
рефераты   Здоровье
рефераты   Земельное право
рефераты   Иностранные языки
      лингвистика
рефераты   Искусство
рефераты   Историческая личность
рефераты   История
рефераты   История отечественного
      государства и права
рефераты   История политичиских
      учений
рефераты   История техники
рефераты   Компьютерные сети
рефераты   Компьютеры ЭВМ
рефераты   Криминалистика и
      криминология
рефераты   Культурология
рефераты   Литература
рефераты   Литература языковедение
рефераты   Маркетинг товароведение
      реклама
рефераты   Математика
рефераты   Материаловедение
рефераты   Медицина
рефераты   Медицина здоровье отдых
рефераты   Менеджмент (теория
      управления и организации)
рефераты   Металлургия
рефераты   Москвоведение
рефераты   Музыка
рефераты   Наука и техника
рефераты   Нотариат
рефераты   Общениеэтика семья брак
рефераты   Педагогика
рефераты   Право
рефераты   Программирование
      базы данных
рефераты   Программное обеспечение
рефераты   Промышленность
      сельское хозяйство
рефераты   Психология
рефераты   Радиоэлектроника
      компьютеры
      и перифирийные устройства
рефераты   Реклама
рефераты   Религия
рефераты   Сексология
рефераты   Социология
рефераты   Теория государства и права
рефераты   Технология
рефераты   Физика
рефераты   Физкультура и спорт
рефераты   Философия
рефераты   Финансовое право
рефераты   Химия - рефераты
рефераты   Хозяйственное право
рефераты   Ценный бумаги
рефераты   Экологическое право
рефераты   Экология
рефераты   Экономика
рефераты   Экономика
      предпринимательство
рефераты   Юридическая психология

 
 
 

Разработка информационно справочной системы Технический паспорт автомобиля


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Бесплатная контрольная работа по Информационно справочные системы и и классификация. Готовая курсовая работа на тему информационно справочная документация. Реферат на тему разоаботка информационно справочных каталогов в СКИТ. Литература по Информационно справочная система и и классификация. Ную работу на тему разработка системы технический паспорт. Понятие информационно справочной системы реферат. Реферат на тему систета управления автомобилем. Классификация информационно справочных систем. Разработка справочно информационной системы. Технический паспорт информационной системы. Что такое технический паспорт автомобиля. Реферат Информационно справочная система. Реферат технический паспорт недвижимости. Понятие информационно справочные системы. Реферат информационно справочные системы.
© 2011 Рефераты