SHARE
TWEET

Untitled

a guest Mar 25th, 2019 121 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.             DIM n
  2.             n = 7
  3.             DIM k, x, y, x_new, y_new, fi,f
  4.             x_new = 0
  5.             fi = 0
  6.             f = 1
  7.             DIM mass(7,7)        
  8.  
  9.             FOR i = 1 TO 7
  10.               FOR j = 1 TO 7
  11.                 mass(i,j) = 0
  12.               NEXT j
  13.             NEXT i
  14.  
  15.             FOR i = 1 TO 49
  16.              IF fi >= 5 THEN
  17.               f = f+1
  18.               fi = 0
  19.              END IF
  20.               fi = fi+1
  21.               x = x_new + x
  22.               y = y_new + y
  23.               IF x < 0 OR y < 0 OR x > n-1 OR y > n-1 OR NOT mass(y,x) = 0 THEN
  24.                 x = x_new - x
  25.                 y = y_new - y                
  26.                 IF k = 4 THEN
  27.                   k = 0
  28.                 END IF            
  29.                 IF k = 0 THEN
  30.                   x_new = 1
  31.                   y_new = 0
  32.                 END IF
  33.                 IF k = 1 THEN
  34.                   x_new = 0
  35.                   y_new = 1
  36.                 END IF
  37.                 IF k = 2 THEN
  38.                   x_new = -1
  39.                   y_new = 0
  40.                 END IF
  41.                 IF k = 3 THEN
  42.                   x_new = 0
  43.                   y_new= -1
  44.                 END IF                
  45.                 x = x_new + x
  46.                 y = y_new + y
  47.               END IF                                    
  48.             NEXT i
  49.    
  50.             FOR g = 1 TO 7
  51.               FOR j = 1 TO 7
  52.                 PRINT( mass(i,j) )                
  53.               NEXT j
  54.             PRINT
  55.             NEXT g
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top