sortiere

Bubblesort

prozedur bubbleSort( A : Liste sortierbarer Elemente )
..n := Länge( A )
..wiederhole
....vertauscht := falsch
....für jedes i von 1 bis n - 1 wiederhole
......falls A[ i ] > A[ i + 1 ] dann
........vertausche( A[ i ], A[ i + 1 ] )
........vertauscht := wahr
......ende falls
....ende für
....n := n - 1
..solange vertauscht und n > 1
prozedur ende