El Ordenamiento de Burbuja – Recursividad

Septiembre 2017


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;

Consulta también

Publicado por Carlos-vialfa. Última actualización: 8 de octubre de 2016 a las 23:12 por Carlos-vialfa.
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.