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

/*Вывод информации о программе*/

Zastavka:-

makewindow(1,10,31,"",0,0,25,80),

nl,nl,nl,

write(" Курсовая работа: Экспертная система "),nl,nl,

write(" Тема: Анализ передачи телеметрических данных со спутника "),nl,

nl,nl,nl,nl,nl,nl,nl,

write(" Студент: АфанасьевВ.А."),nl,

write(" Руководитель: Пичугин В.Н."),nl,

write(" ГрупаАФТ 61-04"),nl,

write(" АФЧГУ"),nl,

nl,nl,nl,nl,nl,nl,

write(""),nl,nl,

readchar(_),removewindow(1,1).

/*Созданиезаголовка*/

CreateTitle:-

makewindow(1,10,0,"",0,0,25,80),

attribute(113),

write("Анализ передачи телеметрических данных со спутника").

LoadBD(FileName):-

consult(FileName,FaultBD),!,

write(" (База данных загружена- )").

LoadBD(_):-

ErrorExitProg("Ошибка загрузки базы данных").

UnloadBD:-

retractall(_,FaultBD).

/*Вызов главного меню*/

Start:-

menu(5,24,90,95,["Анализ","Загрузка БД", "Сохранение БД", "Редактирование БД", "О программе","Выход"],"Основное меню программы",0,Ch),