Реферат на тему "Разработка информационно-справочной системы "Характеристика предприятия" 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,

N1=K,NA1=O,KO1=I,OB1=Y,PL1=T,

assertz(svod(N1,NA1,KO1,OB1,PL1)),

removewindow,

fail.

/*Процедура просмотра-добавления*/

process(8):-

makewindow(1,2,7,"Просмотр-добавление",0,0,25,80),

nl,

write("Введите номер записи:"),readint(A),nl,nl,

svod(N,NA,KO,OB,PL),

A=N,

write("Номер записи :"),write(A),nl,

write("Название предприятия:"),write(NA),nl,

write("Количество рабочих :"),write(KO),nl,

write("Объем продукции :"),write(OB),nl,

write("Занимаемая площадь :"),write(PL),nl,nl,nl,

write("Нажмите на любую клавишу"),

readchar(_),

removewindow,

!