|
|
| Ordenar Vector (array) |
Función para ordenar un vector...
un ejemplo para mostrar el funcionamiento está incluido tambien
el código fue tomado de la web intranet2internet.com
autor: Joe Norman
email: joe@intranet2internet.com
<%
FUNCTION SortArray(varArray)
For i = UBound(varArray) - 1 To 1 Step - 1
MaxVal = varArray(i)
MaxIndex = i
For j = 0 To i
If varArray(j) > MaxVal Then
MaxVal = varArray(j)
MaxIndex = j
End If
Next
If MaxIndex < i Then
varArray(MaxIndex) = varArray(i)
varArray(i) = MaxVal
End If
Next
END FUNCTION
REDIM arrSORT(8)
arrSORT(0)="Elvis"
arrSORT(1)="Helicopter"
arrSORT(2)="Corn"
arrSORT(3)="Apple"
arrSORT(4)="Drum"
arrSORT(5)="Green"
arrSORT(6)="Flowers"
arrSORT(7)="Big"
Response.write "<TABLE BORDER=1 WIDTH=100% ><TR><TD><B>UNSORTED</B></TD><TD><B>SORTED</B></TD></TR>"
Response.write "<TR><TD>"
FOR i = 0 TO UBOUND(arrSORT) - 1
Response.write "<B>arrSORT(" & i & ") value: </B>" & arrSORT(i) & "<BR>"
NEXT
Response.write "</TD><TD>"
SortArray arrSORT
FOR i = 0 TO UBOUND(arrSORT) - 1
Response.write "<B>arrSORT(" & i & ") value: </B>" & arrSORT(i) & "<BR>"
NEXT
Response.write "</TD></TR></TABLE>"
%> |
Autor: CoRSA |
| Fecha de envio: 26/11/2003 |
Si deseas colaborar enviando una nota como esta para mostrar en la web, ingresa aqui
|
|
|
