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!