Mergesort quellcode

[hanselmansel]

@ Der_Unwissende: Habe den Post falsch verstanden. Dachte, der Code wäre aus einer anderen Internet-Quelle. In diesem Fall gucken wir uns den Code doch mal genauer an.

Delphi-Quellcode:

procedure TSortierverfahren.Mergesort(var List:array of integer);
var
  laenge,x,y,z        :integer;
  h_array1, h_array2  :array of integer;

begin
//Anzahl der zu sortierenden Elemente bestimmen
laenge:= length(List);
//Die Hilfsfelder auf halbe Länge dimensionieren
Setlength (h_array1, laenge div 2);
Setlength (h_array2,(laenge + 1) div 2);

//Zahlen aus der 1. Hälfte des Quellarray ins 1. Hilfsarray kopieren
for x:=0 to laenge div 2 - 1 do
  h_array1[x]:=List[x];

//Das gleiche für's 2. Hilfsarray...
for y:=0 to (laenge + 1) div 2 - 1 do
  h_array2[y]:=List[y+((laenge) div 2)];

//Wenn die Feldlänge > 2, dann rufe die Prozedur rekursiv auf.
if laenge > 2 then
  begin
  mergesort(h_array1);
  mergesort(h_array2);
  end;
z:=0;

//in die Abfrage muss ein OR...
while (length(h_array1) <> 0) and (length(h_array2) <>0) do
  begin
  //Das oberste Element vom kleineren Stapel auswählen...
  If h_array1[0] < h_array2[0] then
    Begin
    //...und ins Quellarray zurückschreiben
    List[z] := h_array1[0];

    //alle Array-Elemente um 1 nach vorne schieben
    for x:=0 to length(h_array1)-2 do
      h_array1[x]:=h_array1[x+1];

    //Array verkleinern *kreisch*
    Setlength (h_array1,length(h_array1)-1);
    end
  Else
    //the same in green...
    begin
    List[z]:=h_array2[0];

    for y:=0 to length(h_array2)-2 do
      h_array2[y]:=h_array2[y+1];

    setlength(h_array2,length(h_array2)-1);
    end;
  z:=z+1;
  end;

{Nach dem Durchlauf der Schleife ist eins der Hilfsfelder auf jeden Fall leer.
Wenn das andere noch Elemente enthält, dann wird es komplett ins Quell-Array
geschrieben.}

if length(h_array1)<>0 then
  for x:=0 to length(h_array1)-1 do
    begin
    List[z]:=h_array1[x];
    z:=z+1;
    end;

if length(h_array2)<>0 then
  for y:=0 to length(h_array2)-1 do
    begin
    List[z]:=h_array2[y];
    z:=z+1;
    end;

end;

Ich habe im Code mal kommentiert, was er überhaupt im Großen macht, damit du verstehst, was du gecodet hast. Hierbei habe ich (abgesehen von der While-Schleife) kein Augenmerk auf die Richtigkeit des Codes gelegt, und noch nicht mal geprüft, was davon funktioniert. (Denn funktionieren kann er praktisch noch nicht ) Wenn du den kommentierten Code gelesen hast, kannst du dich ja noch mal melden. Dann gehen wir die inhaltlichen "Ungereimtheiten" des Codes an...

MfG,

hanselmansel