Записи

[ReM]

Господа. Есть проблемка, а именно, хочется узнать каким образом можно упорядочить записи (по двум полям: Строка и Число). Если есть наглядный кодик, буду рад, если, нет то хотя бы на "пальцах" объясните.

[eoln]

Уточните что значит по двум полям. Сначало по одному, а потом по второму (если в первом есть одинаковые) или просто либо по первому, либо по второму. Можно в массив двумерный заносить и сортировать. Вот примерчик.

const
  N = 5;
type rec = record
  p1: string[2];
  p2: integer;
end;
var
  r: rec;
  i, j: integer;
  mas: array[1..N] of rec;
begin
  writeln('DANO');
  for i := 1 to N do
  begin
    mas[i].p1 := chr(random(26)+65);
    mas[i].p2 := random(100);
    writeln(mas[i].p1, '   ', mas[i].p2)
  end;
  writeln('PO STROKE');
  for i := 1 to N - 1 do
  for j := i + 1 to N do
  if mas[i].p1 > mas[j].p1 then
  begin
    r := mas[i];
    mas[i] := mas[j];
    mas[j] := r
  end;
  for i := 1 to N do writeln(mas[i].p1, '   ', mas[i].p2);
  writeln('PO CHISLY');
  for i := 1 to N - 1 do
  for j := i + 1 to N do
  if mas[i].p2 > mas[j].p2 then
  begin
    r := mas[i];
    mas[i] := mas[j];
    mas[j] := r
  end;
  for i := 1 to N do writeln(mas[i].p1, '   ', mas[i].p2);
  readln
end.

[ReM]

Упорядочить список по алфавиту по возрастанию номеров групп (вот такое задание)... ...но я думаю далше сам смогу разобраться. Спасибо за пример.