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

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

N1=K,

Fam=F,Nam=N,Otch=O,

Pol=P,List=L,

Ekz1=E1,Ekz2=E2,Ekz3=E3,

assertz(абитурьент(N1,фио(Fam,Nam,Otch),Pol,List,оцен(Ekz1,Ekz2,Ekz3))),

ask,!,

mesage,

removewindow.

correct(_).

/* Процедура просмотра базы, стр.11 */

view(1):-

makewindow(16,31,26,"Просмотp основной базы",0,0,25,80),

nl,nl,

write("╔═══════════════════════════════════════════════════════╗"),nl,

write("║ СПИСОК АБИТУРЬЕНТОВ ║"),nl,

write("╠════╦═════════════════════╦═══╦═════╦══════════════════╣"),nl,

write("║ ║ ФИО ║ ║ No ║оценки за экзамены║"),nl,

write("║ No ╠═══════╦════╦════════╣Пол║ экз.╠═════╦══════╦═════╣"),nl,

write("║ ║Фамилия║Имя ║Отчество║ ║листа║1 экз║ 2 экз║3 экз║"),nl,

write("╠════╬═══════╬════╬════════╬═══╬═════╬═════╬══════╬═════╣"),nl,

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

cursor(Z,_),

cursor(Z,2),write(N),

cursor(Z,5),write("║",Fam),

cursor(Z,18),write("║",Nam),

cursor(Z,30),write("║",Otch),

cursor(Z,43),write("║ ",Pol),

cursor(Z,49),write("║ ",List),