Exercice algorithmique amusant. Je l'ai traité en classe.
J'ai envie de l'improviser ici en TI-Basic immédiatement. La manière de redessiner l'écran est implémentée d'une manière peu satisfaisante. Ce programme démarre à partir de la matrice [A] déjà remplie donc on peut poursuivre un motif après un arrêt normal (n'importe quelle touche sauf On et entrer). La matrice [B] est seulement un tampon.
Code
{63,95->dim([A]
ClrDraw
For(A,0,62
For(B,0,94
Pt-On(B,A,[A](A+1,B+1
End
End
Repeat K-105
[A]->[B]
Repeat K // fait office de pause (mais la calculatrice travaille)
getKey->K
End
For(A,1,63
For(B,1,95
0->X
For(C,A-1,A+1
For(D,B-1,B+1
If C>0 and C<64 and D>0 and D<96
X+[B](C,D->X
End
End
If 2>X-[B](A,B
Then
0->[A](A,B
Pt-Off(B-1,A-1
End
If 2<X-[B](A,B
Then
1->[A](A,B
Pt-On(B-1,A-1
End
End
End
End
)