item; procedure
item;
procedure SelectionSort (var Mas: massive1);
var i: index1;
begin
for i := (N-1) downto 1 do
Swap(Mas[i], Mas[IndexMax(Mas,0,i)]);
end;
Если представляет интерес лучший результат "по задачам", то к массиву Results следует применить первый вариант алгоритма поиска максимума и обрабатывать поле "задачи". Если же важна фамилия победителя, то достаточно установить индекс ячейки с лучшим результатом, а в конце - вывести содержимое соответствующего поля отобранной компоненты.
В обоих случаях систематической обработке подвергается только одно из полей записей-компонент вектора, это поле Number и его можно рассматривать как ключевое. Такая обработка, связанная с перебором именно ключей, достаточно типична. Например, набор сначала упорядочивается по ключам записей в соответствии с лексикографическим порядком, а далее используется информация, размещенная в других полях компонент массива, - теперь уже в новом, "хронологическом" порядке.
Учитывая
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
