Курсовая работа: Экспертная система. Анализ передачи телеметрических данных со спутника

assertz(decodip(NewID,NewDescr,NewAdvice),FaultBD),

write("Записьдобавлена"),readchar(_),

removewindow(40,1).

AddRepair:-

removewindow(40,1).

/*Просмотрописаний*/

Showrepairs:-

makewindow(40,90,95,"Просмотрописаний:",1,0,24,80,1,2," "),

ShowRepair(0,0),!,

removewindow(40,1).

ShowRepair(_,_):-

decodip(NewID,Descr,Advice),

write(" ",NewID,"\t|",Descr,"\t|",Advice),nl,fail.

ShowRepair(_,_):-

attribute(OldAttr),attribute(30),

write("Нажмителюбуюклавишу"),readchar(_),

attribute(OldAttr).

/*Удалениетипасигнала*/

DeleteRepair:-

makewindow(40,90,95,"Удалениетипасигнала",4,5,14,70,1,2," "),

write("Введитеномерудаляемоготипасигнала:"),readint(DelID),

decodip(DelID,_,_),!,

retractall(decodip(DelID,_,_),FaultBD),!,

attribute(OldAttr),attribute(30),

write("Записьудалена"),readchar(_),

attribute(OldAttr),

removewindow(40,1).

/*Созданиеокнаошибок*/

ErrorExitProg(Msg):-