Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DIM n
- n = 7
- DIM k, x, y, x_new, y_new, fi,f
- x_new = 0
- fi = 0
- f = 1
- DIM mass(7,7)
- FOR i = 1 TO 7
- FOR j = 1 TO 7
- mass(i,j) = 0
- NEXT j
- NEXT i
- FOR i = 1 TO 49
- IF fi >= 5 THEN
- f = f+1
- fi = 0
- END IF
- fi = fi+1
- x = x_new + x
- y = y_new + y
- IF x < 0 OR y < 0 OR x > n-1 OR y > n-1 OR NOT mass(y,x) = 0 THEN
- x = x_new - x
- y = y_new - y
- IF k = 4 THEN
- k = 0
- END IF
- IF k = 0 THEN
- x_new = 1
- y_new = 0
- END IF
- IF k = 1 THEN
- x_new = 0
- y_new = 1
- END IF
- IF k = 2 THEN
- x_new = -1
- y_new = 0
- END IF
- IF k = 3 THEN
- x_new = 0
- y_new= -1
- END IF
- x = x_new + x
- y = y_new + y
- END IF
- NEXT i
- FOR g = 1 TO 7
- FOR j = 1 TO 7
- PRINT( mass(i,j) )
- NEXT j
- PRINT
- NEXT g
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement