ShellShort.VFP

CLEAR

PUBLIC ARRAY A[10]
A[1] = 9
A[2] = 7
A[3] = 6
A[4] = 10
A[5] = 1
A[6] = 4
A[7] = 3
A[8] = 8
A[9] = 2
A[10] = 5

SHELLSORT(@A)

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

****************************************************************************
FUNCTION SHELLSORT
LPARAMETERS A
N = ALEN(A)
SALTO = INT(N/2)

    DO WHILE SALTO > 0
        FOR I = INT(SALTO+1) TO N
            J = I - SALTO
            DO WHILE J > 0
                K = J + SALTO
                IF A[J] <= A[K]
                    J = 0
                ELSE
                    TEMP = A[J]
                    A[J] = A[K]
                    A[K] = TEMP
                ENDIF
                J = J - SALTO
            ENDDO
        ENDFOR
        SALTO = INT(SALTO/2)
    ENDDO

ENDFU
****************************************************************************
FUNCTION SHELLSORT
LPARAMETERS A
N = ALEN(A)
SALTO = INT(N/2)

    DO WHILE SALTO > 0
        FOR I = INT(SALTO+1) TO N
            J = I - SALTO
            DO WHILE J > 0
                K = J + SALTO
                IF A[J] <= A[K]
                    J = 0
                ELSE
                    TEMP = A[J]
                    A[J] = A[K]
                    A[K] = TEMP
                ENDIF
                J = J - SALTO
            ENDDO
        ENDFOR
        SALTO = INT(SALTO/2)
    ENDDO

ENDFUNC