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.
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.
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