{ Este programa lea N numeros enteros y/o reales y los ordena por el método de ordenación Burbuja en forma ascendente.....compilado en
en Borland Pascal para Windows Version 7.0}
PROGRAM BURBUJAS;
USES WINCRT; { Utilizando la terminal de Windows }
{ Declaración de variables globales...}VAR
N,I,CODG_ART:INTEGER;
TEMP:REAL;
X:ARRAY [1..100] OF REAL;
PAUSA:CHAR;
{ Procedimiento aplicando el método de Burbuja }PROCEDURE BURBUJA;
BEGIN
FOR CODG_ART:=1 TO N-1 DO
FOR I:=CODG_ART+1 TO N DO
IF X[I]<X[CODG_ART] THEN
BEGIN { Intercambiando los números...} TEMP:=X[CODG_ART];
X[CODG_ART]:=X[I];
X[I]:=TEMP;
END;
END;
BEGIN { Programa Principal}WRITELN ('PROGRAMA DE ORDENACION DE DATOS NUMERICOS ENTEROS Y REALES....');WRITELN;
WRITELN ('APLICANDO EL METODO DE BURBUJA....');WRITELN;
WRITE ('CUANTOS REGISTROS INTRODUCIRA? ');READLN (N);
WRITELN;
FOR I:=1 TO N DO
BEGIN
WRITE ('X[',I:3,']=? '); READLN (X[I]);
END;
BURBUJA;
WRITELN;
WRITELN (' REGISTROS ORDENADOS EN FORMA ASCENDENTE');WRITELN;
FOR I:=1 TO N DO
WRITELN ('X[',I:3,']=',X[I]:4:1); WRITELN;
WRITELN;
WRITELN ('Diseñado por: Victor Manuel Evaristo Salinas '); WRITELN;
WRITELN ('E-Mail: victor_mes@hotmail.com y vmanuel_es@yahoo.com.mx'); WRITELN;
PAUSA:=READKEY;
END.
Crear cuenta
Comentarios sobre la versión: Versión 1 (7)
Es el menos eficiente de todos los algoritmos q existen
El algoritmo de burbujeo puede ser mejor, haciendo que el primer ciclo se corte cuando no se produzcan ordenamientos en el segundo.