Ayuda Matriz de datos
Publicado por Hugo Ivan (3 intervenciones) el 02/09/2004 15:28:07
Hola buena tarde a todos, quisiera ayuda para es te arreglo de datos que no puedo resolver, es para un examen pero el proceso que yo hago no lo aceptan quieren que lo resuelva de otra forma, es urgente!!!!!!
Dim Arreglo(20) as integer
Lo unico que tiene que hacer es oredenarlo y el codigo que me han estado rechazando es este;
Dim a as Integer
Dim b as Integer
Dim c as Integer
For a=0 to 19
For b=a to 19
if arreglo(a) > arreglo(b+1) then
c = arreglo(b+1)
arreglo(b+1) = arreglo(a)
arreglo(a) = c
end if
next
next
Espero me puedan pasar un codigo diferente a este, pero con la misma funcion que es ordenar, Gracias.
Dim Arreglo(20) as integer
Lo unico que tiene que hacer es oredenarlo y el codigo que me han estado rechazando es este;
Dim a as Integer
Dim b as Integer
Dim c as Integer
For a=0 to 19
For b=a to 19
if arreglo(a) > arreglo(b+1) then
c = arreglo(b+1)
arreglo(b+1) = arreglo(a)
arreglo(a) = c
end if
next
next
Espero me puedan pasar un codigo diferente a este, pero con la misma funcion que es ordenar, Gracias.
Valora esta pregunta


0