|
Registriert seit: 17. Nov 2005
Ort: Hamburg
1.062 Beiträge
Delphi XE2 Professional
|
AW: Stabiles Sortieren
26. Mai 2017, 15:21
Ich verwende ein etwas anderes BubbleSort.
Hintergrund:
Nach dem Durchlauf der For ... Schleife steht das größte Element am Ende des Arrays.
Also muss beim nächsten Durchlauf das vorletzte Element nicht mehr mit dem letzten Element verglichen werden.
Das verringert die Anzahl der zu vergleichenden Elemente bei jedem Durchlauf um 1.
Guter Einwand  Sollte dann aber am Anfang vermutlich Last := High(A) - 1
sein, sonst kracht es beim Zugriff auf A[I + 1]
. Nein, beachte das Dec(Last) am Anfang der Repeat Schleife.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
|