Chercher un algorithme

dim C,L,q,i,j,k,el,ec
C=14:L=14:q=(C-1)*(L-1)
dim a(C,L)
full_space 0:font_bold 0:font_size 0,12
for i=0 to C:for j=0 to L:a(i,j)=0:next j:next i
i=7:j=7:a(i,j)=q:print_locate 200+(i*36),100+(j*20):print q
for k=(q-1) to 1 step -1
   if a(i-1,j)=0 then el=j:ec=i-1
   if a(i-1,j)=0 and a(i+1,j)<>0 then el=j+1:ec=i
   if a(i+1,j)=0 and a(i,j-1)<>0 then el=j:ec=i+1
   if a(i,j-1)=0 and a(i-1,j)<>0 then el=j-1:ec=i
   if a(i+1,j)<>0 and a(i,j+1)<>0 then el=j:ec=i-1
   j=el:i=ec:a(i,j)=k
   print_locate 200+(i*36),100+(j*20):print k:pause 200
next k

dim n, p, x, C,L,b

SUB ecrire(L, C)
    x = x + 1 : b=x:alpha b:left b,12*(5*C-4)
    width b,48:top b,24*L :caption b,string$(4-len(str$(x))," ")+str$(x)+" "
    color b,int(1+rnd(255)),int(1+rnd(255)),int(1+rnd(255))
END_SUB

' *****************************************************************************
' Escargot.bas  par Papydall
' --------------------------
' Il s'agit de remplir un tableau avec les entiers consécutifs, en partant de la
' case en haut à gauche occupée par 1, et en tournant dans le sens de l'horloge,
' tout en longeant les bords déjà occupés, et en finissant au centre du tableau
' sur la dernière case vide.
' QUESTION : Comment trouver un algorithme pour resoudre ce problème ?
' ------------------------------------------------------------------------------
' Le problème peut être décrit autrement :
' Soit un tableau A de N lignes et P colonnes et X=1 placé dans la première case.
' On remplit alors, tant qu'elles sont vides, les cases de la première ligne (de gauche à droite),
' de la dernière colonne (de haut en bas), de la dernière ligne (de droite à gauche), et enfin de
' la première colonne (de bas en haut), avec X incrémenté à chaque fois.
' Puis on recommence avec le sous-tableau de N-2 lignes et P-2 colonnes encore
' libre et le X suivant la dernière valeur qui a été placée.
' -----------------------------------------------------------------------------
' Remarque : l'idée suivant laquelle on peut chercher une formulation du terme
' d'indice i et j dans A, constitue un autre algorithme qui, non seulement, risque
' d'être assez laborieux à analyser, mais encore n'apporterait pas d'amélioration
' au programme : il y aura toujours N*P "affectations".
' Il est beaucoup plus élégant de construire quatre tâches se succédant:
' Ligne_haute() ; Colonne_Gauche(); Ligne_Basse(); Colonne_Droite()

' *****************************************************************************

dim n, p, x, C,L,b
n = 24 : p = 16 : ' 24 lignes et 16 colonnes
full_space 0 : font_bold 0 : font_size 0,12
escargot(n, p) : caption 0,"Terminé"
end
' ****************************************************************************
SUB Escargot(n, p)
    x = 0 : Ligne_Haute(1, n, 1, p)
END_SUB
' ***************************************************************************
SUB ecrire(L, C)
    x = x + 1 : b=x:alpha b:left b,12*(5*C-4)
    width b,48:top b,24*L :caption b,string$(4-len(str$(x))," ")+str$(x)+" "
    color b,int(1+rnd(255)),int(1+rnd(255)),int(1+rnd(255))
END_SUB
' ****************************************************************************
SUB Ligne_Haute(L0, L1, C0, C1)
    for C = C0 to C1 : ecrire(L0, C) : next C
    if L0 < L1 then Colonne_Droite(L0 + 1, L1, C0, C1)
END_SUB
' ****************************************************************************
SUB Colonne_Gauche(L0, L1, C0, C1)
    for L = L1 to L0 step -1 :  ecrire(L, C0) : next L
    if C0 < C1 then Ligne_Haute(L0, L1, C0 + 1, C1)
END_SUB
' ****************************************************************************
SUB Ligne_Basse(L0, L1, C0, C1)
    for C = C1 to C0 step -1 : ecrire(L1, C) : next C
    if L0 < L1 then Colonne_Gauche(L0, L1 - 1, C0, C1)

END_SUB
' ****************************************************************************
SUB Colonne_Droite(L0, L1, C0, C1)
    for L = L0 to L1 : ecrire(L, c1): next L
    if C0 < C1 then Ligne_Basse(L0, L1, C0, C1 - 1)
END_SUB
' ***************************************************************************

2d_target_is 0:color 0,60,144,151
dim n,pas,mgbas,mght,mgg,mgd : ' pas et marges
dim x,y,xc,yc:xc=width(0)/2:yc=height(0)/2
dim fgstop
x=xc:y=yc:n=1:pas=3
mgbas=100:mght=mgbas:mgg=mght:mgd=mgg
2d_point x,y : 2d_poly_from x,y
repeat
       x=x+pas
       if x>width(0)-mgd then fgstop=1
       2d_poly_to x,y
       y=y+pas
       if y>height(0)-mght then fgstop=1
       2d_poly_to x,y
       pas=pas*(n+1)
       x=x-pas
       if x<mgg then fgstop=1
       2d_poly_to x,y
       y=y-pas
       if y<mgbas then fgstop=1
       pas=pas*(n+1)
       2d_poly_to x,y
until fgstop=1