Coordonnées (x,y) d’un élément dans un tableau et vice versa

rem ============================================================================
rem                        Astuce
rem Pour déterminer les coordonnées (x,y) d’un élément dans un tableau
rem ============================================================================
dim i,j,x,y,w,h,n,t$
w = 10 : h = 8  : ' essayer avec d'autres valeurs
2d_pen_width 2  
for j = 1 to w
    for i = 1 to h
        2d_circle j*50,i*50,20 : print_locate j*50-5,i*50-5 : print (i-1)*w + j
    next i        
next j

2d_line 10,10,100,10 : print_locate 100,2 : print ">  x"
2d_line 10,10,10,100 : print_locate 8,100 : print "v"
print_locate 8,112   : print "y"

' Question 1:
' pour un objet (ici c'est un cercle) N° n, quelles sont ses coordonnées (x,y)
' dans le dessin ?
' Supposons que je veuille trouver les coordonnées x,y de l'objet N° 31.
' La formule à appliquer est la suivante :
'            ______________
'           |              |
'           | x = mod(n,w) | w c'est la largeur
'           | y = int(n/w) |   du tableau
'           |______________|

n = 39 : x = mod(n,w) : y = int(n/w)+1
t$ = "Le cercle N° " + str$(n) + " a pour coordonnées" + chr$(13) +"x = " + str$(x) + chr$(13) + "y = " + str$(y)
message t$

' Question 2:
' Opération inverse de la question 1
' A partir des coordonnées (x,y) trouver le numéro N
' La formule à appliquer est plus simple
'           _____________________
'          |                     |
'          |  n = (y-1) * w + x  |
'          |_____________________|

x = 7 : y = 4
n = (y-1)*w + x
t$ = "Le cercle de coordonnées ("+str$(x)+","+str$(y)+") correspond au cercle N° " + str$(n)
message t$
rem ============================================================================