Unas palabras de agradecimiento nunca están de más.

El Ordenamiento de Burbuja – Recursividad

A continuación un procedimiento que permite ordenar una matriz de n enteros utilizando el método de ordenamiento de Burbuja :

 Procedure Ordenamiento_Burbuja (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));
         Ordenar := ok;
    End;
    Begin
         If Not Ordenar (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;
              Ordenamiento_Burbuja (t, n);
         End;
    End;