public static void bubbleSort(int[] a) {
  for (int i = 0; i < a.length-1; i++) {
     for (int j = 0; j < a.length-i-1; j++) {
        if (a[j] > a[j+1]) {
           swap(a, j, j+1);
        }
     }
  }
}

private static void swap(int[] a, int i, int j) {
  int temp = a[i];
  a[i] = a[j];
  a[j] = temp;
}

► ML

fun fix ( f,x) =
        let val fx = f(x)
        in 
                if x = fx then x 
                else fix(f,fx)
end;

fun bubble ([]) = []
        | bubble([a]) = [a]
        | bubble(a::b::x) =
                if a <= b then a::bubble(b::x)
                else b::bubble(a::x);

fun bubblesort( lista ) = fix (bubble,lista); 

► Pascal

O código a seguir ilustra o algoritmo, para ordenar n números inteiros:

	
	
program ordenacao;
  uses crt;
  const
    n = 20;
  var
    vet:array[1..n]of integer;
    i,j,aux: integer;
  begin
    randomize;
    {Preenche o array com valores aleatórios}
    for i := 1 to n do
      vet[i] := random(100);
    {Ordena o array}
    for i := n downto 2 do
         for j := 1 to i-1 do
            if vet[j] > vet[j+1] then 
            begin
                aux := vet[j];
                vet[j] := vet[j+1];
                vet[j+1] := aux;
            end;      
  end.

► Python

		
	def bubblesort(l):
    for passesLeft in range(len(l)-1, 0, -1):
        for index in range(passesLeft):
            if l[index] < l[index + 1]:
               l[index], l[index + 1] = l[index + 1], l[index]
    return l
	

► Perl

	
	    
	   sub swap {
  ($_[0], $_[1]) = ($_[1], $_[0]);
}
sub bubble_sort {
  for ($i=$|; $i < $#_; ++$i) {
    for ($j=$|; $j < $#_; ++$j) {
      ($_[$j] > $ _[$j+1]) && swap($_[$j], $_[$j+1]);
    }
  }
}

   

► C#

	
	   
private void BubbleSort(int[] vetor)
       {
            for (int i = vetor.Length - 1; i > 0; i--)
            {
                for (int j = 0; j < i; j++)
                {
                    if (vetor[j] > vetor[j + 1])
                    {
                        int swap   = vetor[j];
                        vetor[j]   = vetor[j+1];
                        vetor[j+1] = swap;
                    }
                }
            }
       }

 

► PHP

	
  	

<?php
 /*
Esta função troca o valor de duas variáveis entre si.
Opcional. Pode ser embutido na bolha
*/
        function swap(&$valor_1, &$valor_2) {
            $valor_1_antigo = $valor_1;
            $valor_2_antigo = $valor_2;
            $valor_1 = $valor_2_antigo;
            $valor_2 = $valor_1_antigo;
        }
        
        /* Array de teste */
        $arrToSort = array(1, 4, 7, 3, 8, 9, 10);
        
        /* a BOLHA! ;-) */
        for ($i = 0; $i < count($arrToSort); $i++) {
            for ($j = $i; $j < count($arrToSort); $j++) {
                if ($arrToSort[$i] > $arrToSort[$j]) {
                    swap($arrToSort[$i], $arrToSort[$j]);
                }
            }
        }
        
/* Opcional. Exibe o array de um jeito*/
 /*que nós podemos entender! =D */
        print_r($arrToSort);
        ?>
<?php
function BubbleSort( $items ) {
    $temp = "";
    $size = count( $items );
    for( $i = 1; $i < $size; $i++ ) {
         for( $j = 1; $j < $size - $i; $j++ ) {
              if( $items[$j+1] < $items[$j] ) {
                   $temp = $items[$j];
                   $items[$j] = $items[$j+1];
                   $items[$j+1] = $temp;
              }
         }
    }
}

$items = array(31, 41, 59, 26, 41, 58);
BubbleSort( $items );
?>

► Shell_script

	
	   
#!/bin/bash
# Criado em:Qui 31/Jul/2008 hs 12:34
# Last Change: Qui 31 Jul 2008 12:57:59 BRT
# Instituição:
# Propósito do script: algoritimo de ordenação

echo " Digite cinco números"

for ((i=0; i<=4; i++)); do
        read n[i]
done
     
    for ((i=0; i<=3; i++)); do
       for ((j=i+1; j<=4; j++)) do
                
        if [ ${n[i]} -gt ${n[j]} ]; then
                     
            x=${n[i]}
            n[i]=${n[j]}
              n[j]=$x 
              fi
        done
     done
 
echo "Lista ordenada!" 
for ((i=0; i<=4; i++)); do
    echo  digitado ${n[i]}
done

► Matlab

		
for(i = 1:n)
    for(j = 1:n-1)
        if(x(j) > x(j + 1))
            aux = x(j);
            x(j) = x(j + 1);
            x(j + 1) = aux;
        end
    end
end
    

► ASP

'Resultado
for i = 0 to UBound(links)
Response.write links(i) & " "
next
%>


[Topo]