Паскаль, работа с записями

[Vika2016]

Паскаль.. тема запись
Задачка вроде не из сложных но эту тему я менее всего понимаю

Сведения об ученике состоят из его имени и фамилии и названия класса, в котором он учится (например, 11а). Записать сведения о n учеников. Информацию об учениках вывести на экран в виде таблицы. Найти класс с наибольшим количеством учеников.

Огромное спасибо тому кто поможет разобраться

[ProBeginner]

Сообщение от Vika2016

но эту тему я менее всего понимаю

-покажите, пожалуйста, тему, которую вы более всего понимаете.

[type_Oleg]

Сообщение от Vika2016

..
Огромное спасибо тому кто поможет разобраться

Вот это поможет. Или "Паскаль record"
Таких примеров уже много было. Что конкретно непонятно?

[Vika2016]

Ну сам ввод и вывод не проблема

вот как то так

type anketa=record
              FIO: string[45];
              CLAS: string[3]
           end;
           
var 
i,n: integer; 
student: array [1..1000] of anketa;
     
begin
readln(n);

for i:=1 to n do
begin
writeln ('введите фамилию, имя и отчество');
readln (student[i].fio);
writeln('введите класс');
readln (student[I].clas);
end;
writeln('ввод закончен');
	writeln;

for i:=1 to n do
begin
  writeln('фио студента: ', student[i].fio);
  writeln('Класс: ',student[i].CLAS);
end;
end.

ну там еще вывод в форме таблицы нужен..



Теперь главное как определить класс с найбольшим количеством учеников?

[ProBeginner]

Сообщение от Vika2016

как определить класс с найбольшим количеством учеников?

Вот тут возникла проблема. У вас класс - это строка.
Если продолжать с этим работать, то придётся создавать динамическую структуру, и сложный алгоритм.

Проще переделать и заменить CLAS: string[3] на две записи: номер класса и буква. Номер класса это целое, и букву надо тоже сделать целым числом.
Тогда вся школа (таблица количества учеников в классах) будет описываться двумерным массивом: строки - год, столбец - буква.

Цикл подсчёта пробегает по списку учеников и увеличивает на единицу ячейку массива школы.

Потом в двумерном массиве школы ищите ячейку с максимальной суммой.

[CMY_3]

Класс с наибольшим количеством учеников - это наиболее часто встречающаяся запись с одинаковым полем CLAS, в заполненном массиве записей, это поле и надо определить, насколько я понял задание.

[type_Oleg]

Сообщение от ProBeginner

...
Проще переделать и заменить CLAS: string[3] на две записи: номер класса и буква. ..

В принципе, все нижеописанное можно проделать и со string[3] .
Ведь string[3] это фактически array[1..3] of Char
Ну и пробегать не по всем возможным Char , а иметь ввиду, что первые 1 или 2 символа - только цифры от 0 до 9 ( или сейчас нет 9-го класса ? ... ) , а последний - букафка от а до например д


Хотя, конечно удобнее CLAS сделать из 2 частей.

type
 anketa=record
   FIO: string[45];
   CLASnum:1..11;
   CLASlett:'а'..'д';
end;

[Vika2016]

Сообщение от CMY_3

Класс с наибольшим количеством учеников - это наиболее часто встречающаяся запись с одинаковым полем CLAS, в заполненном массиве записей, это поле и надо определить, насколько я понял задание.

ну как то так

[ProBeginner]

Сообщение от type_Oleg

( или сейчас нет 9-го класса ? ... )

-да почему же? -Есть, это "выпускной", как при социализме 8-й, можно идти после него в медулище/педулище, ПТУ или техникум.

[type_Oleg]

Можно так:
Добавить переменные в var:

 j:Char;
 maxKol:Integer;
 maxmax:anketa; // тут будет ответ
 kolic:array[1..11]of array['а'..'д'] of Integer;

И после ввода добавить:

 maxmax.FIO:='самый большой класс';
 maxmax.CLASnum:=1; // любые
 maxmax.CLASlett:='а'; // любые
 maxKol:=-1;
 for i:=1 to 11 do   // это может быть необязательно - обнуление
  for j:='а' to 'д' do
   kolic[i,j]:=0;
 for i:=1 to n do  // подсчет количества
   Inc(kolic[student[i].CLASnum,student[i].CLASlett]);
 for i:=1 to 11 do // поиск самого большого
  for j:='а' to 'д' do
   if kolic[i,j]>maxKol then
    begin
     maxKol:=kolic[i,j];
     maxmax.CLASnum:=i;
     maxmax.CLASlett:=j;
    end;