Сортировка выбором
Falk0ner, вс, 06/07/2008 - 15:35.
Сортировка выбором
Сортировка выбором.
====================================================================
A[1..N] - сортируемый массив из n элементов.
for ( i=1; i { Сортируются записи типа item по ключу item.key }
{ для вспомогательных переменных используется тип index }
procedure SelectSort;
var i, j, k: index; x:item;
begin for i:=1 to n-1 do
begin k:=i; x:=a[i];
for j:=i+1 to n do
if a[j].key < x.key then
begin k:=j; x:=a[j];
end;
a[k]:=a[i]; a[i]:=x;
end;
end;
{ **** UBPFD *********** by kladovka.net.ru ****
>> Сортировка различными методами
Сортировка одномерного массива значений типа Double методами:
2) Выбора (SelectionSort);
Зависимости: Math
Автор: iZEN, izen@mail.ru
Copyright: адаптация для Delphi
Дата: 14 сентября 2004 г.
********************************************** }
{ Сортировка SelectionSort }
procedure SelectionSort(var data: array of double);
var
lo, hi, i, j: Integer;
t: double;
begin
lo := Low(data);
hi := High(data);
for i := lo to hi do
for j := hi downto i + 1 do
if data[i] > data[j] then
begin
t := data[i];
data[i] := data[j];
data[j] := t;
end;
end;
>> Сортировка различными методами
Сортировка одномерного массива значений типа Double методами:
2) Выбора (SelectionSort);
Зависимости: Math
Автор: iZEN, izen@mail.ru
Copyright: адаптация для Delphi
Дата: 14 сентября 2004 г.
********************************************** }
{ Сортировка SelectionSort }
procedure SelectionSort(var data: array of double);
var
lo, hi, i, j: Integer;
t: double;
begin
lo := Low(data);
hi := High(data);
for i := lo to hi do
for j := hi downto i + 1 do
if data[i] > data[j] then
begin
t := data[i];
data[i] := data[j];
data[j] := t;
end;
end;
Отправить комментарий