Вычисление среднего значения числа студентов - Prolog

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

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

Сам пытался подсчитать среднее значение, но расчёты не удаются.
Листинг программы 
  1. % Copyright
  2.  
  3. implement main
  4.     open core, console
  5.  
  6.  domains
  7.            фамилия=string.
  8.            номергруппы=integer.
  9.            номерзачетки=integer.
  10.            датарождения= string.
  11.            адрес =string.
  12.            язык=string.
  13.            возраст =integer.
  14.            количествостудентов=integer.
  15.            среднееколичествостудентов= integer.
  16.            количествогрупп=integer.
  17.         студент:(номергруппы,номерзачетки,фамилия,датарождения,адрес,язык)nondeterm.
  18.         возраст:(фамилия, возраст)nondeterm.
  19.         изучение_языка:(номергруппы,фамилия,язык)nondeterm.
  20.         сумма:(количествостудентов)determ.
  21.           сумма1:(номергруппы,количествостудентов)determ.
  22.          количество:(количествостудентов)nondeterm.
  23.         группа:(номергруппы) nondeterm.
  24.     class predicates
  25.     информация_0_студенте:(номергруппы,номерзачетки,фамилия,возраст,адрес,язык)nondeterm anyflow.
  26.       студенты_одной_группы:(номергруппы,фамилия)nondeterm anyflow.
  27.       старшеВГруппе:(номергруппы, фамилия,фамилия)nondeterm anyflow.
  28.         студентыизучающиеязыки:(номергруппы,фамилия,язык)nondeterm anyflow.
  29.         список_студентов:(номергруппы)nondeterm anyflow.        количество_студентов_в_группе:(номергруппы,количествостудентов)nondeterm anyflow.
  30.     количество_студентов_всех_групп:() nondeterm anyflow.
  31.     среднее_количество_студентов:(номергруппы,среднееколичествостудентов)nondeterm anyflow.
  32.     clauses
  33.        студент(1,00001,"Кабанов","19","Пожаластина 21","Английский").
  34.         студент(1,00002,"Петров","20","Пожаластина 21","Английский").
  35.         студент(1,00003,"Иванов","19","Пожаластина 21","Английский").
  36.         студент(1,00004,"Сидоров","18","Пожаластина 21","немецкий").
  37.         студент(2,00005,"Кержаков","19","Пожаластина 21","Английский").
  38.         студент(2,00006,"Аршавин","21","Пожаластина 21","немецкий").
  39.         студент(3,00007,"Сычев","22","Пожаластина 21","Английский").
  40.         студент(3,00008,"Дзюба","22","Пожаластина 21","немецкий").
  41.         студент(4,00006,"Дзагоев","21","Пожаластина 21","немецкий").
  42.         студент(4,00007,"Глушаков","22","Пожаластина 21","Английский").
  43.         студент(4,00008,"Ребров","22","Пожаластина 21","немецкий").
  44.           студент(4,00008,"Кутепов","22","Пожаластина 21","немецкий").
  45.           студент(4,00009,"Иванов","22","Пожаластина 21","немецкий").
  46.  
  47.     группа(1).
  48.     группа(2).
  49.     группа(3).
  50.  
  51.    информация_0_студенте(Номергруппы,Номерзачетки,Фамилия,Датарождения,Адрес,Язык).
  52.     clauses
  53.  
  54.     среднее_количество_студентов(Номергруппы,_):-
  55.                                     assert(сумма1(0,0)),
  56.                                     группа(_),
  57.                                     количество_студентов_в_группе(_,Количествостудентов),
  58.                                     retract(сумма1(Номергруппы,Количествостудентов)),
  59.                                     Количествогрупп = Количествогрупп + 1,
  60.                                     Количествостудентов = Количествостудентов+1,
  61.                                     asserta(сумма1(Количествогрупп1,Количествостудентов)),
  62.                                     fail.
  63.  среднее_количество_студентов(Номергруппы,_):-
  64. retract(сумма1(Номергруппы,Количествостудентов)),
  65. Среднееколичествостудентов= Количествогрупп1/Количествостудентов.
  66. среднее_количество_студентов(_,Среднееколичествостудентов).
  67.     количество_студентов_в_группе(Номер_группы,_):-
  68.             assert(сумма(0)),
  69.             студент(Номер_группы,_,_,_,_,_),
  70.             retract(сумма(Количествостудентов)),
  71.             Количествостудентов1 = Количествостудентов + 1,
  72.             asserta(сумма(Количествостудентов1)),
  73.             fail.
  74.     количество_студентов_в_группе(_,Количествостудентов):-
  75.             retract(сумма(Количествостудентов)).
  76.  
  77.     количество_студентов_всех_групп():-
  78.             группа(Номер_группы),
  79.             количество_студентов_в_группе(Номер_группы,Количествостудентов),
  80.             write(Номер_группы,"  кол-во ",Количествостудентов),nl,fail.
  81.  
  82.     студенты_одной_группы(Номер_группы, Фамилия):-
  83.             студент(Номер_группы,_,Фамилия,_,_,_).
  84.     старшеВГруппе( Номер_группы,Фамилия1,Фамилия2):-
  85.             студент(Номер_группы,_,Фамилия1,Возраст1,_,_),
  86.             студент(Номер_группы,_,Фамилия2,Возраст2,_,_),
  87.             Фамилия1 <> Фамилия2,
  88.             Возраст1> Возраст2.
  89.  
  90.             студентыизучающиеязыки(Номер_группы,Фамилия,"Английский"):-
  91.             nl,write("Cтуденты изучающие английский язык  ",":"),nl,
  92.             write("_____________________________________________"),nl,
  93.                  студент(Номер_группы,_,Фамилия,_,_,"Английский"),
  94.             write("_____________________________________________"),nl.
  95.  
  96.             список_студентов(Номер_группы):-
  97.             nl,write("список_студентов группы  ",Номер_группы,":"),nl,
  98.             студент(Номер_группы,_,Фамилия,_,_,_),
  99.             write("_____________________________________________"),nl,
  100.             write("                 ",Фамилия),nl,fail.
  101.  
  102.             clauses
  103.  
  104.             run():-
  105.             console::init(),
  106.             студентыизучающиеязыки(1,Фамилия,"Английский"),
  107.             write(Фамилия),nl,fail.
  108.  
  109.             run() :- console::init(), количество_студентов_всех_групп(),fail..
  110.             run():-console::init(),
  111.             количество_студентов_в_группе(1,Количествостудентов),
  112.             write(Количествостудентов),nl,fail.
  113.      
  114. end implement main
  115.  
  116. goal
  117.     console::runUtf8(main::run).

Решение задачи: «Вычисление среднего значения числа студентов»

textual
Листинг программы 
  1. class predicates
  2.     среднее_количество_студентов:(среднееколичествостудентов) procedure(o).
  3.  
  4. clauses
  5. среднее_количество_студентов(Количество):-
  6.     assert(сумма1(0, 0)),
  7.     группа(Номергруппы),
  8.     количество_студентов_в_группе(Номергруппы, Количествостудентоввгруппе),
  9.     retract(сумма1(Количествогрупп, Количествостудентов)),
  10.     НовоеКоличествогрупп = Количествогрупп + 1,
  11.     НовоеКоличествостудентов = Количествостудентов + Количествостудентоввгруппе,
  12.     assert(сумма1(НовоеКоличествогрупп, НовоеКоличествостудентов)),
  13.     fail;
  14.  
  15.     retract(сумма1(Количествогрупп, Количествостудентов)),
  16.     Количество = Количествостудентов / Количествогрупп.

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

  1. Задана процедура среднее_количество_студентов, которая принимает один аргумент Количество.
  2. Аргумент Количество не используется в процедуре, поэтому он может быть любым.
  3. В процедуре используются следующие утверждения:
    • сумма1(0, 0) - это начальное значение суммы студентов и количества групп.
    • группа(Номергруппы) - это утверждение о существовании группы с номером Номергруппы.
    • количество_студентов_в_группе(Номергруппы, Количествостудентоввгруппе) - это утверждение о количестве студентов в группе с номером Номергруппы.
  4. Процедура выполняет следующие действия:
    • Добавляет новое значение суммы студентов и количества групп.
    • Увеличивает количество групп на 1.
    • Увеличивает общее количество студентов на количество студентов в текущей группе.
    • Добавляет новое значение суммы студентов и количества групп.
    • Проваливается, чтобы не выводить результат.
  5. В конце процедуры вычисляется среднее количество студентов путем деления общего количества студентов на количество групп.
  6. Результат Количество не используется в процедуре, поэтому он может быть любым.

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

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

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

9   голосов , оценка 4.222 из 5

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

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

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