Облако знаний. Сортировка массива записей по нескольким критериям (Паскаль). Информатика. 9 класс

В задачах программирования часто требуется упорядочить не простые числа, а записи (record), содержащие несколько полей — например, фамилию, класс, баллы и т. д. В таком случае сортировка выполняется не по одному признаку, а по нескольким критериям (например, сначала по классу, затем по баллам и фамилии).
Сортировка по нескольким критериям выполняется с помощью функции сравнения (компаратора), которая определяет, какой из двух элементов должен идти раньше.
В Pascal можно реализовать такую сортировку, используя собственную функцию сравнения и простую сортировку (например, пузырьковую).
Пример. Функция, сортирующая учеников по классу (возрастание), затем по баллам (убывание) и по ФИО (по алфавиту).

Структура для хранения данных об ученике	Функция сравнения (компаратор)
type TPupil = record FIO: string; // Фамилия, имя, отчество ClassNum: integer; // Номер класса Ball: integer; // Баллы end; var Pupils: array of TPupil;	function ComparePupils (const A, B: TPupil): integer; begin //1. Сравниваем класс (по возрастанию) if A.ClassNum < B.ClassNum then begin ComparePupils := -1;Exit; end; if A.ClassNum > B.ClassNum then begin ComparePupils := 1; Exit; end; //2. Если класс одинаковый — сравниваем баллы (по убыванию) if A.Ball > B.Ball then begin ComparePupils := -1; Exit; end; if A.Ball < B.Ball then begin ComparePupils := -1; Exit; end; //3. Если баллы равны — сравниваем ФИО (по алфавиту) if A.FIO < B.FIO then begin ComparePupils := -1; Exit; end; if A.FIO > B.FIO then begin ComparePupils := -1; Exit; end; end;

Структура для хранения данных об ученике

Функция сравнения (компаратор)

  type TPupil =
  record
  FIO: string; //
  Фамилия, имя,
  отчество
  ClassNum:
  integer;
  // Номер класса
  Ball: integer;
  // Баллы
end;
var Pupils:
array of TPupil;

function ComparePupils (const A, B: TPupil): integer;
begin
//1. Сравниваем класс (по возрастанию)
if A.ClassNum < B.ClassNum then begin

ComparePupils := -1;Exit; end;
if A.ClassNum > B.ClassNum then begin

    ComparePupils := 1; Exit; end;
  //2. Если класс одинаковый —
  сравниваем баллы (по убыванию)
  if A.Ball > B.Ball then begin

ComparePupils := -1; Exit; end;
if A.Ball < B.Ball then begin

    ComparePupils := -1; Exit; end;
  //3. Если баллы равны —
  сравниваем ФИО (по алфавиту)
  if A.FIO < B.FIO then begin

ComparePupils := -1; Exit; end;
if A.FIO > B.FIO then begin

ComparePupils := -1; Exit; end; end;