Zitat von
AlexanderBrade:
Delphi-Quellcode:
Procedure BubbleSort;
var i,j : Integer;
Begin
For i:= 24 downto 1 Do
For j:= 1 To i Do
If (Array[j-1] > Array[j]) Then SwapValues( j-1, j );
End;
Zitat von
AlexanderBrade:
Delphi-Quellcode:
Procedure BubbleSort;
var i,j : Integer;
Begin
For i:= N downto 1 Do
For j:= 1 To i Do
If (Data[j-1] > Data[j]) Then SwapValues( j-1, j );
End;
du hast jetzt nicht NUR das "i" von "N" auf 24 geändert, oder?!?!