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

sound(20,494),

sound(30,392),

readchar(_),

removewindow.

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

correct(1):-

makewindow(4,26,48,"Изменение данных",0,0,25,80),

nl,

accept(N),

X=N,

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

clearwindow,nl,

write("Порядковый номер абитурьента : "),write(N),nl,

write("Фамилия : "),write(Fam),nl,

write("Имя : "),write(Nam),nl,

write("Отчество : "),write(Otch),nl,

write("Пол : "),write(Pol),nl,

write("Номер экзаменационного листа : "),write(List),nl,nl,

write("Оценки за экзамены - "),nl,nl,

write("За первый: "),write(E1),write(" "),

write("За второй: "),write(E2),write(" "),

write("За третий: "),write(E3),

nl,nl,nl,

write("Введите фамилию : "),readln(Fam1),

write("Введите имя : "),readln(Nam1),

write("Введите отчество : "),readln(Otch1),

write("Введите пол : "),readln(Pol1),

write("Введите номер экзаменационного листа: "),readln(List1),

write("Введите оценки за экзамены - "),nl,