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

signalip(NewID,RepID,Title),

write(" ",NewID,"\t|",RepID,"\t|",Title),nl,

fail.

ShowFault(_,_):-

attribute(OldAttr),attribute(95),

write("Просмотр закончен. Нажмите любую клавишу"),readchar(_),

attribute(OldAttr).

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

DeleteFault:-

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

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

signalip(DelID,_,_),!,

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

attribute(OldAttr),attribute(95),

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

attribute(OldAttr),

removewindow(40,1).

/*Добавлениетипасигнала*/

AddRepair:-

makewindow(40,90,95,"Добавлениетипаасигнала",4,5,14,70,1,2,""),

write("ТипасигналавБДхранятсяввиде:\n decodip(Номер_типасигнала, Название, Метод_расшифровки)"),nl,

write("Номер_типа сигнала - Номер записи типа сигнала\n"),

write("Название - краткое описание данных расшифровки\n"),

write("Метод_расшифровки - метод расшифровки данных\n"),

attribute(OldAttr),attribute(95),

write("Новоеописание\n"),

write("Номер_типасигнала:"),readint(NewID),

write("Название:"),readln(NewDescr),

write("Метод_расшифровки:"),readln(NewAdvice),