Thema: Delphi Probleme mit Bubblesort

Einzelnen Beitrag anzeigen

Volker Z.

Registriert seit: 4. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#7

AW: Probleme mit Bubblesort

  Alt 22. Feb 2014, 23:49
Hallo,

Zitat:
Vielen dank, es funktioniert jetzt
Ja, funktionieren tut es schon, aber der Algorithmus könnte etwas effizienter implementiert werden. Wieso laufen beide for-Schleifen von 1 bis Max - 1 (wenn die innere Schleife nur noch den Teil behandelt, der noch nicht vollständig sortiert ist, dann kann man sich da schon noch ein paar Zyklen einsparen).

Delphi-Quellcode:
procedure BubbleSort (var A : tArr);
var
  i, j, temp : Integer;
begin
  for i := 1 to Max - 1 do
    begin
      for j := Max downto i + 1 do
        begin
          if A [i] > A [j] then
            begin
              temp := A [j];
              A [j] := A [i];
              A [i] := temp
            end
        end
end;

Gruß
Volker Zeller
  Mit Zitat antworten Zitat