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;
El documento « El Ordenamiento de Burbuja – Recursividad » se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo libremente. No olvides citar a CCM (es.ccm.net) como tu fuente de información.
