QuickSort

[cool2005]

hi leute...hatte vor ein paar Tagen wegen BubbleSort zu ende programmiert

nun will ich in mein programm quicksort einbauen... :wall:

mit fehlen aber infos und quelltext darüber... :wall:

ich habe mir das mal von daniel angeguckt... :spin2:

ist auch gut,...aber da fehlt ja was:(
:pale:
bitte um hilfe ...byeeee :duck:

[whiteshark]

wie meinste das, "da fehlt was"?
Willst du einen Quelltext?

[cool2005]

also das hier ist von daniel
Webseiten-Titel

Delphi-Quellcode:

Procedure QuickSort( l,r : Integer ); 
var i : Integer; 
Begin 
  If (r > l) Then 
  Begin 
    i:= Partition( l, r); 
    QuickSortRekursiv( l, i-1 ); 
    QuickSortRekursiv( i+1, r ); 
  End; 
End;

Function Partition( l,r : Integer ) : Integer; 
var v,t,i,j : Integer; 
Begin 
  v:= Data[r]; 
  i:= l-1; 
  j:= r; 
  Repeat 
    Repeat inc( i ); Until (Data[i] >= v); 
    Repeat dec( j ); Until (Data[j] <= v); 
    t:= Data[i]; Data[i]:= Data[j]; Data[j]:= t; 
  Until (j<=i); 

  Data[j]:= Data[i]; Data[i]:= Data[r]; Data[r]:= t; 
  Result:= i; 
End;

doch QuickSortRekursiv fehlt und ich habe keine ahnung :wall:

[whiteshark]

gehe mal auf den Link: Sortieren
Dort auf den Unterpunkt "Delphi" und darunter unter "Sortierprog".
Der hat einmal den Quellcode und die *.exe, vielleicht hilft dir das