Реферат: Базы и банки знаний
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.