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

Ch=3,ShowFaults;

Ch=5,DeleteFault;

Ch=2,AddRepair;

Ch=4,ShowRepairs;

Ch=6,DeleteRepair.

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

AddFault:-

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

write("сигналы в БД хранятся в виде:\n signalip(Номер_сигнала, Номер_описания, Название)"),nl,

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

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

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

attribute(OldAttr),attribute(95),

write("Новыйсигнал\n"),

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

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

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

attribute(OldAttr),

assertz(signalip(NewID,NewRep,NewTitle),FaultBD),

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

removewindow(40,1).

AddFault:-

removewindow(40,1).

/*Вызовпросмотрасигналов*/

ShowFaults:-

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

ShowFault(0,0),!,

removewindow(40,1).

/*Просмотрсигналов*/