Реферат: Информационно-справочная система, обеспечивающая работу с базой данных Bit

мент пустой строкой. Если это так, то третьему аргумент присваи-

вается второй. Если же первый аргумент не является пустой стро-

кой, то он присваивается третьему аргументу (в Skip1 происходит

предварительное преобразование строковой переменной в целочислен-

ную).

Данная процедура осуществляет загрузку баз данных из фай-

лов на диске по признакам, зависящим от аргумента процедуры:

Bd_load(1) загружает основную БД из файла, заданного пользовате-

лем, Bd_load(2) - из файла bit.dat, Bd_load(3) - базу BSTUD из

файла, заданного пользователем и BD_load(4) - базу BSTUD из фай-

ла bstud.dat. В данных процедурах проверяется наличие файла на

диске с помощью предиката existfile и загрузка БД в память с по-

мощью предиката consult. В случае отсутствия файла на диске, вы-

дается соответствующее сообщение (процедура Io_error).

Данная процедура осуществляет сохранение баз данных в фай-

лах на диске по признакам, зависящим от аргумента процедуры:

Bd_save(1) сохраняет основную БД в файле, заданном пользователем,

Bd_save(2) - в файле bit.dat, Bd_save(3) - базу BSTUD в файле,

заданном пользователем и BD_save(4) - базу BSTUD в файле

bstud.dat. Сохранение БД осуществляется с помощью встроенного

предиката save. В случае ошибки выдается соответствующее сообще-

ние (процедура Error).

Процедура Ask является вспомагательной к процедуре

Correct(2). Она запрашивает пользователя, желает ли он продол-

жить ввод данных.

Данная процедура выводит предупреждение о необходимости

сохранения вновь введенных данных.

Эти процедуры выводят сообщения об ошибках.

Данная процедура выводит сообщение об успешном выполнении