El Ordenamiento de Burbuja – Recursividad

En ocasiones nos interesa ordenador los datos alfabéticamente, de mayor a menor o al revés. El método de la burbuja se utiliza para recorrer un array, comparar pares de elementos y corregirlo, si por algún motivo el orden es incorrecto. En este algoritmo el dato más pequeño se desplaza al final del array.

Es considerado uno de los métodos de comparación más sencillos de implementar. En este artículo os mostramos un ejemplo de código.

Nota: Tener en cuenta que este método de ordenación puede no resultar eficiente para según qué fines.

Ordenar los datos de un array

El código es el siguiente:

Program Ordenar;
var
    datos: array[1..6] of integer;
    i,j: integer;
    temporal: integer;
begin
    datos[1] := 56;
    datos[2] := 9;
    datos[3] := 34;
    datos[4] := 12;
    datos[5] := 41;
    datos[6] := 8;
{ Primero mostramos los datos }
    writeLn('Los datos iniciales son: ');
    for i := 1 to 6 do
        write(datos[i], ' ');
    writeLn;
{ Ahora ordenamos mediante burbuja }
    for i := 6 downto 2 do
        for j := 0 to i - 1 do
            if datos[j] > datos[j + 1] then
            begin
                temporal := datos[j];
                datos[j] := datos[j + 1];
                datos[j + 1] := temporal;
            end;
{ Y mostramos el resultado }
    writeLn('Los datos tras ordenar son: ');
    for i := 1 to 6 do
        write(datos[i], ' ');
    writeLn;
end. 

Los datos iniciales son:

56, 9, 34, 12, 41, 8

Después de ejecutar nuestro código tendremos estos datos ordenador de menor a mayor:

8, 9, 12, 34, 41, 56

Foto: © Everypixel