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

clearwindow,!,

removewindow.

/* Процедура создания новой базы данных, стр.10 */

working(6):-

makewindow(10,43,120,"Создание базы данных BSTUD",6,18,8,40),

sound(5,220),

nl,

retractall(_,студент),

абитурьент(N,фио(Fam,Nam,Otch),Pol,List,оцен(E1,E2,E3)),

N=N1, Fam1=Fam, Nam1=Nam,

Otch1=Otch, List1=List, Sum=E1+E2+E3,

assertz(студент(N1,фио(Fam1,Nam1,Otch1),List,Sum)),

fail.

working(6):-

write(" База BSTUD создана."),

nl,

write(" Не забудьте сохранить ее!"),

nl,nl,

write(" Нажмите на любую клавишу"),

readchar(_),

removewindow,!.

/* Процедура выхода, стр.10 */

working(7):-!.

/* Обработка ошибки пользователя, стр.10 */

working(_):-

makewindow(16,74,79,"ОШИБКА ВВОДА",6,18,8,40),

nl,

write(" Введите число от 0 до 7,"),nl,

write(" соответствующее выбранному пункту"),nl,nl,nl,