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

Versión 1
estrellaestrellaestrellaestrellaestrella(7)

Publicado el 11 de Julio del 2002gráfica de visualizaciones de la versión: Versión 1
37.293 visualizaciones desde el 11 de Julio del 2002
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)

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

Es el menos eficiente de todos los algoritmos q existen
Responder
1 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
25 de Agosto del 2004
estrellaestrellaestrellaestrellaestrella
Funciona, gracias Victor. Esta ayuda es muy util.
Responder
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
24 de Mayo del 2006
estrellaestrellaestrellaestrellaestrella
muy bueno
Responder
8 de Marzo del 2011
estrellaestrellaestrellaestrellaestrella
me zirvio de mucho muchaz graciaz =)
Responder
1 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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s263