Arrays sortieren

[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

[RedDust]

Zitat:

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;

[alzaimar]

www.sortieralgorithmen.de

[Nikolas]

Zitat:

ch möchte Arrays of Cardinal aufsteigend der größe nach sortieren um so die größte Zahl zu ermitteln.

Warum sortierst du das Array denn dann?

Geht doch einfach per

Delphi-Quellcode:

max:=0;
ort:=-5;

for i:=0 to length(list)-1 do
begin
if list[i]>max then
  begin
  max:= list[i];
  ort:= i;
  end;
end;
Showmessage('Der größte Eintrag steht an '+inttostr(ort)+'.ter Stelle und beträgt 'floattostr(max));

[alcaeus]

Zitat:

Zitat von bttb930

aber da gibt's doch tutorials!!!

Und damit es leichter geht: Daniels Sortieralgorithmen-Tutorial. Damit solltest du dein Problem loesen koennen ;)

Greetz
alcaeus

[alzaimar]

Maximum finden?

Delphi-Quellcode:

uses Math;
...
  amaxValue := MaxValue (Liste);
...

Noch kürzer gehts nicht.