Реферат: Базы и банки знаний

write(" 2.Delete a book from database"),nl,

write(" 3.View a book from database "),nl,

write(" 4.Modify a book in database "),nl,

write(" 5.Quit from this program "),nl,

write("***********************************"),nl,

nl,

write("Please enter your choice,1,2,3,4,5: "),

readint(Choice),nl,

Choice>0,Choice<6,

process(Choice),

Choice=5,

!.

/*меню модификации*/

menu_modify:-

repeat,nl,

write("***********************************"),nl,

write(" 1.Modify name "),nl,

write(" 2.Add authors"),nl,

write(" 3.Delete authors"),nl,

write(" 4.Modify izdanie"),nl,

write(" 5.Modify god "),nl,

write(" 6.Return to main menu."),nl,

write("***********************************"),nl,

nl,

write("Please enter your choice,1,2,3,4,5,6: "),

readint(C),nl,

C>0,C<7,

proc(C),

menu.