29 lines
623 B
Text
29 lines
623 B
Text
PROGRAM ZIG_ZAG
|
|
|
|
!$DYNAMIC
|
|
DIM ARRAY%[0,0]
|
|
|
|
BEGIN
|
|
SIZE%=5
|
|
!$DIM ARRAY%[SIZE%-1,SIZE%-1]
|
|
|
|
I%=1
|
|
J%=1
|
|
FOR E%=0 TO SIZE%^2-1 DO
|
|
ARRAY%[I%-1,J%-1]=E%
|
|
IF ((I%+J%) AND 1)=0 THEN
|
|
IF J%<SIZE% THEN J%+=1 ELSE I%+=2 END IF
|
|
IF I%>1 THEN I%-=1 END IF
|
|
ELSE
|
|
IF I%<SIZE% THEN I%+=1 ELSE J%+=2 END IF
|
|
IF J%>1 THEN J%-=1 END IF
|
|
END IF
|
|
END FOR
|
|
|
|
FOR ROW%=0 TO SIZE%-1 DO
|
|
FOR COL%=0 TO SIZE%-1 DO
|
|
WRITE("###";ARRAY%[ROW%,COL%];)
|
|
END FOR
|
|
PRINT
|
|
END FOR
|
|
END PROGRAM
|