SHOW:
|
|
- or go back to the newest paste.
| 1 | 'Einmal das Array durchlaufen | |
| 2 | For i = 1 To Laenge | |
| 3 | 'Die innere Schleife so oft durchlaufen lassen, dass sie alle Vergleiche ausführen kann | |
| 4 | For x = 0 To Laenge - 2 | |
| 5 | 'Ist das linke Element wertlich größer als das rechts davon, die beiden Elemente tauschen | |
| 6 | If( Matrix( x ) > Matrix( x + 1 ) ) Then | |
| 7 | 'Speicherplatzoptimierter Tauschmechanismus | |
| 8 | Matrix( x ) = Matrix( x ) Xor Matrix( x + 1 ) | |
| 9 | Matrix( x + 1 ) = Matrix( x + 1 ) Xor Matrix( x ) | |
| 10 | Matrix( x ) = Matrix( x ) Xor Matrix( x + 1 ) | |
| 11 | End If | |
| 12 | #If BS_DEBUGPRINT | |
| 13 | PrintMatrix( Matrix, Pad ) | |
| 14 | #End If | |
| 15 | 'Fortschritt anzeigen und updaten lassen | |
| 16 | FortschrittsFenster.Fortschritt += Fortschrittsscheibe | |
| 17 | Next | |
| 18 | Next |
