蛇形分组.prg

来自「田径运动会管理系统RAR 用VFP编写」· PRG 代码 · 共 34 行

FUNCTION Mtest()

 LPARAMETERS zrs, zss, rs1
 DIMENSION A[zrs]
 DIMENSION B[zss, rs1]

 local ntime as integer, n as integer, m as integer

 FOR n = 1 TO zrs
   A[n] = n
 endfor
  ASSERT .F.
 ntime = ceiling(zrs/rs1)

 for n = 1 to ntime
   if n%2 = 0
     for m = rs1 to 1 STEP -1
        if (n-1)*rs1 + m > zrs
           loop
        endif
        B[n,iif(m%rs1=0,1,rs1-m%rs1 +1)] = A[(n-1)*rs1 +m]
     endfor
   else
     for m = 1 to rs1
        if (n-1)*rs1 + m > zrs
             exit
       endif
        B[n,m] =A[(n-1)*rs1 + m]
     endfor
   endif 
 ENDFOR
ENDFUNC