π
<-
Chat plein-écran
[^]

fx-92(+) jeu tic tac toe

:fxesp32b: :fxesp32n: :fxesp32v:

fx-92(+) jeu tic tac toe

Unread postby ptitjoz » 24 Aug 2019, 18:52

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 !)

Image


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 !
User avatar
ptitjozProg.
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Level up: 49.6%
 
Posts: 140
Images: 0
Joined: 17 Oct 2018, 15:38
Location: France Loir et Cher
Gender: Not specified
Calculator(s):
Twitter: @PtitJoz

Re: fx-92(+) jeu tic tac toe

Unread postby critor » 24 Aug 2019, 20:47

Un tic-tac-toe graphique, tout ça en moins de 100 lignes, bravo ! :bj:
Image
User avatar
critorAdmin.
Niveau 18: DC (Deus ex Calculatorum)
Niveau 18: DC (Deus ex Calculatorum)
Level up: 95.2%
 
Posts: 32844
Images: 8599
Joined: 25 Oct 2008, 00:00
Location: Montpellier
Gender: Male
Calculator(s):
Class: Lycée
YouTube: critor3000
Twitter: critor2000
Facebook: critor.ti

Re: fx-92(+) jeu tic tac toe

Unread postby ptitjoz » 24 Aug 2019, 21:04

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


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.
User avatar
ptitjozProg.
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Level up: 49.6%
 
Posts: 140
Images: 0
Joined: 17 Oct 2018, 15:38
Location: France Loir et Cher
Gender: Not specified
Calculator(s):
Twitter: @PtitJoz


Return to Casio (fx-82/83/85/92/95/115/300/350/500/570/991, Collège)

Who is online

Users browsing this forum: No registered users and 0 guests

-
Search
-
Featured topics
Comparaisons des meilleurs prix pour acheter sa calculatrice !
1
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...

Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety 
-
Stats.
450 utilisateurs:
>435 invités
>10 membres
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)