Hinweis: Aufgrund technischer Beschränkungen werden Vorschaubilder hochauflösender GIF-Dateien wie dieser nicht animiert.
Diese Datei stammt aus Wikimedia Commons und kann von anderen Projekten verwendet werden. Die Beschreibung von deren Dateibeschreibungsseite wird unten angezeigt.
Dim gap, swaps, i, t, value(33) As Integer
Dim ch As Double
ch = 1.24733
gap = 33
swaps = 1
Do While ((gap > 1) Or (swaps = 1))
If gap > 1 Then gap = Int(gap / ch)
i = 0
swaps = 0
Do While (i + gap < n)
If value(i) > value(i + gap) Then
t = value(i)
value(i) = value(i + gap)
value(i + gap) = t
swaps = 1
End If
i = i + 1
Loop
Loop
verbreitet werden – vervielfältigt, verbreitet und öffentlich zugänglich gemacht werden
neu zusammengestellt werden – abgewandelt und bearbeitet werden
Zu den folgenden Bedingungen:
Namensnennung – Du musst angemessene Urheber- und Rechteangaben machen, einen Link zur Lizenz beifügen und angeben, ob Änderungen vorgenommen wurden. Diese Angaben dürfen in jeder angemessenen Art und Weise gemacht werden, allerdings nicht so, dass der Eindruck entsteht, der Lizenzgeber unterstütze gerade dich oder deine Nutzung besonders.