Metodo de la burbuja

El Ordenamiento de burbuja (Bubble Sort en inglés) es un sencillo algoritmo de ordenamiento. Funciona revisando cada elemento de la lista que va a ser ordenada con el siguiente, intercambiándolos de posición si están en el orden equivocado. Es necesario revisar varias veces toda la lista hasta que no se necesiten más intercambios, lo cual significa que la lista está ordenada. Este algoritmo obtiene su nombre de la forma con la que suben por la lista los elementos durante los intercambios, como si fueran pequeñas "burbujas". También es conocido como el método del intercambio directo. Dado que solo usa comparaciones para operar elementos, se lo considera un algoritmo de comparación, siendo el más sencillo de implementar.


El ordenamiento de burbuja o tambien conocido como el metodo de la burbuja es sencillo de encontrarlo mediante el buscador de google, pero la mayoria del codigo fuente que encontramos es para el lenguaje C++, C#, JAVA, PHP, Visual Basic, entre otros, por eso hoy, les comparto el codigo fuente en pascal que tambien puede ser utilizado en delphi. ya que aveces no tenemos tiempo de estar pensando un poco para la tarea en la materia de programacion estructurada.

////////////////////////////////////////////////////
uses crt;

const
n = 5;
var
i,j,temp:integer;
a:array[1..n] of integer;
begin
clrscr;
writeln('Metodo de ordenacion de la burbuja');
writeln('Escribe ', n, ' numeros enteros');

for i := 1 to n do
readln(a);

for j := (n - 1) downto 1 do
for i := 1 to j do
if (a)>(a[i+1]) then
begin
temp := a;
a := a[i+1];
a[i+1] := temp;
end;


writeln ('El resultado es:');
for i := 1 to n do
writeln (a);
readln;
writeln('http://lifesandexperiences.blogspot.com/');
end.
////////////////////////////////////////////////////////////
Que lo disfruten


Comenten

http://lifesandexperiences.blogspot.com/