#1 15. März 2007 quicksort;bubblesort;shellsort Ich versuche gerade diese verfahren auszuarbeiten. Echt komische sache. Finde kein einziges Beispiel was ich mal bei delphi ausprobieren könnte, für jedes einzelne verfahren. Könntet ihr mir vielleicht helfen? Hätte vielleicht jemand ein Beispiel für mich? Jede ordentliche Antwort wird natürlich bewertet. + Multi-Zitat Zitieren
#2 15. März 2007 AW: quicksort;bubblesort;shellsort Einfache Sortierverfahren Schau mal da Bubblesort ist dort vorhanden, die beiden anderen wahrscheinlich auch. (anderer Name) + Multi-Zitat Zitieren
#3 15. März 2007 AW: quicksort;bubblesort;shellsort Hi!! Haben das ganze vor einem Monat in Info mal gemacht und dabei ein Programm geschrieben, das alle gängigen Sortierverfahren beherrscht und Arrays von beliebiger Länge mit Integer-Werten sortiert, und in ein Memo ausgibt... Falls dich sowas interessiert schick mir ne PM mit deiner Email-Addy oder so, dann lass ichs dir zukommen.... _________________ MrX + Multi-Zitat Zitieren
#4 15. März 2007 AW: quicksort;bubblesort;shellsort Code: procedure bubblesort(var f: Array of Integer); var i,j,temp: Integer; begin for i:=High(f) downto Low(f)+1 do for j:=Low(f)+1 to i do if f[j-1] > f[j] then begin temp := f[j-1]; f[j-1] := f[j]; f[j] := temp; end; end; sollte soweit klappen, keine lust das nu zu testen + Multi-Zitat Zitieren
#5 15. März 2007 AW: quicksort;bubblesort;shellsort Also bei Delphi 7, wahrscheinlich ist es auch bei anderen Delphi-Versionen enthalten, ist doch ein Beispiel (Demo) zu diesen Sachen dabei, bei dem sogar Visuell gezeigt wird welches das schnellste Sortierverfahren ist: das Beispiel findest du im Delphi Ordner unter "Demos\Threads\thrddemo.dpr". In dem Beispiel ist eine "SortThds"-Unit in der die Sortierverfahren deklariert sind: Code: procedure TBubbleSort.Sort(var A: array of Integer); procedure TSelectionSort.Sort(var A: array of Integer); procedure TQuickSort.Sort(var A: array of Integer); Mfg Rushh0ur + Multi-Zitat Zitieren