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

%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")