code=5000 domains Name,Socket=string Pcie,Sata,Usb,Ddr2,Ddr3,Price=integer key,y,z,A,B,C,D,E,F,G=integer database -db1 motheboard(Name,Socket,Pcie,Sata,Usb,Ddr2,Ddr3,Price) Predicates rpt menu saves(integer) clearb %===================================== key_menu1(key,y) key_menu2(key,y) key_menu41(key,y,A,B,C,D,E,F) key_menu42(key,y,A,B,C,D,E,F,G) key_menu10(key,y) key_menu11(key,y,string) key_menu12(key,y,string,string) key_menu13(key,y,string,string,integer) key_menu14(key,y,string,string,integer,integer) key_menu15(key,y,string,string,integer,integer,integer) key_menu16(key,y,string,string,integer,integer,integer,integer) key_menu17(key,y,string,string,integer,integer,integer,integer,integer) %===================================== go1(integer) go2(integer) go3(integer,integer) go4(integer,integer,integer) go5(integer,integer,integer,integer) go6(integer,integer,integer,integer,integer) go7(integer,integer,integer,integer,integer,integer) go8(integer,integer,integer,integer,integer,integer,integer) go999(integer,integer,integer,integer,integer,integer,integer,integer) %===================================== find1(integer) find2(integer,string) find3(integer,string,string) find4(integer,string,string,integer) find5(integer,string,string,integer,integer) find6(integer,string,string,integer,integer,integer) find7(integer,string,string,integer,integer,integer,integer) find8(integer,string,string,integer,integer,integer,integer,integer) find_menu1(string) find_menu2(string,string) find_menu3(string,string,integer) find_menu4(string,string,integer,integer) find_menu5(string,string,integer,integer,integer) find_menu6(string,string,integer,integer,integer,integer) find_menu7(string,string,integer,integer,integer,integer,integer) find_menu8(string,string,integer,integer,integer,integer,integer,integer,integer) %===================================== seeFind1(string) seeFind2(string,string) seeFind3(string,string,integer) seeFind4(string,string,integer,integer) seeFind5(string,string,integer,integer,integer) seeFind6(string,string,integer,integer,integer,integer) seeFind7(string,string,integer,integer,integer,integer,integer) %===================================== see % interval(integer,integer,integer) % seeFind(string,string,integer,integer,integer,integer,integer,integer,integer,integer) del(string,string,integer,integer,integer,integer,integer) % seePoisk(integer,integer,integer,integer,integer,integer,integer) clauses rpt. rpt:-!,rpt. saves(1):- save("1.txt",db1),clearb. saves(0):- save("1.txt",db1),clearb,consult("1.txt",db1). clearb:-retract(motheboard(_,_,_,_,_,_,_,_)),fail;true. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% key_menu1(0,Y) :- inkey(Key), key_menu1(Key,Y). key_menu1(72,Y) :- field_attr(Y,0,16,75), Y>0,!, Z=Y-1, cursor(Z,0) ; cursor(4,0). key_menu1(80,Y) :- field_attr(Y,0,16,75), Y<4,!, Z=Y+1, cursor(Z,0) ; cursor(0,0). key_menu1(13,Y) :-go1(Y). %----------------------------------------------------- key_menu2(0,Y) :- inkey(Key), key_menu2(Key,Y). key_menu2(72,Y) :- field_attr(Y,0,23,75), Y>0,!, Z=Y-1, cursor(Z,0) ; cursor(2,0). key_menu2(80,Y) :- field_attr(Y,0,23,75), Y<2,!, Z=Y+1, cursor(Z,0) ; cursor(0,0). key_menu2(13,Y) :-removewindow,go2(Y). %----------------------------------------------------- key_menu41(0,Y,A,B,C,D,E,F) :- inkey(Key), key_menu41(Key,Y,A,B,C,D,E,F). key_menu41(72,Y,A,B,C,D,E,F) :- field_attr(Y,0,23,75), Y>0,!, Z=Y-1, cursor(Z,0) ; cursor(2,0). key_menu41(80,Y,A,B,C,D,E,F) :- field_attr(Y,0,23,75), Y<2,!, Z=Y+1, cursor(Z,0) ; cursor(0,0). key_menu41(13,Y,A,B,C,D,E,F) :-removewindow, go8(A,B,C,D,E,F,Y). %----------------------------------------------------- key_menu42(0,Y,A,B,C,D,E,F,G) :- inkey(Key), key_menu42(Key,Y,A,B,C,D,E,F,G). key_menu42(72,Y,A,B,C,D,E,F,G) :- field_attr(Y,0,23,75), Y>0,!, Z=Y-1, cursor(Z,0) ; cursor(2,0). key_menu42(80,Y,A,B,C,D,E,F,G) :- field_attr(Y,0,23,75), Y<2,!, Z=Y+1, cursor(Z,0) ; cursor(0,0). key_menu42(13,Y,A,B,C,D,E,F,G) :-removewindow, go999(A,B,C,D,E,F,G,Y). %----------------------------------------------------- key_menu10(0,Y):-inkey(Key), key_menu10(Key,Y). key_menu10(72,Y):-field_attr(Y,0,23,75), Y>0,!, Z=Y-1, cursor(Z,0) ; cursor(2,0). key_menu10(80,Y):-field_attr(Y,0,23,75), Y<2,!, Z=Y+1, cursor(Z,0) ; cursor(0,0). key_menu10(13,Y):-removewindow, find1(Y). %----------------------------------------------------- key_menu11(0,Y,COM):-inkey(Key), key_menu11(Key,Y,COM). key_menu11(72,Y,COM):-field_attr(Y,0,23,75), Y>0,!, Z=Y-1, cursor(Z,0) ; cursor(4,0). key_menu11(80,Y,COM):-field_attr(Y,0,23,75), Y<4,!, Z=Y+1, cursor(Z,0) ; cursor(0,0). key_menu11(13,Y,COM):-removewindow, find2(Y,COM). %----------------------------------------------------- key_menu12(0,Y,COM,CHIP):-inkey(Key), key_menu12(Key,Y,COM,CHIP). key_menu12(72,Y,COM,CHIP):-field_attr(Y,0,23,75), Y>0,!, Z=Y-1, cursor(Z,0) ; cursor(4,0). key_menu12(80,Y,COM,CHIP):-field_attr(Y,0,23,75), Y<4,!, Z=Y+1, cursor(Z,0) ; cursor(0,0). key_menu12(13,Y,COM,CHIP):-removewindow, find3(Y,COM,CHIP). %----------------------------------------------------- key_menu13(0,Y,COM,CHIP,PC):-inkey(Key), key_menu13(Key,Y,COM,CHIP,PC). key_menu13(72,Y,COM,CHIP,PC):-field_attr(Y,0,23,75), Y>0,!, Z=Y-1, cursor(Z,0) ; cursor(6,0). key_menu13(80,Y,COM,CHIP,PC):-field_attr(Y,0,23,75), Y<6,!, Z=Y+1, cursor(Z,0) ; cursor(0,0). key_menu13(13,Y,COM,CHIP,PC):-removewindow, find4(Y,COM,CHIP,PC). %----------------------------------------------------- key_menu14(0,Y,COM,CHIP,PC,SAT):-inkey(Key), key_menu14(Key,Y,COM,CHIP,PC,SAT). key_menu14(72,Y,COM,CHIP,PC,SAT):-field_attr(Y,0,23,75), Y>0,!, Z=Y-1, cursor(Z,0) ; cursor(5,0). key_menu14(80,Y,COM,CHIP,PC,SAT):-field_attr(Y,0,23,75), Y<5,!, Z=Y+1, cursor(Z,0) ; cursor(0,0). key_menu14(13,Y,COM,CHIP,PC,SAT):-removewindow, find5(Y,COM,CHIP,PC,SAT). %----------------------------------------------------- key_menu15(0,Y,COM,CHIP,PC,SAT,US):-inkey(Key), key_menu15(Key,Y,COM,CHIP,PC,SAT,US). key_menu15(72,Y,COM,CHIP,PC,SAT,US):-field_attr(Y,0,23,75), Y>0,!, Z=Y-1, cursor(Z,0) ; cursor(6,0). key_menu15(80,Y,COM,CHIP,PC,SAT,US):-field_attr(Y,0,23,75), Y<6,!, Z=Y+1, cursor(Z,0) ; cursor(0,0). key_menu15(13,Y,COM,CHIP,PC,SAT,US):-removewindow, find6(Y,COM,CHIP,PC,SAT,US). %----------------------------------------------------- key_menu16(0,Y,COM,CHIP,PC,SAT,US,DD2):-inkey(Key), key_menu16(Key,Y,COM,CHIP,PC,SAT,US,DD2). key_menu16(72,Y,COM,CHIP,PC,SAT,US,DD2):-field_attr(Y,0,23,75), Y>0,!, Z=Y-1, cursor(Z,0) ; cursor(6,0). key_menu16(80,Y,COM,CHIP,PC,SAT,US,DD2):-field_attr(Y,0,23,75), Y<6,!, Z=Y+1, cursor(Z,0) ; cursor(0,0). key_menu16(13,Y,COM,CHIP,PC,SAT,US,DD2):-removewindow, find7(Y,COM,CHIP,PC,SAT,US,DD2). %----------------------------------------------------- key_menu17(0,Y,COM,CHIP,PC,SAT,US,DD2,DD3):-inkey(Key), key_menu17(Key,Y,COM,CHIP,PC,SAT,US,DD2,DD3). key_menu17(72,Y,COM,CHIP,PC,SAT,US,DD2,DD3):-field_attr(Y,0,23,75), Y>0,!, Z=Y-1, cursor(Z,0) ; cursor(4,0). key_menu17(80,Y,COM,CHIP,PC,SAT,US,DD2,DD3):-field_attr(Y,0,23,75), Y<4,!, Z=Y+1, cursor(Z,0) ; cursor(0,0). key_menu17(13,Y,COM,CHIP,PC,SAT,US,DD2,DD3):-removewindow, find8(Y,COM,CHIP,PC,SAT,US,DD2,DD3). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% go1(0):-cursorform(2,2),rpt,makewindow(2,75,75,"Company",0,5,17,25), write("ASRock"),nl, write("ASUS"),nl, write("Gigabyte"), cursor(0,0), rpt, cursor(Y,_), field_attr(Y,0,23,112), inkey(Key),key_menu2(Key,Y), fail. go1(1):-makewindow(10,75,75,"Delete from base",0,5,20,30), write("Vvedite Company: "), readln(A),nl, write("Vvedite Socket: "), readln(B),nl, write("Vvedite Pci_e: "), readint(C),nl, write("Vvedite Sata: "), readint(D),nl, write("Vvedite Usb: "), readint(E),nl, write("Vvedite DDR-2: "), readint(F),nl, write("Vvedite DDR-3: "), readint(G),nl, removewindow, del(A,B,C,D,E,F,G). go1(2):-makewindow(6,75,75,"Company",0,5,17,25), beeP, write("ASRock"),nl, write("ASUS"),nl, write("Gigabyte"), cursor(0,0), rpt, cursor(Y,_), field_attr(Y,0,23,112), inkey(Key),key_menu10(Key,Y), fail. go1(3):-see(). go1(4):-saves(1),exit. %----------------------------------------------------- go2(A):-makewindow(3,75,75,"Kolichestvo Pci-E",0,5,17,25), write("Pci-e: "),readint(X),removewindow, go3(A,X). %----------------------------------------------------- go3(A,B):-makewindow(4,75,75,"Kolichestvo Sata",0,5,17,25), write("Sata: "),readint(X),removewindow, go4(A,B,X). %----------------------------------------------------- go4(A,B,C):-makewindow(5,75,75,"Kolichestvo Usb",0,5,17,25), write("Usb: "),readint(X),removewindow, go5(A,B,C,X). %----------------------------------------------------- go5(A,B,C,D):-makewindow(6,75,75,"Kolichestvo DDR-2",0,5,17,25), write("DDR-2: "),readint(X),removewindow, go6(A,B,C,D,X). %----------------------------------------------------- go6(A,B,C,D,E):-makewindow(7,75,75,"Kolichestvo DDR-3",0,5,17,25), write("DDR-3: "),readint(X),removewindow, go7(A,B,C,D,E,X). %----------------------------------------------------- go7(A,B,C,D,E,F):-makewindow(8,75,75,"Company",0,5,17,25), write("ASRock"),nl, write("ASUS"),nl, write("Gigabyte"),nl, cursor(0,0), rpt, cursor(Y,_), field_attr(Y,0,23,112), inkey(Key),key_menu41(Key,Y,A,B,C,D,E,F), fail. %----------------------------------------------------- go8(A,B,C,D,E,F,G):-makewindow(9,75,75,"Socket",0,5,17,25), write("AM3"),nl, write("AM2"),nl, write("775"),nl, cursor(0,0), rpt, cursor(Y,_), field_attr(Y,0,23,112), inkey(Key),key_menu42(Key,Y,A,B,C,D,E,F,G), fail. %----------------------------------------------------- go999(A,B,C,D,E,F,G,Y):- Y=0,G=0,assert(motheboard("ASRock","AM3",A,B,C,D,E,F)),saves(0),menu; Y=0,G=1,assert(motheboard("ASUS","AM3",A,B,C,D,E,F)),saves(0),menu; Y=0,G=2,assert(motheboard("Gigabyte","AM3",A,B,C,D,E,F)),saves(0),menu; Y=1,G=0,assert(motheboard("ASRock","AM2",A,B,C,D,E,F)),saves(0),menu; Y=1,G=1,assert(motheboard("ASUS","AM2",A,B,C,D,E,F)),saves(0),menu; Y=1,G=2,assert(motheboard("Gigabyte","AM2",A,B,C,D,E,F)),saves(0),menu; Y=2,G=0,assert(motheboard("ASRock","775",A,B,C,D,E,F)),saves(0),menu; Y=2,G=1,assert(motheboard("ASUS","775",A,B,C,D,E,F)),saves(0),menu; Y=2,G=2,assert(motheboard("Gigabyte","775",A,B,C,D,E,F)),saves(0),menu. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find1(0):-COM="ASRock",find_menu1(COM). find1(1):-COM="ASUS",find_menu1(COM). find1(2):-COM="Gigabyte",find_menu1(COM). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find2(0,COM):-CHIP="AM3",find_menu2(COM,CHIP). find2(1,COM):-CHIP="AM2",find_menu2(COM,CHIP). find2(2,COM):-CHIP="775",find_menu2(COM,CHIP). find2(3,COM):-go1(2). find2(4,COM):-seeFind1(COM). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find3(0,COM,CHIP):-PC=0,find_menu3(COM,CHIP,PC). find3(1,COM,CHIP):-PC=1,find_menu3(COM,CHIP,PC). find3(2,COM,CHIP):-PC=2,find_menu3(COM,CHIP,PC). find3(3,COM,CHIP):-find_menu1(COM). find3(4,COM,CHIP):-seeFind2(COM,CHIP). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find4(0,COM,CHIP,PC):-SAT=0,find_menu4(COM,CHIP,PC,SAT). find4(1,COM,CHIP,PC):-SAT=1,find_menu4(COM,CHIP,PC,SAT). find4(2,COM,CHIP,PC):-SAT=2,find_menu4(COM,CHIP,PC,SAT). find4(3,COM,CHIP,PC):-SAT=3,find_menu4(COM,CHIP,PC,SAT). find4(4,COM,CHIP,PC):-SAT=4,find_menu4(COM,CHIP,PC,SAT). find4(5,COM,CHIP,PC):-find_menu2(COM,CHIP). find4(6,COM,CHIP,PC):-seeFind3(COM,CHIP,PC). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find5(0,COM,CHIP,PC,SAT):-US=0,find_menu5(COM,CHIP,PC,SAT,US). find5(1,COM,CHIP,PC,SAT):-US=1,find_menu5(COM,CHIP,PC,SAT,US). find5(2,COM,CHIP,PC,SAT):-US=2,find_menu5(COM,CHIP,PC,SAT,US). find5(3,COM,CHIP,PC,SAT):-US=3,find_menu5(COM,CHIP,PC,SAT,US). find5(4,COM,CHIP,PC,SAT):-find_menu3(COM,CHIP,PC). find5(5,COM,CHIP,PC,SAT):-seeFind4(COM,CHIP,PC,SAT). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find6(0,COM,CHIP,PC,SAT,US):-DD2=0,find_menu6(COM,CHIP,PC,SAT,US,DD2). find6(1,COM,CHIP,PC,SAT,US):-DD2=1,find_menu6(COM,CHIP,PC,SAT,US,DD2). find6(2,COM,CHIP,PC,SAT,US):-DD2=2,find_menu6(COM,CHIP,PC,SAT,US,DD2). find6(3,COM,CHIP,PC,SAT,US):-DD2=3,find_menu6(COM,CHIP,PC,SAT,US,DD2). find6(4,COM,CHIP,PC,SAT,US):-DD2=4,find_menu6(COM,CHIP,PC,SAT,US,DD2). find6(5,COM,CHIP,PC,SAT,US):-find_menu4(COM,CHIP,PC,SAT). find6(6,COM,CHIP,PC,SAT,US):-seeFind5(COM,CHIP,PC,SAT,US). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find7(0,COM,CHIP,PC,SAT,US,DD2):-DD3=0,find_menu7(COM,CHIP,PC,SAT,US,DD2,DD3). find7(1,COM,CHIP,PC,SAT,US,DD2):-DD3=1,find_menu7(COM,CHIP,PC,SAT,US,DD2,DD3). find7(2,COM,CHIP,PC,SAT,US,DD2):-DD3=2,find_menu7(COM,CHIP,PC,SAT,US,DD2,DD3). find7(3,COM,CHIP,PC,SAT,US,DD2):-DD3=3,find_menu7(COM,CHIP,PC,SAT,US,DD2,DD3). find7(4,COM,CHIP,PC,SAT,US,DD2):-DD3=4,find_menu7(COM,CHIP,PC,SAT,US,DD2,DD3). find7(5,COM,CHIP,PC,SAT,US,DD2):-find_menu5(COM,CHIP,PC,SAT,US). find7(6,COM,CHIP,PC,SAT,US,DD2):-seeFind6(COM,CHIP,PC,SAT,US,DD2). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find8(0,COM,CHIP,PC,SAT,US,DD2,DD3):-M1=1000,M2=1500,find_menu8(COM,CHIP,PC,SAT,US,DD2,DD3,M1,M2). find8(1,COM,CHIP,PC,SAT,US,DD2,DD3):-M1=1500,M2=2000,find_menu8(COM,CHIP,PC,SAT,US,DD2,DD3,M1,M2). find8(2,COM,CHIP,PC,SAT,US,DD2,DD3):-M1=2000,M2=2500,find_menu8(COM,CHIP,PC,SAT,US,DD2,DD3,M1,M2). find8(3,COM,CHIP,PC,SAT,US,DD2,DD3):-M1=2500,M2=3000,find_menu8(COM,CHIP,PC,SAT,US,DD2,DD3,M1,M2). find8(4,COM,CHIP,PC,SAT,US,DD2,DD3):-find_menu6(COM,CHIP,PC,SAT,US,DD2). find8(5,COM,CHIP,PC,SAT,US,DD2,DD3):-seeFind7(COM,CHIP,PC,SAT,US,DD2,DD3). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seeFind1(COM):-makewindow(20,75,75,"Current",0,10,25,60), write("Company |Socket|Pcie|Sata|Usb|Ddr2|Ddr3|Price\n"), write("--------------------------------------------\n"), motheboard(COM,B,C,D,E,F,G,H), writef("%9|%6|%4|%4|%3|%4|%4|%5",COM,B,C,D,E,F,G,H),nl,fail;true, readln(HHH),removewindow,find_menu1(COM). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seeFind2(COM,CHIP):-makewindow(21,75,75,"Current",0,10,25,60), write("Company |Socket|Pcie|Sata|Usb|Ddr2|Ddr3|Price\n"), write("--------------------------------------------\n"), motheboard(COM,CHIP,C,D,E,F,G,H), writef("%9|%6|%4|%4|%3|%4|%4|%5",COM,CHIP,C,D,E,F,G,H),nl,fail;true, readln(HHH),removewindow,find_menu2(COM,CHIP). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seeFind3(COM,CHIP,PC):-makewindow(21,75,75,"Current",0,10,25,60), write("Company |Socket|Pcie|Sata|Usb|Ddr2|Ddr3|Price\n"), write("--------------------------------------------\n"), motheboard(COM,CHIP,PC,D,E,F,G,H), writef("%9|%6|%4|%4|%3|%4|%4|%5",COM,CHIP,PC,D,E,F,G,H),nl,fail;true, readln(HHH),removewindow,find_menu3(COM,CHIP,PC). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seeFind4(COM,CHIP,PC,SAT):-makewindow(10,75,75,"Current",0,10,25,60), write("Company |Socket|Pcie|Sata|Usb|Ddr2|Ddr3|Price\n"), write("--------------------------------------------\n"), motheboard(COM,CHIP,PC,SAT,E,F,G,H), writef("%9|%6|%4|%4|%3|%4|%4|%5",COM,CHIP,PC,SAT,E,F,G,H),nl,fail;true, readln(HHH),removewindow,find_menu4(COM,CHIP,PC,SAT). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seeFind5(COM,CHIP,PC,SAT,US):-makewindow(10,75,75,"Current",0,10,25,60), write("Company |Socket|Pcie|Sata|Usb|Ddr2|Ddr3|Price\n"), write("--------------------------------------------\n"), motheboard(COM,CHIP,PC,SAT,US,F,G,H), writef("%9|%6|%4|%4|%3|%4|%4|%5",COM,CHIP,PC,SAT,US,F,G,H),nl,fail;true, readln(HHH),removewindow,find_menu5(COM,CHIP,PC,SAT,US). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seeFind6(COM,CHIP,PC,SAT,US,DD2):-makewindow(10,75,75,"Current",0,10,25,60), write("Company |Socket|Pcie|Sata|Usb|Ddr2|Ddr3|Price\n"), write("--------------------------------------------\n"), motheboard(COM,CHIP,PC,SAT,US,DD2,G,H), writef("%9|%6|%4|%4|%3|%4|%4|%5",COM,CHIP,PC,SAT,US,DD2,G,H),nl,fail;true, readln(HHH),removewindow,find_menu6(COM,CHIP,PC,SAT,US,DD2). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seeFind7(COM,CHIP,PC,SAT,US,DD2,DD3):-makewindow(10,75,75,"Current",0,10,25,60), write("Company |Socket|Pcie|Sata|Usb|Ddr2|Ddr3|Price\n"), write("--------------------------------------------\n"), motheboard(COM,CHIP,PC,SAT,US,DD2,DD3,H), writef("%9|%6|%4|%4|%3|%4|%4|%5",COM,CHIP,PC,SAT,US,DD2,DD3,H),nl,fail;true, readln(HHH),removewindow,find_menu7(COM,CHIP,PC,SAT,US,DD2,DD3). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find_menu1(COM):-makewindow(6,75,75,"Socket",0,5,17,25), write("AM3"),nl, write("AM2"),nl, write("775"),nl, write("Back"),nl, write("Pred prosmotr"), cursor(0,0), rpt, cursor(Y,_), field_attr(Y,0,23,112), inkey(Key),key_menu11(Key,Y,COM), fail. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find_menu2(COM,CHIP):-makewindow(6,75,75,"PCI-E",0,5,17,25), write("0"),nl, write("1"),nl, write("2"),nl, write("Back"),nl, write("Pred prosmotr"), cursor(0,0), rpt, cursor(Y,_), field_attr(Y,0,23,112), inkey(Key),key_menu12(Key,Y,COM,CHIP), fail. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find_menu3(COM,CHIP,PC):-makewindow(6,75,75,"SATA",0,5,17,25), write("0"),nl, write("1"),nl, write("2"),nl, write("3"),nl, write("4"),nl, write("Back"),nl, write("Pred prosmotr"), cursor(0,0), rpt, cursor(Y,_), field_attr(Y,0,23,112), inkey(Key),key_menu13(Key,Y,COM,CHIP,PC), fail. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find_menu4(COM,CHIP,PC,SAT):-makewindow(6,75,75,"USB",0,5,17,25), write("0"),nl, write("1"),nl, write("2"),nl, write("3"),nl, write("Back"),nl, write("Pred prosmotr"), cursor(0,0), rpt, cursor(Y,_), field_attr(Y,0,23,112), inkey(Key),key_menu14(Key,Y,COM,CHIP,PC,SAT), fail. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find_menu5(COM,CHIP,PC,SAT,US):-makewindow(6,75,75,"DDR-2",0,5,17,25), write("0"),nl, write("1"),nl, write("2"),nl, write("3"),nl, write("4"),nl, write("Back"),nl, write("Pred prosmotr"), cursor(0,0), rpt, cursor(Y,_), field_attr(Y,0,23,112), inkey(Key),key_menu15(Key,Y,COM,CHIP,PC,SAT,US), fail. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find_menu6(COM,CHIP,PC,SAT,US,DD2):-makewindow(6,75,75,"DDR-3",0,5,17,25), write("0"),nl, write("1"),nl, write("2"),nl, write("3"),nl, write("4"),nl, write("Back"),nl, write("Pred prosmotr"), cursor(0,0), rpt, cursor(Y,_), field_attr(Y,0,23,112), inkey(Key),key_menu16(Key,Y,COM,CHIP,PC,SAT,US,DD2), fail. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find_menu7(COM,CHIP,PC,SAT,US,DD2,DD3):-makewindow(6,75,75,"Price",0,5,17,25), write("1k..1,5k"),nl, write("1,5k..2k"),nl, write("2k..2,5k"),nl, write("2,5k..3k"),nl, write("Back"), cursor(0,0), rpt, cursor(Y,_), field_attr(Y,0,23,112), inkey(Key),key_menu17(Key,Y,COM,CHIP,PC,SAT,US,DD2,DD3), fail. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% find_menu8(COM,CHIP,PC,SAT,US,DD2,DD3,M1,M2):-makewindow(6,75,75,"Price",0,5,25,60), write("Company |Socket|Pcie|Sata|Usb|Ddr2|Ddr3|Price\n"), write("--------------------------------------------\n"), motheboard(COM,CHIP,PC,SAT,US,DD2,DD3,H), H>=M1,H<=M2, writef("%9|%6|%4|%4|%3|%4|%4|%5",COM,CHIP,PC,SAT,US,DD2,DD3,H),nl,fail;true, readln(HHH),removewindow,menu. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% menu :- makewindow(1,75,75,"Motheboards",0,0,8,18), clearwindow, write("Add to base"),nl, write("Del from dase"),nl, write("Find in base"),nl, write("See base"),nl, write("Exit"),nl, cursor(0,0), rpt, cursor(Y,_), field_attr(Y,0,16,112), inkey(Key),key_menu1(Key,Y), fail. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% see():-makewindow(10,75,75,"All base",0,10,25,60), write("Company |Socket|Pcie|Sata|Usb|Ddr2|Ddr3|Price\n"), write("--------------------------------------------\n"), motheboard(A,B,C,D,E,F,G,H), writef("%9|%6|%4|%4|%3|%4|%4|%5",A,B,C,D,E,F,G,H),nl,fail;true, readln(HHH),removewindow,menu. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% del(A,B,C,D,E,F,G):-retract(motheboard(A,B,C,D,E,F,G,_)),fail;true,saves(0). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% goal consult("1.txt",db1), menu.