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