Frage zu Heapsort - Heapsort von bis?

[Nelphin]

hallo,

ich habe in der library folgendes gefunden:
Delphi-PRAXIS

ich kopiere mal den code hier rein:

Delphi-Quellcode:

{die AdjustHeap Prozedur ist dafür verantwortlich, die Baumstruktur aufzubauen}

procedure AdjustHeap(n: integer; var Data: array of integer; knot: integer);
var
  temp_knot_value, subknot: integer;
begin
  temp_knot_value := Data[knot];

  while knot < n div 2 do
  begin
    subknot := 2*knot+1; //Formel um Unterknoten herauszufinden, wobei 2*knot+2 der 2. Unterknoten ist.

    {Überprüfung, welcher der beiden Unterknoten größer ist; subknot wird der Index des größeren zugewiesen.}
    if (subknot < n - 1) and (Data[subknot] < Data[subknot + 1]) then
      Inc(subknot);


    {Wenn der größere der beiden Unterknoten nicht größer als der betrachtete Knoten ist, breche die Schleife ab ...}
    if temp_knot_value >= Data[subknot] then
      break;


    {... andernfalls tausche die Werte.}
    Data[knot] := Data[subknot];

    {Ein neuer Knotenindex wird gesetz, um eine Ebene im Baum tiefer zu wandern und den Unterknoten unter den gleichen Aspekten zu betrachten.}
    knot := subknot;

  end;
  Data[knot] := temp_knot_value;
end;

{eigentlich Prozedur}
procedure HeapSort(var Data: array of integer);
var
  knot, temp, i: integer;
begin
  i := Length(Data);

{Erstsortierung des Heaps/Baumes}
  knot := i div 2; //begonnen wird mit einem Knoten in der Mitte des Arrays
  while knot > 0 do
  begin
    Dec(knot);
    AdjustHeap(i, Data, knot);
  end;

  while i >= 0 do
  begin
   
    {da nun das erste Feld den größten Wert enthält, wird dieser mit dem letzten Feld vertauscht ...}
    temp := Data[0];
    Data[0] := Data[i];
    Data[i] := temp;

    AdjustHeap(i, Data, 0);
    Dec(i); {... und da der größte Wert nun am Ende steht, also schon einsortiert ist, wird der zu betrachtenden Bereich auf den noch unsortierten Teil festgesetzt}
  end;
end;

kann man diesen code so ändern das er eine Liste nicht vollständig sondern erst ab einer bestimmten stelle bis zu einer bestimmten stelle sortiert?

also das man quasi so aufrufen kann:
procedure HeapSort(var Data: array of integer;ab:integer;bis:integer); Danke schonmal für eure Hilfe!

[himitsu]

Beim Heapsort bin ich mir nicht ganz sicher, wie es jetzt genau ginge, aber beim Quicksort bräuchtest du einfach nur beim ersten inneren Aufruf statt des Arrayanfangs und -endes einfach nur deine Grenzen übergeben.