Sortieren mit direktem Auswahlort

[humbuck]

Probiers mal damit:

Delphi-Quellcode:

procedure auswahlsort (var a: array of Word);
var bis,i,j,k : LongInt;
h : Word;
begin
bis := High(a);
for i := 0 to bis - 1 do
begin
h := a[i];
k := i;
for j := i + 1 to bis do if a[j] < h then
begin
h := a[j];
k := j
end;
a[k] := a[i];
a[i] := h
end
end;

[humbuck]

...oder das...

Trifft es vielleicht noch eher...

Delphi-Quellcode:

procedure austauschsort (var a: array of Word);
var bis,i,j : LongInt;
h : Word;
begin
bis := High(a);
for i := 0 to bis - 1 do
for j := i + 1 to bis do
If a[i] > a[j] then begin
h := a[i];
a[i] := a[j];
a[j] := h
end
end;

[humbuck]

Letzteres entspricht dem folgenden Schema: