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

Delphi-Quellcode:

recsize2[index]:=index

irgendwie wenig Sinn :gruebel:

Grüße Minz

OK es sei denn du willst das ganze nur umdrehen !

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

[nothin]

Zitat:

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

Delphi-Quellcode:

recsize2[index]:=index

irgendwie wenig Sinn :gruebel:

Grüße Minz

Die Zeile

Delphi-Quellcode:

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 :shock:

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

Delphi-Quellcode:

min=recsize[i];

weist du min die Länge des Balkens an Position i zu.

mit

Delphi-Quellcode:

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

verwendest du diesen Längenwert als Index.

Irgendwie kann das nicht gewollt sein oder?

[nothin]

Doch es ist gewollt. Schau Dir die Sortieralgorithmen von hier an. Es ist das Selectsort.

[Minz]

Delphi-Quellcode:

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

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

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

Also so rum sieht mir das richtiger aus, wobei du jetzt nach dem kleinsten Element suchst.
(Du willst ja mit dem kleinsten anfangen)
Wurde im Array durch die For j - Schleife ein kleineres Element gefunden als an Position i dann musst du später also die Balken an position i mit min vertauschen.

[Minz]

das kann nicht gewollt sein.

Stell dir vor der Balken hat die Länge 250 und dein Array/Balken geht nur bis 100 !

[nothin]

Mhm ... ich glaub Du überblickst das Ganze nicht ganz. Es werden nur Balken mit der Größe von 1 bis 150 gezeichnet.

[Minz]

doch ich glaub ich blicke es !

Mein letzter Code nimmt die entsprechenden Änderungen vor !

Dann ist es auch egal wie die Ausprägung der Werte ist.

Statt

Delphi-Quellcode:

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

kannst du dann auch

Delphi-Quellcode:

If min<>i then begin

nehmen.

Gruß Minz

[nothin]

Es reicht also wenn Du das Größerzeichen in Kleinerzeichen änderst? Das funktioniert bei mir aber nicht und warum sollte es auch?

[Minz]

Guck dir alles nochmal genau an!!!!!!

Es geht hier um das Durchmischen von Index und Werten.

Lass dir am besten den Array in einer Listbox oder so ausgeben,
um sicher zu gehen, dass das Array richtig sortiert ist.

Ich habe NICHT NUR ein kleiner/größerzeichen verändert!

[nothin]

Ich finde nichts. Kannst Du bitte Deinen ganze Code posten?

[Minz]

Hab ich doch hier schon gepostet (in diesem Thema)

min=i habe ich noch verändert.

Das heißt min also keinen Wert sondern einen Index zuweisen,
wie bei

min=j auch geschieht.

Da ich mir den ganzen Grafikkram nicht angeschaut habe könnte
da also auch noch ein Fehler stecken.

Deswegen der Hinweis das Array mal in einer Listbox oder Memo oder
sowas auszugeben und zu schauen, ob am Ende alle Werte in der richtigen
Reihenfolge drinstehen.

[nothin]

Servus Minz,

an min := i lag es. Viele Dank für Deine Hilfe :lol:.