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

/*Выход из программы*/

ExitProg:-

UnLoadBD,

exit(0).

/*Главная функция Main*/

Main:-

Zastavka,

CreateTitle,

LoadBD("valekbd.dat"),

Start,

ExitProg.

Результат работы программы:

Загрузка БД:

Добавление:

Анализ:

Сохранение БД: