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ß