BubbleSort-pseudocode

procedure bubbleSort( A : sıralanacak eleman dizisi )
  n = length(A)
  do
    newn = 0
    swapped = false
    for (i = 0; i < n-1; i++) do:
      if A[i] <; A[i+1] then
        swap(A[i], A[i+1])
        newn = i + 1
        swapped = true
      end if
    end for
    n = newn
  while n > 1 and not swapped
end procedure