[Frage] ArrayIndex nach Werten sortiert ausgeben

[Basetyp]

Hi, ich stehe ein wenig auf dem Schlauch. Ich habe eine Array, welche Integerzahlen enthält. Nun möchte ich einer zweiten Array, die nach den Werten der ersten Array sortierten Indexe der ersten Array geben.
Als Beispiel:

Code:

A[0] = 5
A[1] = 8
A[2] = 9
A[3] = 7
A[4] = 6

=> 
B[0] = 0
B[1] = 4
B[2] = 3
B[3] = 1
B[4] = 2

In B stehen die Indexe von A, geordnet nach den Werten von A.
Momentan finde ich für das Problem keine ordentliche Lösung, höchstens dass man A in eine Array C überträgt, C nach den Werten sortiert und dann in B[n] den Index aus A schreibt, welcher die Zahl aus C[n] enthält. Kann mir hier jemand helfen das ganze mindestens in Pseudocode zu schrieben? :?

[Norbert987]

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 -

[Basetyp]

Deine Lösung klingt für mich plausibel. Nur leider hab ich auch grade kein Delphi parat.. :cry:
Spätestens heute Abend kann ich dann den fertigen Code posten. Trotzdem Danke schonmal dafür. Du hast mir eine menge Arbeit gespart. :thumb:

[Uwe Raabe]

XE2 bietet da doch schon was aus der Kiste:

Delphi-Quellcode:

uses
  System.Generics.Collections, System.Generics.Defaults, System.Math;

var
  A: TArray<Integer>;
  B: TArray<Integer>;
  I: Integer;
begin
  A := TArray<Integer>.Create(5, 8 ,9, 7, 6);

  SetLength(B, Length(A));
  for I := 0 to High(B) do
    B[I] := I;

  TArray.Sort<Integer>(B, TDelegatedComparer<Integer>.Create(
    function(const Left, Right: Integer): Integer
    begin
      result := CompareValue(A[Left], A[Right]);
    end));
end;