Mir fällt da spontan eine prakikable Lösungen ein:
Wenn du Array B mit der positionen initialisierst, wäre das ja unsortiert:
B[0]
B[1]
B[2]
B[3]
B[4]
Dann kannst du direkt anhand der Werte sortieren:
Delphi-Quellcode:
if A[B[0]] > A[B[1]]
begin
tmp := B[0];
B[0] := B[1];
B[1] := tmp;
end;
Wenn A[B[0]] > A[B[1]] dann tauschen. Das geht sicher auch mit schnelleren Sortieralgos. als bubblesort - ich weiß ja nicht, wie groß deine Datenmenge ist. Quicksort könnte man zB übernehmen, wenn man die vergleiche anpasst, also statt A[i] B[A[i]] - ich hoffe du weißt, was ich meine.
Ansonsten könnte man noch sortiert einfügen, allerdings ist das verschieben recht nervig, wenn man ein Array und keine verkettete Liste nutzen möchte.
Viele Grüße, Norbert
EDIT:
Delphi-Quellcode:
// Array B initialisieren
for i := 0 to n-1 do
B[i] := i;
// Bubblesort
for i := 0 to n-2 do
for j := i to n-1 do
if A[B[i]] > A[B[j]]
begin
tmp := B[i];
B[i]:= B[j];
B[j]:= B[i];
end;
- ungetestet, hab gerade kein Delphi zur hand -