Código de Pascal/Turbo Pascal - Implementación del algoritmo de ordenación Burbuja

Implementación del algoritmo de ordenación Burbujagráfica de visualizaciones


Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(7)
Publicado el 11 de Julio del 2002 por Victor Manuel Evaristo Salinas
33.306 visualizaciones desde el 11 de Julio del 2002. Una media de 49 por semana
Programa que lee N numeros enteros y/o reales y los ordena por el método de ordenación Burbuja en forma ascendente.....compilado en Borland Pascal para Windows Version 7.0

Versión 1
estrellaestrellaestrellaestrellaestrella(7)

Publicado el 11 de Julio del 2002gráfica de visualizaciones de la versión: Versión 1
33.307 visualizaciones desde el 11 de Julio del 2002. Una media de 49 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
{ 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.



Comentarios sobre la versión: Versión 1 (7)

QuickSort !!!
21 de Julio del 2002
estrellaestrellaestrellaestrellaestrella
No useis nunca la ordenación Burbuja !!!

Es el menos eficiente de todos los algoritmos q existen
Responder
Marcelo
01 de Agosto del 2002
estrellaestrellaestrellaestrellaestrella
Es mejorable.
El algoritmo de burbujeo puede ser mejor, haciendo que el primer ciclo se corte cuando no se produzcan ordenamientos en el segundo.
Responder
Guillermo
25 de Agosto del 2004
estrellaestrellaestrellaestrellaestrella
Funciona, gracias Victor. Esta ayuda es muy util.
Responder
Frank Rafael
31 de Enero del 2006
estrellaestrellaestrellaestrellaestrella
Según me han dicho, y lo he comprobado el algoritmo QSort es el más rápido, pero cuando no son muchos elementos yo utilizo Inserción(hasta 10000 es rápido) o Burbuja(solo hasta 1000).
Responder
vicente
24 de Mayo del 2006
estrellaestrellaestrellaestrellaestrella
muy bueno
Responder
jazzo
08 de Marzo del 2011
estrellaestrellaestrellaestrellaestrella
me zirvio de mucho muchaz graciaz =)
Responder
DRO.
01 de Junio del 2012
estrellaestrellaestrellaestrellaestrella
Me parece que quedo bien implementado porque lo importante es saber como funciona este metodo. Para los que estudian esto se puede probar el array con menos numeros.
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s263