π
<-
Chat plein-écran
[^]

fx-92(+) jeu tic tac toe

:fxesp32b: :fxesp32n: :fxesp32v:

fx-92(+) jeu tic tac toe

Unread postby ptijoz » 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 !
Un peu poète, un peu geek, un peu écolo
User avatar
ptijoz
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 32.6%
 
Posts: 333
Images: 0
Joined: 17 Oct 2018, 15:38
Location: France Loir et Cher
Gender: Male
Calculator(s):
MyCalcs profile
Class: a la poursuite du vent et des etoiles.

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 19: CU (Créateur Universel)
Niveau 19: CU (Créateur Universel)
Level up: 42.4%
 
Posts: 41497
Images: 14640
Joined: 25 Oct 2008, 00:00
Location: Montpellier
Gender: Male
Calculator(s):
MyCalcs profile
YouTube: critor3000
Twitter: critor2000
GitHub: critor

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

Unread postby ptijoz » 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.
Un peu poète, un peu geek, un peu écolo
User avatar
ptijoz
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Level up: 32.6%
 
Posts: 333
Images: 0
Joined: 17 Oct 2018, 15:38
Location: France Loir et Cher
Gender: Male
Calculator(s):
MyCalcs profile
Class: a la poursuite du vent et des etoiles.


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 22 guests

-
Search
-
Social TI-Planet
-
Featured topics
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...
Donate
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 Calculatrices à acheter chez Calcuso
-
Stats.
1322 utilisateurs:
>1297 invités
>20 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)