Задача на списки, массивы

[Sazary]

О каждом ученике известно: фамилия, номер школы и пять ответов на задачи.

Лучше создайте тип "ученик" с указанными полями.
А потом массив из учеников.
Через кучу массивов такие задачи не делаются.

[Альбиша]

Как это записывается? Напишите пожалуйста((
Просто я тупая в этом...

[Sazary]

Вот такая запись:

type uchenik = record
fam : string;
number : integer;
otvety : array[1..5] of string;
end;

И будет массив учеников

mas : array[1..200] of uchenik;

Ну и по школам, что-то вроде:

school1,school2,school3 : array[1..100] of uchenik;

Если школ много, то можно сделать массив школ.

Ну вот дальше так и работать..

[Альбиша]

Спасибо, попробую разобраться!

[Альбиша]

Помоги пожалуйста дописать программку((( Нужно просто добавить сортировку "Составить списки учеников по школам, расположив в каждом списке фамилии в порядке убывания количества решенных задач. Предусмотреть возможный ответ "не решил"

program Test1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

Const
n=200; // кол-во учеников всего
N_School=6; // кол-во школ
N_Answer=5; // кол-во задач
Type
  TLastName = array [1..n] of string; // тип списка фaмилий (15 символов для фамилии маловато :))
  TSchool = array [1..n] of byte; // тип списка школ
  TSolve = array [1..n] of byte; // тип кол-ва решенных задач
  TAnswer = array [1..N_Answer] of byte; // тип списка ответов
Var
  ScNum : array [1..N_School] of byte = (1,4,5,6,8,9); //номера школ
  ListName: TLastName; //список фaмилий
  ListSchool: TSchool; //список номеров школ
  ListAnswer: array [1..n] of TAnswer; //список ответов учеников
  CorrectAnswer:TAnswer; //правильные ответы
  TestSorted: array [1..N_School] of TSolve; //кол-во решенных задач учеников
  NameSorted: array [1..N_School] of TLastName; //список фамилий учеников школы
  CountName: array [1..N_School] of byte; //кол-во учеников школы
  Ianswer, Indx, ISch: byte;
  Begin
  { TODO -oUser -cConsole Main : Insert code here }
  Writeln('Введите 5 правильных ответов');
  For Ianswer:=1 to N_Answer do Readln(CorrectAnswer[Ianswer]);
  For Indx:=1 to n do begin // цикл по всем ученикам
  Writeln('Введите фамилию ученика'); Readln(ListName[Indx]);
  Writeln('Введите номер школы'); Readln(ListSchool[Indx]);
  Writeln('Введите ответы этого ученика');
  For Ianswer:=1 to N_Answer do Readln(ListAnswer[Indx,Ianswer]);
  end; // конец цикла по всем ученикам
  For ISch:= 1 to N_School do begin // обнуление количества учеников и количества их правильных ответов по каждой школе
  CountName[ISch] :=0;
  For Indx:=1 to N_Answer do TestSorted[ISch,Indx] :=0;
  end;
  For Indx:=1 to n do
  For ISch:= 1 to N_School do
  if ListSchool[Indx] = ScNum[ISch] then begin
  CountName[ISch] := CountName[ISch] +1;
  NameSorted[ISch, CountName[ISch]] := ListName[Indx];
  For Ianswer:=1 to N_Answer do
  if ListAnswer[Indx,Ianswer] = CorrectAnswer[Ianswer] then
  TestSorted[ISch, CountName[ISch]] := TestSorted[ISch, CountName[ISch]] + 1;

  end;
  (*
  здесь сортировка массивов NameSorted и TestSorted
  *)
end.

[Sazary]

Опять вы через кучу массивов делаете?
Вот это вообще непонятно:

 NameSorted: array [1..N_School] of TLastName; //список фамилий учеников школы

У вас, получается, двумерный массив строк. Зачем? Для чего?
Тем более вам нужно сортировать по количеству решенных задач.
Я же сказал, сделайте запись "ученик".

[Альбиша]

Да не могу я
Я вообще 0 просто. А помочь некому(((

[Sazary]

Пост #13 посмотрите.
Могу сказать, что сортировать то, что вы написали, будет сложнее и муторнее, чем сортировать массив записей.

И не нужно себя принижать. Раз что-то написали, значит уже не ноль.

Да не могу я

Кстати, почему не можете? Через кучу массивов же смогли. А через массив записей будет легче.

[Альбиша]

Ну я могу написать только начало((( Создать тип ученик, а вот дальше...

[Sazary]

Сообщение от Альбиша

Ну я могу написать только начало((( Создать тип ученик, а вот дальше...

Создайте массив учеников. Заполните его данными.
А дальше по заданию.

Проходите по этому глобальному массиву и разбрасываете учеников по школам (то есть, например, есть 3 школы. Значит нужно объявить еще 3 массива учеников).
А потом сортируете каждый массив (школу) по количеству решенных задач.