Programación General > Visual Basic 6.0 e inferiores

 Ordenacion (por Fa)

(1/1)

Miriam23:
Hola, tengo una duda sobre la manera de ordenar numeros de mayor a menor, se que es mediante un ciclo pero no encuentrola manera. Espero que me puedan ayudar.

Cyclop:
A ver prueba esto, es algo burdo pero espero que la idea te ayude, te lo voy a hacer con numeros.

a(1) = 5
a(2) = 1
a(3) = 4
a(4) = 2
a(5) = 3

Código:


--- Código: Text --- For nItem = 1 To Ubound(a)      For nRest=nItem+1 To Ubound(a)           If a(nItem) < a(nRest) Then              x = a(nItem)              a(nItem) = a(nRest)              a(nRest) = x           EndIf      Next Next   


Es muy simple pero espero que te ayude en algo, a varios metodos de ordenamiento, solo tienes que averiguarlo

Salu2

Miriam23:
En el codigo q me enviaste tengo un error con Item, pq sera.

Deivid:
Prueba hacer algo simple... si tienes un vector a de n posiciones y lo quieres ordenar de mayor a menor, pues creas un vector b, vas leyendo cada posicion del vector a y lo insertas de manera ordenada (bueno de mayor a menor) en el vector b... esto es muy facil de hacer... comparas el valor q introduces en el vector b con el anterior.. si es mayor lo pones delante y mueves el anterior una posicion...al final tendras el vector b ordenado de mayor a menor, le cambias el nombre y lo llamas a y ya lo tienes :P ....Bueno espero q te de una idea.. no se si me he explicado bien.. es tarde y no estoy mu lucido..

Cyclop:

--- Cita de: "Miriam23" --- En el codigo q me enviaste tengo un error con Item, pq sera.
--- Fin de la cita ---
Si tienes razon no es Item sino nItem, sorry

-=[Cyclop]=-

Navegación

[0] Índice de Mensajes