Programación Vbay

Función BubbleSort1 (las variables son ZHArray, XArray, YArray, ZArray)

Método 2: Clasificación de burbujas. Modificar según el código proporcionado por / sitio web.

La idea es ordenar la matriz unidimensional y extenderla a otras columnas para ordenar, lo cual es consistente con la operación de clasificación de celdas.

Atenuar temperatura como variable

Atenuar temp1 como variable

Atenuar Temp2 como variable

Atenuar Temp3 como variable

Atenuar I como un entero

Atenuar NoExchanges como un entero

Primero atenuar como un entero, luego atenuar como un entero

Primero = LBound (ZHArray)' toma El límite superior de la matriz.

Last = UBound(ZHArray)' toma el límite inferior de la matriz.

Bucle hasta que no se realicen más "intercambios".

Do

NoExchanges = True

Iterar sobre cada elemento de la matriz.

Para i = del primero al último - 1

Si el elemento es mayor que el elemento

A continuación, intercambie los dos elementos.

Si ZHArray(I)> entonces ZHArray(i + 1)

NoExchanges = False

Temp = estación ZHArray(i)

ZHArray(i) = ZHArray(i + 1)

ZHArray(i + 1) = temp

Temp1 = XArray(i) 'Coordenada X.

temp 2 = Coordenada YArray(I)Y

Temp3 = ZArray(i) 'coordenada z

XArray(i) = XArray(i + 1)

Matriz(i) = Matriz(i + 1)

ZArray(i) = ZARray(i + 1)

XArray(i + 1 ) = temp1

Array(i + 1) = Temp2

ZArray(i + 1) = Temp3

Terminará si...

Siguiente yo

Bucle cuando no se realiza el bucle (sin intercambio)

Finalizar función