Forum TI-Planet.org

Préalable
en mode algorithmique mettre option fond écran aucun

La Machine joue toujours en premier et signale la case jouée par une croix

Ensuite le processus suivant se répète 4 fois même si la partie est gagnée ou perdue

Une question A? Il faut rentrer la colonne de 1 à 3 en partant de la gauche
Une question B? Il faut rentrer la ligne de 1 à 3 en partant du bas
Une fois validée un carré s’affiche
Ensuite la machine rejoue dans une case inoccupée (c’est le seul truc intelligent qu’elle sait faire !)




Dans cette version la machine ne s’arrête pas s’il y a un gagnant en cours de partie
Il n’y a pas de contrôle qui vérifie que le joueur ne joue pas sur une case déjà occupée.

Quand la partie est terminée une étoile tourne indéfiniment (ou presque…)
c’est pour éviter que la machine ne s’éteigne… au bout de 10 minute ou 1 heure
attention à ne pas user la pile si ça tourne plusieurs jours
voir code généré par qrcode

voici le lien du code

Code: Select all

Style Croix
Aller à x=0; y=－21
Répéter4
Stylo écrit
Aller à x=42; y=y
Stylo relevé
Aller à x=0; y=y＋14
⤴
Aller à x=0; y=－21
Répéter4
Stylo écrit
Aller à x=x; y=21
Stylo relevé
Aller à x=x＋14; y=－21
⤴
Aller à x=0; y=50
0→C
RanInt#(1;3)→A
RanInt#(1;3)→B
3(A－1)＋B→C
10^(C)÷10→M
Stylo relevé
Aller à x=14A－11; y=14B－32
Stylo écrit
Aller à x=x＋8; y=y＋8
Stylo relevé
Aller à x=x－8; y=y
Stylo écrit
Aller à x=x＋8; y=y－8
Stylo relevé
Aller à x=0; y=50
Répéter4
0→F
? →A
? →B
3(A－1)＋B→C
10^(C)÷10＋M→M
Stylo relevé
Aller à x=14A－11; y=14B－32
Stylo écrit
Répéter4
Avancer de8pixels
Tourner de↺90degrés
⤴
Stylo relevé
Aller à x=0; y=50
Répéter jusqu'à F=1
RanInt#(1;3)→A
RanInt#(1;3)→B
3(A－1)＋B→C
Ent(M÷10^(C－1))÷10→D
10(D－Ent(D))→D
SiD=0Alors
10^(C)÷10＋M→M
1→F
Stylo relevé
Aller à x=14A－11; y=14B－32
Stylo écrit
Aller à x=x＋8; y=y＋8
Stylo relevé
Aller à x=x－8; y=y
Stylo écrit
Aller à x=x＋8; y=y－8
Stylo relevé
Aller à x=0; y=50
Fin
⤴
⤴
Aller à x=60; y=0
Style Flèche
Répéter10000
Répéter10000
Répéter10000
Tourner de↺45degrés
⤴
⤴
⤴



à vous d'améliorer pour que la machine soit un peu plus intelligente !

Un tic-tac-toe graphique, tout ça en moins de 100 lignes, bravo !

critor wrote:Un tic-tac-toe graphique, tout ça en moins de 100 lignes, bravo !

Merci
si on enlève les 3 dernières boucles qui ne servent qu'à maintenir la machine en vie.. on est à 70 lignes environ
je pense que la limite est de 150 lignes environ mais je ne sais pas comment calculer cela

mais on aurait plus faire mieux sans les limitations des boucles ou des conditions imbriquées et beaucoup mieux si on pourrait faire soit des fonctions ou des sous-programmes.
On est quand même limité et du coup ça complique les affaires et le programme souffre de lacunes... mais en cherchant on peut trouver des astuces.