Zitat von
GLaforge:
Hi,
ich habe folgendes Problem.Ich möchte Arrays of Cardinal aufsteigend der größe nach sortieren um so die größte Zahl zu ermitteln. Das Array beinhaltet 25 Elemente also Einzelsummen. Kann mir da einer helfen. Habe schon in der Suche nachgeschaut muss aber sagen, dass ich sehr wenig Ahnung von BubbleSort & Co habe. Bin für jede Art von Hilfe dankbar.
cu
Man muss sich schon etwas damit beschäftigen, außerdem kann man den Quelltext fast zu 100% übernehmen.
Hier ein Beispiel:
Delphi-Quellcode:
Procedure BubbleSort;
var i,j : Integer;
Begin
For i:= Length(Array) downto 1 Do
For j:= 1 To i Do
If (Data[j-1] > Data[j]) Then SwapValues( j-1, j );
End;
SwapValues ist
imho nur ein Tausch, ersetzt das lästige:
Delphi-Quellcode:
merke := Array[j];
Array[j] := Array[j-1];
Array[j-1] := merke;