Функция редактирования базы данных - Prolog
Формулировка задачи:
Добрый день. Имеется программа, которая работает с базой данных(просмотр всех записей, редактирование и добавление новой записи). Сделал все, кроме редактирования записи. Помогите пожалуйста, в prolog новичек.
Листинг программы
- domains
- s=string
- i=integer
- predicates
- menu
- m(char)
- database
- ball(s,i)
- clauses
- menu:-
- clearwindow,
- write("1 - Izmenit ocenky "),nl,
- write("2 - Dobavit zapis "),nl,
- write("3 - prosmotr bazi "),nl,
- write("0 - Vikhod "),nl,
- readchar(C),
- m(C).
- m('1'):-
- m('2'):-
- clearwindow,
- write("Vvedite familiy"),nl,
- readln(N),
- write("Vvedite ocenky"),nl,
- readint(B),
- assert(ball(N,B)),
- readchar(_),
- menu.
- m('3'):-
- clearwindow,
- consult("student.ddb"),
- ball(N, B),
- write("Ocenka: ",N,B),nl,fail,
- readchar(_),
- menu.
- m('0'):-
- save("student.ddb").
- m(_):-
- menu.
Решение задачи: «Функция редактирования базы данных»
textual
Листинг программы
- clearwindow,
- write("Vvedite familiy"),nl,
- readln(N),
- retract(ball(N, B)),
- write("Ocenka: ",N,B),nl,
- write("Vvedite ocenky"),nl,
- readint(B),
- assert(ball(N,B)),
- readchar(_),
- menu.
Объяснение кода листинга программы
- Очистка окна (clearwindow).
- Вывод сообщения
Введите фамилию
. - Чтение фамилии (readln(N)).
- Удаление утверждения о балле (retract(ball(N, B))).
- Вывод сообщения
Оценка: N B
. - Ввод оценки (readint(B)).
- Создание нового утверждения о балле (assert(ball(N,B))).
- Чтение символа (readchar(_)).
- Переход в главное меню (menu).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д