Найти класс с наибольшим количеством учеников - Turbo Pascal
Формулировка задачи:
Сведения об ученике состоят из его имени и фамилии и названия класса, в котором он учится (например, 11а). Записать сведения о n учеников. Информацию об учениках вывести на экран в виде таблицы. Найти класс с наибольшим количеством учеников.
Кто то знает?
Сам ввод вывод не трудно ведь
Но как определить класс в котором найбольше всего учеников?
Наперед спасибо
Решение задачи: «Найти класс с наибольшим количеством учеников»
textual
Листинг программы
//первый элемент массива классов k[1].kls:=u[1].kls; //перепишем в него название класса из массива учеников k[1].kol:=1; //количество учеников пока =1 m:=1; //размер массива классов=1 for i:=2 to n do //смотрим остальных учеников begin f:=0;//пока нет в массиве класов такого названия класса for j:=1 to m do if u[i].kls=k[j].kls then //если совпало begin inc(k[j].kol);//добавляем ученика f:=1; //меняем флаг, есть такой класс в массиве end; if f=0 then //если нет begin inc(m); //увеличим размер массива k[m].kls:=u[i].kls;//запишем этот класс k[m].kol:=1; //ученик пока 1 end; end; imax:=1;//ищем класс в котором больше всех учеников for i:=2 to m do if k[i].kol>k[imax].kol then imax:=i;//если больше чем до того, то запоминаем этот номер writeln('Наибольшее число учеников=',k[imax].kol,' в классе ',k[imax].kls);//выводим название класса и кол. учеников readln end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д