mist! ich brauche den quick sort und hab den algorithmus weder im kopf, noch zur hand. das grundprinzip weiß ich noch (den array in der mitte teilen, vergleichen und mit der entsprechenden hälfte so weiterverfahren, bis man bei der kleinstmöglichen „hälfte“ ist und dann entsprechend einfügen)
an und für sich ja auch nicht schwer und ich wollte ihn mir ja selber zusammenstückeln. doch irgendwo hat sich natürlich wieder so ein blöder fehler eingeschlichen, den ich nicht und nicht finde…(offensichtlich stehe ich heute wieder mal ordentlich auf der leitung…)
wäre sehr dankbar für eine hilfe
(brauche den code in vb-script, kann aber ruhig auch c, metasprache oder sonst was sein (nur nicht assembler oder cobol - gott bewahre!))
dank im voraus,
jj
Hi,
hier ist einer in VB.
Option Explicit
Dim Feld(0 To 500)
Private Sub Form_Load()
Call Shuffle
End Sub
Private Sub Command1_Click()
Dim X%
Call QuickSort(LBound(Feld), UBound(Feld))
List2.Clear
For X = 0 To UBound(Feld)
List2.AddItem Feld(X)
Next X
End Sub
Private Sub Command2_Click()
Call Shuffle
End Sub
Private Sub QuickSort(ByVal LB&, ByVal UB&:wink:
Dim P1&, P2&, Ref$, TEMP$
P1 = LB
P2 = UB
Ref = Feld((P1 + P2) / 2)
Do
Do While (Feld(P1) Ref)
P2 = P2 - 1
Loop
If P1 P2)
If LB [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]