
25/10/2005, 14:38
|
| | Fecha de Ingreso: marzo-2005
Mensajes: 1.418
Antigüedad: 20 años Puntos: 9 | |
Function SortArray(arreglo)
For j=UBound(arreglo) to 0 step - 1
For i=0 to UBound(arreglo) - 1
elemento = arreglo(i)
elementoMasUno = arreglo(i + 1)
if arreglo(i) > arreglo(i + 1) then
aux = arreglo(i)
arreglo(i) = arreglo(i + 1)
arreglo(i + 1) = aux
end if
next
next
SortArray = arreglo
End function
Este se llama el método de la burbuja, te ordena de menor a mayor los elementos que tenés en un array. Lo que sí, es extremadamente lento. Con mil elementos en el array hasta en local te demora un par de segundos.
Podés averiguar por el algoritmo QuickSort, que si bien es más complejo de entender, es mucho más eficaz que este.
Espero que te sirva!.
Suerte!.
__________________ Add, never Remove |