QuickSort

[cool2005]

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

nun will ich in mein programm quicksort einbauen...

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

ich habe mir das mal von daniel angeguckt...

ist auch gut,...aber da fehlt ja was

bitte um hilfe ...byeeee

[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

[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