Ordenación Por Metodo de la Burbuja

La tecnica de ordenación por burbuja compara elementos consecutivos de la lista, de modo que si en una pasada no ocurrieran intercambios, significaria que la lista esta ordenada. Este metodo es muy clasico y sencillo, y por lo general es uno de los primeros ejercicios que les colocan a los estudiantes de informatica y computacion cuando ven el capitulo que corresponde a vectores.

A continuacion les coloco un programa que realiza ordenacion por metodo de la burbuja bajo Gambas. Esta hecho como un programa de consola.

PUBLIC SUB Main()
DIM Columna AS Integer
DIM N, i, j, Aux AS Integer
DIM Limite AS Integer

DIM vector AS Integer[]
vector = NEW Integer[]

PRINT “Ingrese el limite maximo a leer el vector:”
INPUT Limite

FOR Columna = 0 TO Limite
PRINT “Ingresa un Numero ”
INPUT N
vector.Add(N)
NEXT
‘Este es el Procedimiento Burbuja
‘para ordenar los datos que contiene el vector
FOR i = 0 TO Limite – 1
FOR j = 0 TO Limite – 1
IF Vector[j] > vector[j + 1] THEN
‘En esta parte se realiza el intercambio
Aux = vector[j]
vector[j] = vector[j + 1]
vector[j + 1] = Aux
END IF
NEXT
NEXT

PRINT
‘Por ultimo procedemos a imprimir el vector
FOR j = 0 TO Limite
PRINT vector[j]
NEXT
END

6 comentarios en “Ordenación Por Metodo de la Burbuja

  1. Luuis dijo:

    Hola buenas noches me da error de sintaxis en la linea 12 lo probe en gambas lo copie y pegue tal cual aparece pero me da error en la linea 12😦

    que sera ?

  2. ekiz dijo:

    no krnal me marca error de sintaxis en la linea 10 lo checare y vere si encuentro cual es e error y te lo dejo aki de nueo ahora si ia le encontraste solucion ai me avisas va ke va

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s