Auswahlsort

[nothin]

Sers Leute,

bin gerade dabei Auswahlsort zu "programmieren". Es sollen Balken angeordnet werden unzwar vom kleinsten oben bis zum größten unten. Nur klappt es überhaupt nicht obwohl ich die ganze Zeit denke, dass der Code richtig ist. Vielleicht könnt Ihr mir sagen was an dem Code nicht stimmt?

So werden die Balken gezeichnet, die dann zu sortieren sind ...

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
begin
PaintBox3.Repaint;

index := BalkenZahl;
yps := 1;

For i := 1 To BalkenZahl Do
Begin

Application.Processmessages;

PaintBox3.Canvas.Pen.Color := CLBlue;
PaintBox3.Canvas.Rectangle(1, yps, index, yps+1);

sleep(TrackBar1.Position);

recsize2[index] := index;
x2[index] := 1;
y2[index] := yps;

index := index-1;
yps := yps+2;

End;
end;

So werden die Balken sortiert ...

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
Var
min : integer;
begin
Start := GetTickCount;

tausch2 := 0;

For i := 1 To BalkenZahl - 1 Do
Begin

min := recsize2[i];

Application.Processmessages;

For j := i + 1 To BalkenZahl Do
Begin

Application.Processmessages;

If recsize2[min] < recsize2[j] Then
Begin
min := j;
End;

End;


If recsize2[min] <> recsize2[i] Then
Begin

PaintBox3.Canvas.Pen.Color := CLRed;
PaintBox3.Canvas.Rectangle(1, y2[i], recsize2[i], y2[i]+1);

PaintBox3.Canvas.Pen.Color := CLRed;
PaintBox3.Canvas.Rectangle(1, y2[min], recsize2[min], y2[min]+1);

sleep(TrackBar1.Position);

PaintBox3.Canvas.Pen.Color := ClBtnFace;
PaintBox3.Canvas.Rectangle(1, y2[i], recsize2[i], y2[i]+1);

PaintBox3.Canvas.Pen.Color := ClBtnFace;
PaintBox3.Canvas.Rectangle(1, y2[min], recsize2[min], y2[min]+1);

temp2 := recsize2[i];
recsize2[i] := recsize2[min];
recsize2[min] := temp2;

tausch2 := tausch2 + 1;

PaintBox3.Canvas.Pen.Color := CLBlue;
PaintBox3.Canvas.Rectangle(1, y2[i], recsize2[i], y2[i]+1);

PaintBox3.Canvas.Pen.Color := CLBlue;
PaintBox3.Canvas.Rectangle(1, y2[min], recsize2[min], y2[min]+1);

sleep(TrackBar1.Position);

Edit5.Text := IntToStr(tausch2);
End;

End;

Edit7.Text := IntToStr(GetTickCount - Start);
end;

[Minz]

Moin,

schonmal was von Einrücken gehört? Soll nicht bös gemeint sein, wäre aber etwas hilfreicher beim Lesen!

wenn ich das richtig verstehe, sortierst du das Array recsize2 ?

dann macht die Zeile
recsize2[index]:=index irgendwie wenig Sinn

Grüße Minz

OK es sei denn du willst das ganze nur umdrehen !

was genau funktioniert nicht, bzw. was macht er denn?

[nothin]

Zitat von Minz:

Moin,

schonmal was von Einrücken gehört? Soll nicht bös gemeint sein, wäre aber etwas hilfreicher beim Lesen!

wenn ich das richtig verstehe, sortierst du das Array recsize2 ?

dann macht die Zeile
recsize2[index]:=index irgendwie wenig Sinn

Grüße Minz

Die Zeile recsize2[index]:=index macht sehr viel Sinn, dort wird dem Element mit der Nummer index aus einem Array die Länge index zugeordnen. Also zum Beispiel recsize2[150] := 150.

[Minz]

siehe Edit oben

[nothin]

Das Programm soll die Balken vom kleinsten oben bis zum größten unten sortieren (gezeichnet werden sie vom kleinsten unten bis zum größten oben).
Nur läuft er das ganze einmal durch und sortiert die Balken richtig und dann scheint er die Balken wieder in die Reihenfolge von vorhin zu bringen.
Ich verstehe nicht warum?

[Minz]

Delphi-Quellcode:

For i := 1 To BalkenZahl - 1 Do Begin
  min := recsize2[i];
  Application.Processmessages;

  For j := i + 1 To BalkenZahl Do Begin
    Application.Processmessages;

    If recsize2[min] < recsize2[j] Then min := j;
  End;
...

Willst du da das Minimum oder das Maximum ermitteln?

[nothin]

Ermitteln will ich gar nichts. Wenn min aber kleiner als j ist, soll getauscht werden. Somit kann ich die Balken sortieren. Oder täusche ich mich da?

[Minz]

natürlich willst du da was ermitteln

Willst du nicht eigentlich das kleinste Element suchen und an die Position i setzen?

[nothin]

Mhm ... ja also j wird im Endeffekt mit i vertauscht. D.h. in min wird das von i größere Element gespeichert und am Ende der 2. Schleife wird das größte Element j mit i vertauscht.

[Minz]

Also vielleicht blick ich es auch nicht ganz aber...

du verwendest min mal als index mal als Vergleichsgröße !

mit
min=recsize[i]; weist du min die Länge des Balkens an Position i zu.

mit
If recsize2[min] < recsize2[j] Then min := j; verwendest du diesen Längenwert als Index.

Irgendwie kann das nicht gewollt sein oder?