Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Morpion vs IA
Auteur Message
moppo
Invité
Posté le : Mar 23 Sep 2008, 20:27   Citer 

Bonjour !

Je viens pour poster un programme que j'ai fait : un morpion contre la calculatrice (avec IA).

Le code fait un peu plus de 2500 octets, mais je ne pense pas pouvoir gagner plus de 100-150 octets en modifiant certaines parties, mais ce serait long, trop chiant et sans grand intérêt au final...
Etant donné que je ne sais pas très bien utiliser les listes et les matrices pour faire de genre de programmes, j'ai préféré utiliser simplement des variables pour coder l'IA.

Le code est assez long, mais c'est parce que j'ai du faire pas mal de rallonges pour que l'IA soit parfaite (aussi bien dans les différentes possibilités pour gagner que pour la prise en compte des situation ou le joueur joue bizarrement).

L'exécution du programme étant très rapide (la calcu met mois d'une demi-seconde pour jouer), je n'ai pas cherché à suppr les then/else, ce qui aurait entrainé une augmentation de la taille du prgm...

Voici le code :



Code
0üD
0üJ
0üH
0üE
0üA
0üO
0üP
0üQ
0üT
0üU
0üV
0üY
0üZ
0üÁ
0üC
ClrHome
Output(1,1,"                    +-+-+-+         ! ! ! !         +-+-+-+         ! ! ! !         +-+-+-+         ! ! ! !         +-+-+-+
int(2randüL
If L=1
Goto J
If L=0
Goto H
Lbl 1
If (OP=4 or VÁ=4 or UY=4) and Q=0
Then
2üQ
Output(3,10,"X
Goto W
End
If (OT=4 or ÁZ=4 or UQ=4) and Y=0
Then
2üY
Output(7,6,"X
Goto W
End
If (QP=4 or TY=4 or UÁ=4) and O=0
Then
2üO
Output(3,6,"X
Goto W
End
If (YZ=4 or QV=4 or OU=4) and Á=0
Then
2üÁ
Output(7,10,"X
Goto W
End
If (UP=4 or YÁ=4) and Z=0
Then
2üZ
Output(7,8,"X
Goto W
End
If (OQ=4 or UZ=4) and P=0
Then
2üP
Output(3,8,"X
Goto W
End
If (QÁ=4 or TU=4) and V=0
Then
2üV
Output(5,10,"X
Goto W
End
If (OY=4 or UV=4) and T=0
Then
2üT
Output(5,6,"X
Goto W
End
If (OÁ=4 or QY=4) and U=0
Then
2üU
Output(5,8,"X
Goto W
End
If A=2:Goto A2
If D=2:Goto D2
Lbl 2
If (OP=1 or VÁ=1 or UY=1) and Q=0
Then
2üQ
Output(3,10,"X
End
If (OT=1 or ÁZ=1 or UQ=1) and Y=0
Then
2üY
Output(7,6,"X
End
If (QP=1 or TY=1) and O=0
Then
2üO
Output(3,6,"X
End
If (YZ=1 or QV=1) and Á=0
Then
2üÁ
Output(7,10,"X
End
If (UP=1 or YÁ=1) and Z=0
Then
2üZ
Output(7,8,"X
End
If (OQ=1 or UZ=1) and P=0
Then
2üP
Output(3,8,"X
End
If (QÁ=1 or TU=1) and V=0
Then
2üV
Output(5,10,"X
End
If (OY=1 or UV=1) and T=0
Then
2üT
Output(5,6,"X
End
If E=4:Goto E4
If J=3:Goto J3
If J=5:Goto J5
If J=7:Goto J7
Lbl 3
Output(1,1,"A VOUS DE JOUER
0üC
While Cø92 and Cø93 and Cø94 and Cø82 and Cø83 and Cø84 and Cø72 and Cø73 and Cø74
getKeyüC
End
If C=92 and Y=0
Then
Output(7,6,0
1üY
End
If C=93 and Z=0
Then
Output(7,8,0
1üZ
End
If C=94 and Á=0
Then
Output(7,10,0
1üÁ
End
If C=82 and T=0
Then
Output(5,6,0
1üT
End
If C=83 and U=0
Then
Output(5,8,0
1üU
End
If C=84 and V=0
Then
Output(5,10,0
1üV
End
If C=72 and O=0
Then
Output(3,6,0
1üO
End
If C=73 and P=0
Then
Output(3,8,0
1üP
End
If C=74 and Q=0
Then
Output(3,10,0
1üQ
End
If J=1:Goto J1
If J=2:Goto J2
If J=4:Goto J4
If J=8:Goto J8
If J=6:Goto J6
If H=2:Goto H2
If A=1:Goto A1
If A=3:Goto 1
If D=1:Goto D1
If D=4:Goto 1
If E=1:Goto E1
If E=2:Goto E2
If E=3:Goto E3
Lbl 4
If P+V+Q=0
Then
2üQ
Output(3,10,"X
Goto M
End
If Z+V+Á=0
Then
2üÁ
Output(7,10,"X
Goto M
End
If Z+Y+T=0
Then
2üY
Output(7,6,"X
Goto M
End
If T+O+P=0
Then
2üO
Output(3,6,"X
End
Lbl M
If D=3:Goto D3
If D=5:Goto D5
Lbl W
Disp "TU AS PERDU ! 
Stop
Lbl J
1üJ
Goto 3
Lbl J1
If U=0
Then
2üU
Output(5,8,"X
Else
2üO
Output(3,6,"X
End
2üJ
Goto 3
Lbl J2
3üJ
Goto 2
Lbl J3
If O+P+Q+V+U+T+Á+Z+Y=4
Goto I1
Lbl I2
4üJ
Goto 3
Lbl J4
5üJ
Goto 1
Lbl J5
If O+P+Q+V+U+T+Á+Z+Y=7
Goto I3
Lbl I4
6üJ
Goto 3
Lbl J6
7üJ
Goto 1
Lbl J7
If O+P+Q+V+U+T+Á+Z+Y=10
Goto I3
Lbl I6
8üJ
Goto 3
Lbl J8
Disp "MATCH NUL     
Stop
Lbl I1
If (OÁ=1 or QY=1)
Then
2üZ
Ouptut(7,10,"X
Goto I2
End
If UÁ=1
Then
2üY
Output(7,6,"X
Goto I2
End
If P+O+T+Y+Á=2
Then
2üO
Output(3,6,"X
Goto I2
End
If P+Q+V+Á+O=2
Then
2üQ
Output(3,10,"X
Goto I2
End
If V+Á+Z+Y+Q=2
Then
2üÁ
Output(7,10,"X
Goto I2
End
If Z+Y+T+O+Á=2
Then
2üY
Output(7,6,"X
Goto I2
End
If PV=1
Then
2üQ
Output(3,10,"X
End
If VZ=1
Then
2üÁ
Output(7,10,"X
End
If ZT=1
Then
2üY
Output(7,6,"X
End
If TP=1
Then
2üO
Output(3,6,"X
End
Goto I2
Lbl I3
If P=0
Then
2üP
Output(3,8,"X
If J=5
Goto I4
If J=6
Goto I6
End
If V=0
Then
2üV
Output(5,10,"X
If J=5
Goto I4
If J=6
Goto I6
End
If Z=0
Then
2üZ
Output(7,8,"X
If J=5
Goto I4
If J=6
Goto I6
End
If T=0
Then
2üT
Output(5,6,"X
If J=5
Goto I4
If J=6
Goto I6
End
Lbl H
2üO
Output(3,6,"X
2üH
Goto 3
Lbl H2
0üH
If U=1
Goto E
If Q+Y+Á=1
Goto D
2üU
Output(5,8,"X
1üA
Goto 3
Lbl A1
2üA
Goto 1
Lbl A2
If Á=1
Then
If P=1 or Z=1
2üY
If P=1 or Z=1
Output(7,6,"X
If T=1 or V=1
2üQ
If T=1 or V=1
Output(3,10,"X
End
3üA
Goto 3
Lbl D
If Y=0
Then
2üY
Output(7,6,"X
Else
2üQ
Output(3,10,"X
End
1üD
Goto 3
Lbl D1
2üD
Goto 1
Lbl D2
5üD
Goto 4
Lbl D5
4üD
Goto 3
Lbl D4
Goto 1
Lbl E
2üÁ
Output(7,10,"X
1üE
Goto 3
Lbl E1
2üE
Goto 2
Lbl E2
3üE
Goto 3
Lbl E3
4üE
Goto 1
Lbl E4
5üE
Goto 2
Lbl E5
6üE
Goto 3
Lbl E6
7üE
Goto 1
Lbl E7
Disp "MATCH NUL     
Stop



Et voici l'adresse pour télécharger le .83p :
http://www.megaupload.com/?d=0B98DCVQ

  Haut de page Bas de page 
 
T3rrAvUs
Invité
Posté le : Mer 01 Oct 2008, 17:22   Citer 

slt
je suis entrain de recopier le programe ds ma calto mais je trouve pa la fonction "à" en majuscule...
qq pourrait m'aider?
merci

  Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Mer 01 Oct 2008, 18:25   Citer 

Ta réponse se trouve ici : http://tout82.free.fr/forum/sujet.php?sujet=1323

@+ Le Webmaster beer.gif

----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
T3rrAvUs
Invité
Posté le : Jeu 02 Oct 2008, 20:54   Citer 

ok
j'ai remplacé les "a majuscule avec accent" par des "différents de" mais ça me parait bizzare :


Code
:If Y+Z+"différent de"=1




ça serait pas plutot une variable ?

  Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Jeu 02 Oct 2008, 21:39   Citer 

Si c'est thêta.

a+

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
lunatik
Invité
Posté le : Mer 22 Oct 2008, 16:32   Citer 

J'arrive pas a trouver les "!" comment fait-on pour les taper?

  Haut de page Bas de page 
 
Sel666



Autorisation : Membre
Nb de messages : 23
Inscrit le : Mar 14 Oct 2008, 18:26
Posté le : Mer 22 Oct 2008, 17:07   Citer 

[MATHS] et c'est daans le derniere rubrique.

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa