QuickSort.VFP

CLEAR

PUBLIC ARRAY A[10]
A[1] = 90
A[2] = 70
A[3] = 100
A[4] = 60
A[5] = 10
A[6] = 40
A[7] = 30
A[8] = 80
A[9] = 20
A[10] = 50

QUICKSORT(@A,1,10)

FOR K = 1 TO 10
   @K,0 SAY A[K]
ENDFOR

FUNCTION QUICKSORT
LPARAMETERS A, PRIMERO, ULTIMO
I = PRIMERO
J = ULTIMO
TEMP = 0
CENTRO = INT ((I + J) / 2)
PIVOTE = A[CENTRO]

    DO WHILE I < J
        DO WHILE A[I] < PIVOTE
            I = I + 1
        ENDDO
        DO WHILE A[J] > PIVOTE
            J = J - 1
        ENDDO
        IF I <= J
            TEMP = A[I]
            A[I] = A[J]
            A[J] = TEMP
            I = I + 1
            J = J - 1
        ENDIF
    ENDDO

    IF PRIMERO < J
        QUICKSORT(@A, PRIMERO, J)
    ENDIF
    IF ULTIMO > I
        QUICKSORT(@A, I, ULTIMO)
    ENDIF

ENDFUNC