Главная » Каталог    
рефераты Разделы рефераты
рефераты
рефератыГлавная

рефератыБиология

рефератыБухгалтерский учет и аудит

рефератыВоенная кафедра

рефератыГеография

рефератыГеология

рефератыГрафология

рефератыДеньги и кредит

рефератыЕстествознание

рефератыЗоология

рефератыИнвестиции

рефератыИностранные языки

рефератыИскусство

рефератыИстория

рефератыКартография

рефератыКомпьютерные сети

рефератыКомпьютеры ЭВМ

рефератыКосметология

рефератыКультурология

рефератыЛитература

рефератыМаркетинг

рефератыМатематика

рефератыМашиностроение

рефератыМедицина

рефератыМенеджмент

рефератыМузыка

рефератыНаука и техника

рефератыПедагогика

рефератыПраво

рефератыПромышленность производство

рефератыРадиоэлектроника

рефератыРеклама

рефератыРефераты по геологии

рефератыМедицинские наукам

рефератыУправление

рефератыФизика

рефератыФилософия

рефератыФинансы

рефератыФотография

рефератыХимия

рефератыЭкономика

рефераты
рефераты Информация рефераты
рефераты
рефераты

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


%code = 12850
domains
z,i,n,n1,kol,tkol = integer
prod,town,nazvanie,j,str = string
index = real
database -svod1
svod1(n,j,kol,tkol,town,index,nazvanie)
database -lolo
lolo(n,prod,kol,i,town,index,nazvanie)
database -kuku
kuku(n,prod,kol,tkol,town,index,nazvanie)
database
svod(n,prod,kol,tkol,town,index,nazvanie)
predicates
start
patch
load
select(i)
sel(i,i)
process(i)
procedure(i)
skip(string,string,string)
skip1(string,integer,integer)
skip2(string,real,real)
sve(i)
lod(i)
repeat
goal
start.
clauses
/*Процедура созданЃE ъBыMвньBЃEЃEЃE ЃEзагрузЃE базы даыLых*/ start:-
makewindow(1,2,7,"ТьAар ъь скЃEде",0,0,25,80),
clearwindow,
load,
patch.
/*Процедура управленЃE ъBыMвным ЃEЃE*/
patch:-
repeat,
cursor(7,0),
write("
0 - О ЃEьBpамЃE... "),nl,
write("
1 - ЃEррекция даыLых"),nl,
write("
2 - удаление даыLых"),nl,
write("
3 - ЃEъBЃEтр базы"),nl,
write("
4 - загрузЃE базы"),nl,
write("
5 - сохранение базы"),nl,
write("
6 - создание ыMвоЃEбазы"),nl,
write("
7 - ввьC ыMвыЃEдаыLых"),nl,
write("
8 - ЃEъBЃEтр-добавление"),nl,
write("
9 - выхоЃEиз ЃEьBраЃEЃE),nl,
write("
=>"),
readint(Choice),
Choice >= 0,
Choice < 10,
clearwindow,
process(Choice), clearwindow,
Choice = 9,
retractall(_),
removewindow.
/*Процедура ЃEисЃE ЃEзагрузЃE файлЃEсодержащегЃEбазу даыLых*/
load:-
existfile("kot.dat"),
consult("kot.dat"),
cursor(1,2), write("БазЃEзагруженЃE).
load:-
cursor(1,2),
write("Нет базы ъь дискЃE).
/*ПpъGедуpЃEввьCЃEыMвыЃEдаыLых*/
process(7):-
makewindow(1,2,7,"ВвоЃEыMвыЃEдаыLых",0,0,25,80),
nl,
write("Введите ЃEЃEдкьAый ыMЃEЃE :"),readint(K),nl,
write("Введите ъьименьAание товара :"),readln(O),nl,
write("Введите ЃEЃEчество ъь скЃEде
:"),readint(I),nl,
write("Введите требуеЃEЃEЃEЃEчество :"),readint(Y),nl,
write("Введите ГъAьC :"),readln(T),nl,
write("Введите ПъHтовыЃEиндеЃE :"),readreal(V),nl,
write("Введите НазваыGЃEЃEедЃEЃEтия
:"),readln(A),nl,
N1=K,PROD1=O,KOL1=I,TKOL1=Y,TOWN1=T,INDEX1=V,NAZVANIE1=A,
assertz(svod(N1,PROD1,KOL1,TKOL1,TOWN1,INDEX1,NAZVANIE1)),
removewindow,
fail.
/*Процедура ЃEъBЃEтрЃEдобавленЃE*/ process(8):-
makewindow(1,2,7,"ПросмъCЃEдобавление",0,0,25,80), nl, write("Введите ыMЃEЃEзаЃEси:"),readint(A),nl,nl,
svod(N,PROD,KOL,TKOL,TOWN,INDEX,NAZVANIE), A=N,
write("НьKер
заЃEси
:"),write(A),nl, write("НаиЃEыMваыGЃEтовара
:"),write(PROD),nl, write("КьJичествЃEъь скЃEде :"),write(KOL),nl, write("ТребуемьD ЃEЃEчество :"),write(TKOL),nl, write("ГъAьC
:"),write(TOWN),nl, write("ПъHтовыЃEиндеЃE
:"),write(INDEX),nl, write("НазваыGЃEЃEедЃEЃEтия
:"),write(NAZVANIE),nl,nl,nl,nl,nl, write("НажЃEте ъь ЃEбую ЃEавишЃE), readchar(_), removewindow, !. process(8):- write("ДаныMго ыMЃEра заЃEси ыDЃEЃEбазе."), write("ВЃEЃEжете добавить заЃEсь ЃEЃEэтиЃEыMЃEроЃE),nl,nl,nl, write("Введите егЃEещё раЃE"), readint(A),nl, A=N1, write("Введите ъьименьAание товара
:"),readln(F),nl, write("Введите ЃEЃEчество ъь скЃEде
:"),readint(Y),nl, write("Введите требуеЃEЃEЃEЃEчество
:"),readint(J),nl, write("Введите ГъAьC :"),readln(G),nl, write("Введите ПъHтовыЃEиндеЃE
:"),readreal(E),nl, write("Введите НазваыGЃEЃEедЃEЃEтия :"),readln(Z),nl,
PROD1=F,KOL1=Y,TKOL1=J,TOWN1=G,INDEX1=E,NAZVANIE1=Z,
assertz(svod(N1,PROD1,KOL1,TKOL1,TOWN1,INDEX1,NAZVANIE1)), removewindow. % fail.
/*ПpъGедуpЃEвывода даыLых ЃEЃEьBpамЃE*/ process(0):-
makewindow(1,2,7,"О ЃEьBpамЃE...",0,0,25,80), write(" ТОВАР НА СКЛАДЕ
"),nl,nl, write("
"),nl,nl, write(" ЯзыЃEЃEьBраЃEирьAанЃE
: ПроЃEЃE"),nl, write(" АвтъA
: МихайЃEЃEАЃEЃEандр "),nl, write(" ИыPтитуЃE
: МГИРЭА "),nl, write(" ГруЃEЃE
: ИИ-1-95 "),nl, write("НажЃEте ъь ЃEбую ЃEавишЃE), readchar(_), removewindow.
/*Процедура изЃEыDыGя содержимьBЃEзаЃEсеЃEбазы даыLых*/
process(1):-
makewindow(1,2,7,"КыЌpекция даыLых",0,0,25,80),
nl,
select(N),
X=N,
svod(X,PROD,KOL,TKOL,TOWN,INDEX,NAZVANIE),
write("НьKер заЃEси
:"),write(N),nl,
write("НаиЃEыMваыGЃEтовара :"),write(PROD),nl,
write("КьJичествЃEтовара ъь скЃEде:"),write(KOL),nl,
write("ТребуемьD ЃEЃEчество :"),write(TKOL),nl,
write("ГъAьC
:"),write(TOWN),nl,
write("ПъHтовыЃEиндеЃE
:"),write(INDEX),nl,
write("НазваыGЃEЃEедЃEЃEтия :"),write(NAZVANIE),nl,
nl,
write("Введите ъьименьAание товара :"),readln(PROD1),
write("Введите ЃEЃEчество ъь скЃEде :"),readln(KOL1),
write("Введите требуеЃEЃEЃEЃEчество :"),readln(TKOL1),
write("Введите ГъAьC
:"),readln(TOWN1),
write("Введите ПъHтовыЃEиндеЃE :"),readln(INDEX1),
write("Введите НазваыGЃEЃEедЃEЃEтия
:"),readln(NAZVANIE1),
X1=X,
retract(svod(X,PROD,KOL,TKOL,TOWN,INDEX,NAZVANIE)),
skip(PROD1,PROD,PROD2), skip(TOWN1,TOWN,TOWN2),
skip(NAZVANIE1,NAZVANIE,NAZVANIE2),
skip1(KOL1,KOL,KOL2),
skip1(TKOL1,TKOL,TKOL2),
skip2(INDEX1,INDEX,INDEX2),
assert(svod(X1,PROD2,KOL2,TKOL2,TOWN2,INDEX2,NAZVANIE2)),
!,
removewindow.
/*Процедура удаленЃE заЃEсеЃEиз базы даыLых*/
process(2):-
makewindow(1,2,7,"УдаЃEыGЃEзаЃEсеЃE,0,0,25,80),
nl,
select(N),
X=N,
svod(X,PROD,KOL,TKOL,TOWN,INDEX,NAZVANIE),
retract(svod(X,PROD,KOL,TKOL,TOWN,INDEX,NAZVANIE)),!,
write("ЗаписЃEудаленЃE),nl,
write("НажЃEте ЃEбую ЃEавишЃE),
readchar(_),
removewindow.
/*Процедура ЃEъBЃEтрЃEсодержимьBЃEбазы даыLых*/
process(3):-
makewindow(1,2,7,"ПросмъCp базы",0,0,25,80),
nl,
write("ЙННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН»"),nl,
write("є
ТьAар ъь скЃEде
"),nl,
write("є
"),nl,
write("МНННННЛННННННННЛННННННЛННННННЛНННННННННННННННННННННННННННННННННННННННННННННН№"),nl,
write("є є є

"),nl,
write("єыMЃEрєъьзваниеєЃEЃEъьєтреб є
ЃEставшиЃE
"),nl,
write("є є є
МННННННННННННННННННННЛНННННННННННННЛННННННННННН№"),nl,
write("є є є


ЃEчтьAый є ъьзвание є"),nl,
write("є є товара єскЃEдеєЃEЃEвоє гороЃE є индеЃE єЃEедЃEЃEтияє"),nl,
write("МНННННОННННННННОННННННОННННННОННННННННННННННННННННєННННННННННННН№ННННННННННН№"),nl,
write("є є є


"),nl,
svod(N,PROD,KOL,TKOL,TOWN,INDEX,NAZVANIE),
cursor(Z,_),
cursor(Z,0),write("є"),
cursor(Z,2),write(N),
cursor(Z,7),write(PROD),
cursor(Z,18),write(KOL),
cursor(Z,23),write(TKOL),
cursor(Z,33),write(TOWN),
cursor(Z,55),write(INDEX),
cursor(Z,67),write(NAZVANIE),
cursor(Z,76),write("є"),
nl,
fail.
process(3):-
write("ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН"),
nl,
write("НажЃEте ъь ЃEбую ЃEавишЃE),
readchar(_),
removewindow.
/*Процедура загрузЃE ЃEЃEЃEть базы даыLых*/
process(4):-
nl,
makewindow(2,15,4,"ЗагрузкЃE,5,5,20,70),
write("1 - БазЃEбудеЃEзагруженЃEиз указаныMго файлЃE),nl,
write("2 - БазЃEбудеЃEзагруженЃEиз файлЃEkot.dat"),nl,
write("3 - ВыхьC ЃEъBыMвньD ЃEЃE"),nl,
write("==>"),
readint(C),
C>0,C<4,
lod(C),
!,
removewindow.
/*Процедура сохраненЃE базы даыLых*/
process(5):-
nl,
makewindow(2,15,4,"ЗаписЃE,5,5,20,70),
write("1 - БазЃEбудеЃEзаЃEсаъь ЃEуказаныZЃEфайл"),nl,
write("2 - БазЃEбудеЃEзаЃEсаъь ЃEфайл kot.dat"),nl,
write("3 - ВыхьC ЃEъBыMвньD ЃEЃE"),nl,
write("==>"), readint(I),
I>0,I<4,
sve(I),!,
removewindow.
/*Процедура выбора созданЃE
ыMвоЃEбазы*/
process(6):-
nl,
makewindow(3,2,7,"СьFдаыGЃEыMвоЃEбазы",0,0,25,80),
write("1 - БазЃEбудеЃEсозданЃEЃE ъьименьAанЃE товара"),nl,
write("2 - БазЃEбудеЃEсозданЃEЃE требуеЃEЃE ЃEЃEчеству"),nl,
write("3 - БазЃEбудеЃEсозданЃEЃE даыLым ЃEЃEчатеЃE"),nl,
write("4 - ВыхьC ЃEъBыMвньD ЃEЃE"),nl,
write("==>"),
readint(O),
O>0,O<5,
procedure(O),
removewindow.
process(_).
/*Процедура созданЃE ыMвоЃEбазы даыLых ЃEее сохраненЃE*/
procedure(1):-
makewindow(1,2,7,"СьFдаыGЃEыMвоЃEбазы ЃE ъьименьAанЃE товара",0,0,25,80),
nl,
cursor(7,10),
retractall(_,svod1),
nl,
write("ЕслЃEвы хотите узъьть даыLые ЃEъьименьAании товара ъь базе , то"),
nl,
write("Введите ъьименьAание товара:"),
readln(X),
svod(N,PROD,KOL,TKOL,TOWN,INDEX,NAZVANIE),
S=PROD,
S=X,
N1=N,KOL1=KOL,TKOL1=TKOL,TOWN1=TOWN,INDEX1=INDEX,NAZVANIE1=NAZVANIE,
assertz(svod1(N1,S,KOL1,TKOL1,TOWN1,INDEX1,NAZVANIE1)),
fail.
procedure(1):-
write("БазЃEсозданЃE),nl,
write("ЙННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН»"),nl,
write("є
ТьAар ъь скЃEде
"),nl,
write("є
"),nl,
write("МНННННЛННННННННЛННННННЛННННННЛНННННННННННННННННННННННННННННННННННННННННННННН№"),nl,
write("є є є

"),nl,
write("єыMЃEрєъьзваниеєЃEЃEъьєтреб є
ЃEставшиЃE
"),nl,
write("є є є
МННННННННННННННННННННЛНННННННННННННЛННННННННННН№"),nl,
write("є є є


ЃEчтьAый є ъьзвание є"),nl,
write("є є товара єскЃEдеєЃEЃEвоє гороЃE є индеЃE єЃEедЃEЃEтияє"),nl,
write("МНННННОННННННННОННННННОННННННОННННННННННННННННННННєННННННННННННН№ННННННННННН№"),nl,
write("є є є


"),nl,
nl,
svod1(N,S,KOL,TKOL,TOWN,INDEX,NAZVANIE),
N1=N,
cursor(Z,_),
cursor(Z,2),write(N1),
cursor(Z,7),write(S),
cursor(Z,18),write(KOL),
cursor(Z,23),write(TKOL),
cursor(Z,33),write(TOWN),
cursor(Z,55),write(INDEX),
cursor(Z,67),write(NAZVANIE),
cursor(Z,77),write("є"),
nl,
fail. procedure(1):-
write("ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН"),
save("now.dat",svod1),
nl,
write("БазЃEсохраненЃEЃEфайлЃEnow.dat"),
nl,
write("НажЃEте ЃEбую ЃEавишЃE),
readchar(_),
removewindow,
!.
procedure(1):-
write("ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН"),
nl,
write("НевьFЃEжнЃEсохранитЃEсозданыRю базу"),
nl,
write("НажЃEте ЃEбую ЃEавишЃE),
readchar(_),
makewindow(1,2,7,"ТьAар ъь скЃEде",0,0,25,80).
procedure(2):-
makewindow(1,2,7,"СьFдаыGЃEыMвоЃEбазы ЃE требуеЃEЃE ЃEЃEчеству",0,0,25,80), nl,
cursor(7,10),
retractall(_,lolo),
nl,
write("ЕслЃEвы хотите узъьть даыLые ЃEъьибьJЃEем требуеЃEЃEЃEЃEчестве , то"),nl,
write("Введите ъьчаЃEыMЃEзначение требуеЃEго ЃEЃEчества:"),
readint(X),
svod(N,PROD,KOL,TKOL,TOWN,INDEX,NAZVANIE),
S=TKOL,
S>=X,
N1=N,PROD1=PROD,KOL1=KOL,TOWN1=TOWN,INDEX1=INDEX,NAZVANIE1=NAZVANIE,
assert(lolo(N1,PROD1,KOL1,S,TOWN1,INDEX1,NAZVANIE1)),
fail.
procedure(2):-
write("ЙННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН»"),nl,
write("є
ТьAар ъь скЃEде
"),nl,
write("є
"),nl,
write("МНННННЛННННННННЛННННННЛННННННЛНННННННННННННННННННННННННННННННННННННННННННННН№"),nl,
write("є є є

"),nl,
write("єыMЃEрєъьзваниеєЃEЃEъьєтреб є
ЃEставшиЃE
"),nl,
write("є є є
МННННННННННННННННННННЛНННННННННННННЛННННННННННН№"),nl,
write("є є є

ЃEчтьAый є ъьзвание є"),nl,
write("є є товара єскЃEдеєЃEЃEвоє гороЃE є индеЃE єЃEедЃEЃEтияє"),nl,
write("МНННННОННННННННОННННННОННННННОННННННННННННННННННННєННННННННННННН№ННННННННННН№"),nl,
write("є є є


"),nl,
lolo(N,PROD,KOL,S,TOWN,INDEX,NAZVANIE),
N1=N,
cursor(Z,_),
cursor(Z,0),write("є"),
cursor(Z,3),write(N1),
cursor(Z,7),write(PROD),
cursor(Z,18),write(KOL),
cursor(Z,23),write(S),
cursor(Z,33),write(TOWN),
cursor(Z,55),write(INDEX),
cursor(Z,67),write(NAZVANIE),
cursor(Z,76),write("є"),
nl,
fail.
procedure(2):-
write("ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН"),
save("now1.dat",lolo),
nl,
write("БазЃEсохраненЃEЃEфайлЃEnow1.dat"),
nl,
write("НажЃEте ЃEбую ЃEавишЃE),
readchar(_),
removewindow,
!.
procedure(2):-
write("ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН"),
nl,
write("НевьFЃEжнЃEсохранитЃEсозданыRю базу"),
nl,
write("НажЃEте ЃEбую ЃEавишЃE),
readchar(_),
makewindow(1,2,7,"ТьAар ъь скЃEде",0,0,25,80).
procedure(3):-
makewindow(1,2,7,"СьFдаыGЃEбазы даыLых ЃE даыLым ЃEЃEчатеЃE",0,0,25,80),
nl,
cursor(7,10),
retractall(_,kuku),
nl,
write("ЕслЃEвы хотите узъьть даыLые ЃEтоваре ЃE даыLым ЃEЃEчатеЃE , то"),
nl,
write("Введите даыLые ЃEЃEчатеЃE:"),
readln(X),
readint(Y),
readln(Z),
svod(N,PROD,KOL,TKOL,TOWN,INDEX,NAZVANIE),
S=TOWN,
D=INDEX,
C=NAZVANIE,
S=X,
D=Y,
C=Z,
N1=N,PROD1=PROD,KOL1=KOL,TKOL1=TKOL,
assert(kuku(N1,PROD1,KOL1,TKOL1,S,D,C)),
fail.
procedure(3):-
write("БазЃEсозданЃE),nl,
write("ЙННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН»"),nl,
write("є
ТьAар ъь скЃEде
"),nl,
write("є
"),nl,
write("МНННННЛННННННННЛННННННЛННННННЛНННННННННННННННННННННННННННННННННННННННННННННН№"),nl,
write("є є є

"),nl,
write("єыMЃEрєъьзваниеєЃEЃEъьєтреб є
ЃEставшиЃE
"),nl, write("є
МННННННННННННННННННННЛНННННННННННННЛННННННННННН№"),nl,
write("є є є


ЃEчтьAый є ъьзвание є"),nl,
write("є є товара єскЃEдеєЃEЃEвоє гороЃE є индеЃE єЃEедЃEЃEтияє"),nl,
write("МНННННОННННННННОННННННОННННННОННННННННННННННННННННєННННННННННННН№ННННННННННН№"),nl,
write("є є є


"),nl,
kuku(N,PROD,KOL,TKOL,S,D,C),
N1=N,
cursor(Z,_),
cursor(Z,0),write("є"),
cursor(Z,3),write(N1),
cursor(Z,7),write(PROD),
cursor(Z,18),write(KOL),
cursor(Z,23),write(TKOL), cursor(Z,33),write(S),
cursor(Z,55),write(D),
cursor(Z,67),write(C),
cursor(Z,77),write("є"),
nl,
fail.
procedure(3):-
write("ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН"),
save("now2.dat",svod1),
nl,
write("БазЃEсохраненЃEЃEфайлЃEnow2.dat"),
nl,
write("НажЃEте ЃEбую ЃEавишЃE),
readchar(_),
removewindow, !.
procedure(3):-
write("ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН"),
nl,
write("НевьFЃEжнЃEсохранитЃEсозданыRю базу"),
nl,
write("НажЃEте ЃEбую ЃEавишЃE), readchar(_),
makewindow(1,2,7,"ТьAар ъь скЃEде",0,0,25,80).
/*Процедура заЃEси ъь диск*/
sve(1):-
write("Введите имя файлЃE:"),
readln(N),
save(N),
write("Все ЃEЃEЃEдкЃE),
beep, !.
sve(1):-
write("ОшибкЃEь@ЃEъь, ъьжмитЃEЃEбую ЃEавишЃE),
readchar(_).
sve(2):-
save("kot.dat"),
write("БазЃEсохраненЃE).
sve(3).
/*Процедура чтенЃE ЃEдискЃE/
lod(1):-
retractall(_),
write("Введите имя файлЃE:"),
readln(N),
existfile(N),
consult(N),
write("Все ЃEЃEЃEдкЃE),
beep,
!.
lod(1):-
nl,
write("ДаныMго файлЃEыDЃEъь дискЃE),nl,
write("НажЃEте ЃEбую ЃEавишЃE),
readchar(_).
lod(2):-
retractall(_),
existfile("kot.dat"),
consult("kot.dat"),
write("Все ЃEЃEЃEдкЃE),
beep,
!.
lod(2):-
write("ФайЃE kot.dat ыDЃEъь дискЃE),nl,
write("ъьжмитЃEЃEбую ЃEавишЃE),
readchar(_).
lod(3).
repeat.
repeat:- repeat.
/*ВыбъA заЃEси*/
select(N):-
nl,
write("1 - известен ыMЃEЃEзаЃEси"),nl,
write("2 - известыM ъьименьAание товара"),nl,
write("3 - известыM ЃEЃEчество ъь скЃEде"),nl,
write("4 - известыM требуеЃEЃEЃEЃEчество"),nl,
write("5 - известен ГъAьC"),nl,
write("6 - известен ПъHтовыЃEиндеЃE"),nl,
write("7 - известыM НазваыGЃEЃEедЃEЃEтия"),nl,
write("==>"),
readint(X),
sel(X,N).
sel(1,N):-
nl,
write("Введите ыMЃEЃEзаЃEси
:"),
readint(N),
svod(M,_,_,_,_,_,_),
M=N.
sel(1,N):-
N=0.
sel(2,N):-
nl,
write("Введите ъьименьAание товара:"),
readln(L),
svod(Z,L,_,_,_,_,_),
N=Z.
sel(2,N):-
N=0.
sel(3,N):-
nl,
write("Введите ЃEЃEчество ъь скЃEде: "),
readint(F),
svod(Z,_,F,_,_,_,_),
N=Z.
sel(3,N):-
N=0.
sel(4,N):-
nl,
write("Введите требуеЃEЃEЃEЃEчество:"),
readint(Q),
svod(Z,_,_,Q,_,_,_),
N=Z.
sel(4,N):-
N=0.
sel(5,N):-
nl,
write("Введите ГъAьC:"),
readln(W),
svod(Z,_,_,_,W,_,_),
N=Z.
sel(5,N):-
N=0.
sel(6,N):-
nl,
write("Введите ПъHтовыЃEИыCекЃE"),
readreal(E),
svod(Z,_,_,_,_,E,_),
N=Z.
sel(6,N):-
N=0.
sel(7,N):-
nl,
write("Введите НазваыGЃEЃEедЃEЃEтия:"),
readln(A),
svod(Z,_,_,_,_,_,A),
N=Z.
sel(7,N):-
N=0.
skip("",Fam,Fam2):-
Fam2=Fam,
!.
skip(Fam1,_,Fam2):-
Fam2=Fam1,
!.
skip1("",Fam,Fam2):-
Fam2=Fam,
!.
skip1(Fam1,_,Fam2):-
str_int(Fam1,Fam3),
Fam2=Fam3,
!.
skip2("",Fam,Fam2):-
Fam2=Fam,
!.
skip2(Fam1,_,Fam2):-
str_real(Fam1,Fam3),
Fam2=Fam3,
!.
svod(1,"Колготки",12,9,"Москва",113776,"МММ")
svod(2,"Чулки",128,98,"Рим",144766,"ЛЛО")
svod(3,"Рубашки",87,9,"Киев",563776,"НОВО")
svod(4,"Рогожа",66,43,"Ростов",945644,"АВКУЦиВ")
svod(5,"Носки",4423,545,"Воркута",435436,"Даль")
svod(6,"Валенки",77,65,"Самара",656646,"СамНефть")
svod(7,"Веревка",5545,5440,"Рига",155321,"РигГаз")
svod(8,"Сукно",44,5,"Одинцово",453534,"ГазПром")
svod(9,"Кольсоны",345,345,"N",456345,"Microsoft")
рефераты Рекомендуем рефератырефераты

     
Рефераты @2011