Рефераты по теме Программирование, Базы данных
Реферат Разработка информационно-справочной системы "Сводка погоды" скачать бесплатно
Скачать реферат ↓ [0 B]
Текст реферата Разработка информационно-справочной системы "Сводка погоды"
DomainsN,i,n,y,m,d,t,v,p=integer
database -svod1
svod1(n,y,m,d,t,v,p)
database -lolo
lolo(n,y,m,d,t,v,p)
database -kuku
kuku(n,y,m,d,t,v,p)
database
svod(n,y,m,d,t,v,p)
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,"C В О Д К А П О Г О Д Ы ",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("lesha.dat"),
consult("lesha.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(N),nl, write("Введите Год :"),readint(Y),nl,
write("Введите Месяц :"),readint(M),nl,
write("Введите Число :"),readint(D),nl,
write("Введите Температуру :"),readint(T),nl, write("Введите Влажность :"),readint(V),nl, write("Введите Давление :"),readint(P),nl, assertz(svod(N,Y,M,D,T,V,P)), removewindow, fail. /*Процедура просмотра-добавления*/ process(8):- makewindow(1,2,7,"Просмотр-добавление",0,0,25,80),