Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Miriam23 en Domingo 4 de Enero de 2004, 20:06
Título: Ordenacion (por Fa)
Publicado por: Miriam23 en Domingo 4 de Enero de 2004, 20:06
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.
Título: Re: Ordenacion (por Fa)
Publicado por: Cyclop en Domingo 4 de Enero de 2004, 20:08
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
Título: Re: Ordenacion (por Fa)
Publicado por: Miriam23 en Domingo 4 de Enero de 2004, 21:10
En el codigo q me enviaste tengo un error con Item, pq sera.
Título: Re: Ordenacion (por Fa)
Publicado por: Deivid en Lunes 5 de Enero de 2004, 00:44
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..
Título: Re: Ordenacion (por Fa)
Publicado por: Cyclop en Lunes 5 de Enero de 2004, 22:57
Cita de: "Miriam23"
En el codigo q me enviaste tengo un error con Item, pq sera.