Функция редактирования базы данных - Prolog

Узнай цену своей работы

Формулировка задачи:

Добрый день. Имеется программа, которая работает с базой данных(просмотр всех записей, редактирование и добавление новой записи). Сделал все, кроме редактирования записи. Помогите пожалуйста, в prolog новичек.
Листинг программы
  1. domains
  2. s=string
  3. i=integer
  4. predicates
  5. menu
  6. m(char)
  7. database
  8. ball(s,i)
  9. clauses
  10. menu:-
  11. clearwindow,
  12. write("1 - Izmenit ocenky "),nl,
  13. write("2 - Dobavit zapis "),nl,
  14. write("3 - prosmotr bazi "),nl,
  15. write("0 - Vikhod "),nl,
  16. readchar(C),
  17. m(C).
  18. m('1'):-
  19. m('2'):-
  20. clearwindow,
  21. write("Vvedite familiy"),nl,
  22. readln(N),
  23. write("Vvedite ocenky"),nl,
  24. readint(B),
  25. assert(ball(N,B)),
  26. readchar(_),
  27. menu.
  28. m('3'):-
  29. clearwindow,
  30. consult("student.ddb"),
  31. ball(N, B),
  32. write("Ocenka: ",N,B),nl,fail,
  33. readchar(_),
  34. menu.
  35. m('0'):-
  36. save("student.ddb").
  37. m(_):-
  38. menu.

Решение задачи: «Функция редактирования базы данных»

textual
Листинг программы
  1.     clearwindow,
  2.     write("Vvedite familiy"),nl,
  3.     readln(N),
  4.     retract(ball(N, B)),
  5.     write("Ocenka: ",N,B),nl,
  6.     write("Vvedite ocenky"),nl,
  7.     readint(B),
  8.     assert(ball(N,B)),
  9.     readchar(_),
  10.     menu.

Объяснение кода листинга программы

  1. Очистка окна (clearwindow).
  2. Вывод сообщения Введите фамилию.
  3. Чтение фамилии (readln(N)).
  4. Удаление утверждения о балле (retract(ball(N, B))).
  5. Вывод сообщения Оценка: N B.
  6. Ввод оценки (readint(B)).
  7. Создание нового утверждения о балле (assert(ball(N,B))).
  8. Чтение символа (readchar(_)).
  9. Переход в главное меню (menu).

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы