Приложение 1
N – номер документа
S – статус документа
G – год документа
T – наименование документа
R – раздел
domains
N=string
S=string
Y=string
T=string
R=string
K1=string
K2=string
K3=string
K4=string
K5=string
K6=string
K7=string
K8=string
K9=string
database
nom(string)
year(string)
status(string)
razd(string)
k1(string)
k2(string)
k3(string)
k4(string)
k5(string)
k6(string)
k7(string)
k8(string)
k9(string)
dok1(string,string,string,string,string,string,string,string,string,string,string)
dok(string,string,string,string,string)
dok2(string,string,string,string,string)
dok3(string,string,string,string,string)
predicates
help
view(string,string,string,string,string,string,string,string,string,string,string)
vyb
poisk(string,string,string,string,string,string,string,string,string,string,string)
dict
yn
clauses
help:-
makewindow(1,14,14,"OPISANIE RABOTI",0,0,25,80),nl,nl,
write("Goal:dict - prosmotr slovaria"),nl,nl,
write("Goal: view(N,Y,R,K1,K2,K3,K4,K5,K6,K7,K8,K9)-prosmotr dokumentov i razdelov,"),nl,
write("gde N - nomer dokumenta,"),nl,
write("gde Y - god dokumenta,"),nl,
write("R - razdely,"),nl,
write("K1 - kluchevoe slovo iz slovaria1"),nl,
write("K2 - kluchevoe slovo iz slovaria2"),nl,
write("K3 - kluchevoe slovo iz slovaria3"),nl,
write("K4 - kluchevoe slovo iz slovaria4"),nl,
write("K5 - kluchevoe slovo iz slovaria5"),nl,
write("K6 - kluchevoe slovo iz slovaria6"),nl,
write("K7 - kluchevoe slovo iz slovaria7"),nl,
write("K8 - kluchevoe slovo is slovaria8"),nl,
write("K9 - kluchevoe slovo iz slovaria9"),nl,
write("Luboi parametr zaprosa mojet byt' zamenen"),nl,
write("Dlia prodoljenia najmite lubuiu klavishu"),
readchar(O),O='1'.
dict:-
makewindow(1,11,11,"SLOVAR'",0,0,25,80),nl,
write(" * Adresnaia programma"),nl,
write(" * BOMJ"),nl,
write(" * Veterany"),nl,
write(" * EGE"),nl,
write(" * Jilaia plochad'"),nl,
write(" * Jiloi fond"),nl,
write(" * Zaniatost'"),nl,
write(" * Investicii"),nl,
write(" * Invalidy"),nl,
write(" * Materialnaia pomoch"),nl,
write(" * Obrazovanie"),nl,
write(" * Otkluchenia"),nl,
write(" * Predprinimateli"),nl,
write(" * Predpriatia"),nl,
write(" * Semia"),nl,
write(" * Torgovlia"),nl,
write(" * TSJ"),nl,
write(" * Ychachiesia"),nl,
write(" * Shkola"),nl,
write(" * Uridicheskie"),nl,
write("Dlia prodoljenia raboti najmite lubuiy klavishu"),
readchar(O),O='1'.
view(N,R,K1,K2,K3,K4,K5,K6,K7,K8,K9):-
makewindow(1,15,15,"DOKUMENT",0,0,25,80),nl,
dok1(N,R,K1,K2,K3,K4,K5,K6,K7,K8,K9),
dok(N,S,Y,T,R),nl,
write("Nomer dokumenta \: ",N),nl,nl,
write("God dokumenta: ",Y),nl,nl,
write("Status dokumenta: ",S),nl,nl,
write("Nazvania dokumenta: ",T),nl,
write("Razdel dokuenta: ",R),nl,nl,
write("Kluchevye slova: ",K1," ",K2," ",K3," ",K4," ",K5," ",K6," ",K7," ",K8," ",K9),nl,nl,nl,
write("dlia prodoljenia raboti najmite lubuiu klavishu"),nl,nl,nl,nl,nl,
readchar(O),O='1'.
vyb:-
makewindow(1,15,15,"DOKUMENT",0,0,25,80),nl,
dok1(N,R,K1,K2,K3,K4,K5,K6,K7,K8,K9),
dok(N,S,Y,T,R),nl,
write("Nomer dokumenta: ",N),nl,nl,
write("God dokumenta: ",Y),nl,nl,
write("Status dokumenta: ",S),nl,nl,
write("Nazvania dokumenta: ",T),nl,
write("Razdel dokumenta: ",R),nl,nl,
write("Kluchevyie slova: ",K1," ",K2," ",K3," ",K4," ",K5," ",K6," ",K7," ",K8," ",K9),nl,nl,nl,
yn,
assertz(dok2(N,S,Y,T,R)),nl,
write("Dlia prodoljenia raboti najmite lubuiu klavishu"),nl,nl,nl,nl.
poisk(N,R,K1,K2,K3,K4,K5,K6,K7,K8,K9):-
makewindow(1,15,15,"DOKUMENT",0,0,25,80),nl,
dok1(N,R,K1,K2,K3,K4,K5,K6,K7,K8,K9),
dok(N,S,Y,T,R),nl,
write("Nomer dokumenta: ",N),nl,nl,
write("God dokumenta: ",Y),nl,nl,
write("Status dokumenta: ",S),nl,nl,
write("Nazvania dokumenta: ",T),nl,
write("Razdel dokumenta: ",R),nl,nl,
write("Kluchevyie slova: ",K1," ",K2," ",K3," ",K4," ",K5," ",K6," ",K7," ",K8," ",K9),nl,nl,nl,
yn,
assertz(dok3(N,S,Y,T,R)),nl,
write("Dlia prodoljenia raboti najmite lubuiu klavishu"),nl,nl,nl,nl.
yn:-
nl,write("Otvet'te:"),nl,
nl,write("y - dokument nujen"),nl,
nl,write("n - dokument ne nujen"),nl,
readchar(O),O='y'.
dok("1","Otchet","2010","Otchet glavy","Ekonomika").
dok("2","Otchet","2010","Otchet glavy","Raionnoe hoziaistvo").
dok("3","Otchet","2010","Otchet glavy","Social'noe razvitie").
dok("4","Otchet","2011","Otchet glavy","Ekonomika").
dok("5","Otchet","2011","Otchet glavy","Raionnoe hoziaistvo").
dok("6","Otchet","2011","Otchet glavy","Social'noe razvitie").
dok1("1","Ekonomika","Predprinimateli","Predpriatia","Investicii","Torgovlia",
"Uridicheskie","Jilaia plochad'","Zaniatost'","","").
dok1("2","Raionnoe hoziaistvo","Jiloi fond","TSJ","Otkluchenia","Adresnaia programma",
"","","","","").
dok1("3","Social'noe razvitie","Semia","Shkola","EGE","Uchachiesia","Obrazovanie",
"Materialnaia pomoch","Invalidy","Veterany","BOMJ").
dok1("4","Ekonomika","Predprinimateli","Predpriatia","Investicii","Torgovlia",
"Uridicheskie","Jilaia plochad'","Zaniatost'","","").
dok1("5","Raionnoe hoziaistvo","Jiloi fond","TSJ","Otkluchenia","Adresnaia programma",
"","","","","").
dok1("6","Social'noe razvitie","Semia","Shkola","EGE","Uchachiesia","Obrazovanie",
"Materialnaia pomoch","Invalidy","Veterany","BOMJ").
