hallo liebe user!
mir wurde eine aufgabe gestellt: ich soll eine wertbelegungstabelle für eine quicksortimplementation erstellen
dummerweise weiß ich nicht was eine wert~ ist
des algorithmus zu schreiben war doch recht simpel
könnt ihr mir erklären was eine wertbelegungstabelle ist, und können wir sie gemeinsam entwickeln?
wäre sehr nett!
Delphi-Quellcode:
procedure Quick(
var arr:
array of Integer; left, right: Integer) ;
var
Low, High, mid, hlp: Integer;
begin
Low := left;
High := right;
mid := arr[(Low + High)
div 2];
repeat
while arr[Low] < mid
do Inc(Low) ;
while arr[High] > mid
do Dec(High) ;
if Low <= High
then
begin
hlp := arr[Low];
arr[Low] := arr[High];
arr[High] := hlp;
Inc(Low) ;
Dec(High) ;
end;
until Low > High;
if High > left
then Quick(arr, left, High) ;
if Low < right
then Quick(arr, Low, right) ;
end;
dann sind noch 2 andere proceduren drin die zahlen erzeugen usw.