Hallo,
nachdem ich da bereits nach einem Sortieralgorithmus gefragt habe, jetzt eine genauere Frage: hast jemand ein Pascal-Listing zu einem Quicksort ohne Rekursion?
Ich weiß, ich könnte es mal selbst versuchen zusammenzubauen… aber vielleicht hat jemand bereits etwas fertiges (habe derzeit sehr wenig Zeit…).
CU,
ALex
Den Quicksort hab ich grad nicht parat, aber hier ein iterativer Shell-Sort:
sub shellsort ( a() as long )
bis, i, j, k, h as long
bis=anzahl\_elemente ( a() )
k = bis / 2
solange k \> 0
für i=0 bis (bis-k)
j=i
solange (j\>=0) und ( a(j) \> a(j+k) )
h=a(j)
a(j)=a(j+k)
a(j+k)=h
wenn j\>k dann
j=j-k
sonst
j=0
endwenn
endsolange
endfür
k=k/2
endsolange
endsub
cu, holli
Hallo,
nachdem ich da bereits nach einem Sortieralgorithmus gefragt
habe, jetzt eine genauere Frage: hast jemand ein
Pascal-Listing zu einem Quicksort ohne Rekursion?
Hier gibt es eine version, alles andere als elegant, aber ohne Rekursion.
http://www.magma.ca/~bourassa/page7.htm
(sie wird auf dieeser Site als abschreckenndes Beispiel genannt, aber was solls…)
Gruß
J.