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

attribute(OldAttr),attribute(30),

write("Сигнал: "),attribute(OldAttr),write(Title),nl,

attribute(30),

write("Расшифровка: "),attribute(OldAttr),write(RepText),nl,

readchar(_),

removewindow(23,1).

/*СохранениеБД*/

SaveBD:-

makewindow(10,90,91,"СохранениеБД",5,10,10,60,1,2," "),

write("\n\n Введитеимяфайла:"),

readln(Filename),

save(FileName,FaultBD),

removewindow(31,1).

/*ЗагрузкаБД*/

LoadBDFile:-

makewindow(10,90,91,"",5,10,10,60,1,2," "),

dir("","*.*",FileName),

LoadBD(FileName),

fail.

LoadBDFile:-

removewindow(30,1).

/*Создание меню справки*/

EditBD:-

menu(5,24,90,95,["Добавление сигнала","Типы сигнала","Просмотр сигналов","Просмотр типа сигнала","Удаление сигнала","Удаление типа сигнала","Назад"],"Редактирование базы данных",0,Ch),

EditSelect(Ch).

/*Выборпунктаменю*/

EditSelect(Ch):-

Ch=0;

Ch=7;