Ordenação por bolhas - recursividade

Fevereiro 2017

Veja um procedimento recursivo para classificar uma tabela de números inteiros, utilizando o método de ordenação por bolhas:

 Procedimento Ordenação_por_bolhas (var t : TAB; n : integer);   
Var i, aux : integer;   
    Function Ordenar (t : TAB; n : integer) : Boolean;   
    Var ok : boolean; i : integer;   
    Begin   
         ok := true; i := 1;   
         Repeat   
               If t[i + 1] < t[i] Then ok := false   
               Else i := i + 1;   
         Until ((Not ok) or (i >= n));   
         Trier := ok;   
    End;   
    Begin   
         If Not Trier (t, n) Then   
         Begin   
              For i := 1 To n - 1 Do   
                If t[i] > t[i + 1] Then   
                   Begin   
                        aux := t[i];   
                        t[i] := t[i + 1];   
                        t[i + 1] := aux;   
                   End;   
              Tri_bulles (t, n);   
         End;   
    End;



Tradução feita por Lucia Maurity y Nouira

Veja também

Artigo original publicado por . Tradução feita por pintuda. Última modificação: 12 de janeiro de 2012 às 17:51 por pintuda.
Este documento, intitulado 'Ordenação por bolhas - recursividade ', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.