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

readchar(_),

removewindow,!.

/* Процедура вывода меню корректировки данных, стр.9 */

working(1):-

makewindow(4,26,48,"Коppектировка данных",0,0,25,80),

sound(5,220),

repeat,

nl,

nl,

cursor(9,0),

write(" 1 - Изменение данных"),nl,

write(" 2 - Добавление данных"),nl,

write(" 3 - Выход в главное меню" ),nl,

write(" =>"),

readint(X),

clearwindow,

X>0,X<=3,

correct(X),

clearwindow,

X=3,!,

removewindow.

/* Процедура уничтожения данных, стр.9 */

working(2):-

makewindow(5,48,107,"Уничтожение записей",0,0,25,80),

sound(5,220),

nl,

accept(N),

X=N,

абитурьент(X,фио(Fm,Nm,Ot),Pl,Ls,оцен(E1,E2,E3)),