Разработка информационно-справочной системы "Технический паспорт автомобиля" \Prolog\ [Курсовая]

---

запомнить в избранное   искать в этом разделе

---

ВНИМАНИЕ !!! Это сокращенная версия файла. Предназначена она только для того, чтобы вы могли предварительно ознакомиться с документом, перед тем как его скачать. Здесь нет картинок, не сохранен формат, шрифт, размеры и положение на странице.
Чтобы скачать полную версию, нажмите ссылки которые находятся чуть-чуть ниже (Info File Mail)

---

Info File Mail

Файл относится к разделу:
ПРОГРАММИРОВАHИЕ, БАЗЫ ДАHHЫХ

---

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(I

• подписаться на рассылку. • добавить в избранное. • нашли ошибки ?

Это место