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

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

write("За третий : "),readln(Ekz3),nl,

X1=X,

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

skip(Fam1,Fam,Fam2),

skip(Nam1,Nam,Nam2),

skip(Otch1,Otch,Otch2),

skip(Pol1,Pol,Pol2),

skip1(List1,List,List2),

skip1(Ekz1,E1,E11),

skip1(Ekz2,E2,E22),

skip1(Ekz3,E3,E33),

assertz(абитурьент(X1,фио(Fam2,Nam2,Otch2),Pol2,List2,оцен(E11,E22,E33))),

!,

mesage,

removewindow.

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

correct(2):-

makewindow(9,26,48,"Ввод новых данных",0,0,25,80),

repeat,

nl,

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

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

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

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

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

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

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

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