Читать курсовая по Отсутствует: "Разработка экспертной системы "Подбор сотовых телефонов"" Страница 6

(Назад) (Cкачать работу)

%--------------------------------------------_crit(History,RNO,BNO,TEXT):-Write("Вопрос: ",TEXT,"?"),(" (1-Да;2-Нет) "),(myfile,"List.txt"),(myfile),("Вопрос: ",TEXT,"?"),(" (1-Да;2-Нет) "),(myfile),(Resp),_crit(History,RNO,TEXT,BNO,Resp).(History,RNO,BNO,TEXT,P,P1):-

Write("Вопрос: ",TEXT,"?"),(" (1-да;2-нет;3-не уверен.) "),(myfile,"List.txt"),(myfile),

Write("Вопрос: ",TEXT,"?"),(" (1-да;2-нет;3-не уверен.) "),(myfile),(Resp),(History,RNO,TEXT,BNO,Resp,P,P1).

%_______________________________________________crit(_,_,_,_,0):-exit._crit(_,_,_,BNO,1):-!,Asserta(yes(BNO)),Zapis_No(BNO),(""),nl,(myfile,"List.txt"),(myfile),(""),nl,(myfile)._crit(_,_,_,BNO,2):-!,Asserta(no(BNO)),(""),nl,(myfile,"List.txt"),(myfile),(""),nl,(myfile),. _crit(History,RNO,Text,BNO,_):-Vopros_crit(History,RNO,BNO,TEXT),!. (_,_,_,_,0,P,P):-exit.(_,_,_,BNO,1,P,P):-

!,Asserta(yes(BNO)),Zapis_No(BNO),(""),nl,(myfile,"List.txt"),(myfile),(""),nl,(myfile).(_,_,_,BNO,2,P,P):-

!,Asserta(no(BNO)),(""),nl,(myfile,"List.txt"),(myfile),(""),nl,(myfile),.(_,_,_,BNO,3,P,P1):-

!,Neuveren_1(BNO),_Kolva_Cond(BNO,I),(""),nl,=P-P/I,(myfile,"List.txt"),(myfile),(""),nl,(myfile).(History,RNO,Text,BNO,_,P,P1):-Vopros(History,RNO,BNO,TEXT,P,P1),!.

%--------------------------------------------_Yes:-otv(2),asserta(otv(1)),Retract(otv(2)),!. _Yes:-!.

%--------------------------------------------_Kolva_Cond(B,K):-Cond(B,_,T),findall(X,cond(X,_,T),L),(L,0,I),K=I.

%--------------------------------------------_1(Bn):-Cond(BN,_,T),Zapis_number(T).

%--------------------------------------------_number(T):-Cond(B,_,T),not(asserta(neuveren(B)))._number(_).

%--------------------------------------------_No(Bn):-Cond(BN,_,T),Zapis_Yes(T,Bn).

%--------------------------------------------_Yes(T,Bn):-Cond(B,_,T),BnB,not(asserta(no(B)))._Yes(_,_).

%--------------------------------------------([],I,I):-!.([_|T],J,I):-J1=J+1,Kolvo(T,J1,I).

%-------------------------------------------- :-retract(yes(_)),fail.:-retract(no(_)),fail.:-retract(neuveren(_)),fail.:-retract(otv(_)),fail.:-retract(veroyat(_)),fail.:-retract(tel(_)),fail.._Cond(X,[X|_]) :- !._Cond(X,[_|L]) :-_Cond(X,L), !._Rule([H|C],R) :-

!,_Cond(H,R),_Rule(C,R), !._Rule(_,_)._y([H|L],[H|R]) :-(H),_y(L,R), !._y([_|L],R) :-_y(L,R), !.

Otvet_y(_,[]). _Param(R) :-(X,Crit(X),L),_y(L,R)._Other_Param:-Pol_Param(C),(_,_,T,R,_),_Rule(C,R),,(T),(myfile,"List.txt"),(myfile),(T),nl,(myfile),(tel(T)),fail._Other_Param:-not(tel(_)),!._Other_Param:-Vivod_Yes..pro=15000"ex.pro"=integer= other; esc; up ; down; enter; fkey(integer); char(integer) _menu_cur(integer)(KEY,integer,integer)(integer,integer)(integer)

ReadKey(KEY)(KEY,char,integer)(KEY,integer)(integer)

%--------------------------------------------------------------:-(1,7,32,"Экспертная система",0,0,25,80),

My_menu,

clear,.

%--------------------------------------------------------------_menu:-(4,30,47," КОНСУЛЬТАНТ ПО СОТОВЫМ ТЕЛЕФОНАМ ",9,21,9,38),nl,

write(" 1 Консультация"),nl,

write(" 2 Редактирование (Vopros.pro)"),nl,(" 3 Редактирование (Baza.pro)"),nl,

write(" 4 Помощь"),nl,(" 5 Выход"),(1).

%--------------------------------------------------------------(Pos):-_cur(Pos),(KEY),(KEY,Pos,Pos_a),(Pos_a).

%--------------------------------------------------------------_cur(Pos):-

Pos=1,_attr(1,1,33,112),(1,1); Pos0,!.

%--------------------------------------------------------------(A,B):- A>4,B=0,!;A

Похожие работы