Подсчитать число студентов, получивших больше одной двойки - Prolog

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

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

Вывести студентов к отчислению (количество двоек > 1).
Листинг программы 
  1. Domains
  2.  
  3. fam = string
  4. ocinka = integer
  5. N =  integer
  6.  
  7. Predicates
  8.  
  9. student(fam)
  10. res_isp(fam,ocinka)
  11. all_res
  12. count(N)
  13. kick_student
  14. Clauses
  15.  
  16. student("sudorenko").
  17. student("vasulenko").
  18. student("grugorenko").
  19. student("artemenko").
  20. student("olexandrenko").
  21.  
  22. res_isp("sudorenko",5).
  23. res_isp("sudorenko",5).
  24. res_isp("sudorenko",5).
  25. res_isp("sudorenko",5).
  26. res_isp("sudorenko",5).
  27.  
  28. res_isp("vasulenko",4).
  29. res_isp("vasulenko",4).
  30. res_isp("vasulenko",4).
  31. res_isp("vasulenko",4).
  32. res_isp("vasulenko",4).
  33.  
  34. res_isp("grugorenko",3).
  35. res_isp("grugorenko",3).
  36. res_isp("grugorenko",3).
  37. res_isp("grugorenko",3).
  38. res_isp("grugorenko",3).
  39.  
  40. res_isp("artemenko",3).
  41. res_isp("artemenko",4).
  42. res_isp("artemenko",5).
  43. res_isp("artemenko",4).
  44. res_isp("artemenko",3).
  45.  
  46. res_isp("olexandrenko",5).
  47. res_isp("olexandrenko",4).
  48. res_isp("olexandrenko",3).
  49. res_isp("olexandrenko",4).
  50. res_isp("olexandrenko",5).
  51.  
  52. res_isp("vladuslavenko",5).
  53. res_isp("vladuslavenko",2).
  54. res_isp("vladuslavenko",2).
  55. res_isp("vladuslavenko",3).
  56. res_isp("vladuslavenko",4).
  57.  
  58. res_isp("romanenko",2).
  59. res_isp("romanenko",2).
  60. res_isp("romanenko",2).
  61. res_isp("romanenko",3).
  62. res_isp("romanenko",3).
  63.  
  64. all_res :- 
  65. student(A), res_isp(A,W), write ("Student: ",A,"\n","Mark: ",W,"\n"), fail.
  66. count(N) :-
  67. N < 2,
  68. N1 = N + 1,
  69. count(N1).
  70. kick_student :-
  71.  student(A), res_isp(A,2), count(N), write("Student - ",A," - Kicked"),nl,fail.

Решение задачи: «Подсчитать число студентов, получивших больше одной двойки»

textual
Листинг программы 
  1. kick_student :-
  2.     kick_student(X, 2, 1),
  3.     write(X), nl,
  4.     fail.
  5. kick_student.

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

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

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

6   голосов , оценка 3.667 из 5

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

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

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