Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les rsultats

Rsultat de la recherche



Poster un nouveau sujet Poster une rponse Page: 1,      >>
pendu
Auteur Message
tbmc
Invit
Post le : Mar 08 Jui 2010, 10:53   Citer 

Un morpion assez difficile gagner.



Code

EffDessin
GraphNAff
FonctNAff
AxesNAff
ZStandard
Lbl U
EffEcr
EffDessin
0V:0Y:0S:0R
0P
0U
Menu("DEBUT","JOUEUR",J,"ORDI",B,"2 JOUEURS",H,"QUITTER",Q)
Lbl H
1U
Goto 96
Lbl B
1Y:1V:1L(1
Goto 96
Lbl J
0Y:0V:0L(1
Lbl 96
EffEcr
EffDessin
0A:0B:0C:0:0K
0E:0F:0G:0H:0I:0J:0L:0M:0N:0Q
EffVar Y
EffVar Y
EffVar r
EffVar r
Horizontale 4
Horizontale 4
Verticale 4
Verticale 4

Lbl 0
0K:0:0A:0B
Horizontale 4
Horizontale 4
Verticale 4
Verticale 4


Lbl 1
If E0 et F0 et G0 et H0 et I0 et J0 et L0 et M0 et N0
Then
Texte(5,4,"MATCH NUL
Goto F
End
0A:0B:0C
If V=1
Then
0V
Goto A
End
0K
codeTouch(K
While K=0
codeTouch(K
End
If K=92 et E=0
Then
7A:7B:1E
End
If K=93 et F=0
Then
0A:7B:1F
End
If K=94 et G=0
Then
7A:7B:1G
End
If K=82 et H=0
Then
7A:0B:1H
End
If K=83 et I=0
Then
0.1A:0.1B:1I
End
If K=84 et J=0
Then
7A:0B:1J
End
If K=72 et L=0
Then
7A:7B:1L
End
If K=73 et M=0
Then
0A:7B:1M
End
If K=74 et N=0
Then
7A:7B:1N
End
If K<72 ou K>94 ou (A=0 et B=0)
Then
codeTouch(K
Goto 1
End
partEnt(A)A
partEnt(B)B
Ligne(A+2,B+2,A-2,B-2
Ligne(A+2,B-2,A-2,B+2
If ((E=1)(F=1)(G=1)) ou ((H=1)(I=1)(J=1)) ou ((E=1)(H=1)(L=1)) ou ((F=1)(I=1)(M=1)) ou ((G=1)(J=1)(N=1)) ou ((L=1)(M=1)(N=1))
Then
If U=0:Texte(5,4,"VOUS AVEZ GAGNE")
If U=1:Texte(5,4,"JOUEUR 1 GAGNE
P+1P
Goto F
End
If ((E=1)(I=1)(N=1)) ou ((G=1)(I=1)(L=1))
Then
If U=0:Texte(5,4,"VOUS AVEZ GAGNE")
If U=1:Texte(5,4,"JOUEUR 1 GAGNE
P+1P
Goto F
End
Lbl A
Horizontale 4
Horizontale 4
Verticale 4
Verticale 4
If E0 et F0 et G0 et H0 et I0 et J0 et L0 et M0 et N0
Then
Texte(5,4,"MATCH  NUL
Goto F
End
If U=0
Then
If E=0:1C
If F=0:2C
If G=0:3C
If H=0:4C
If I=0:5C
If J=0:6C
If L=0:7C
If M=0:8C
If N=0:9C

If E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0
Then
If C>5:7C
If C<6:5C
End
If I=1 et E=0 et F=0 et G=0 et H=0 et J=0 et L=0 et M=0 et N=0:9C
If I=1 et E=1 et N=2 et F=0 et G=0 et H=0 et J=0 et L=0 et M=0:7C
If L=1 et E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et M=0 et N=0:5C
If N=1 et E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0:5C
If E=1 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0:5C
If G=1 et E=0 et F=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0:5C
If E=1 et F=1 et G=0
Then
3C
End
If E=1 et F=0 et G=1
Then
2C
End
If E=0 et F=1 et G=1
Then
1C
End
If H=1 et I=1 et J=0
Then
6C
End
If H=1 et I=0 et J=1
Then
5C
End
If H=0 et I=1 et J=1
Then
4C
End
If L=1 et M=1 et N=0
Then
9C
End
If L=1 et M=0 et N=1
Then
8C
End
If L=0 et M=1 et N=1
Then
7C
End
If E=1 et H=1 et L=0
Then
7C
End
If E=1 et H=0 et L=1
Then
4C
End
If E=0 et H=1 et L=1
Then
1C
End
If F=1 et I=1 et M=0
Then
8C
End
If F=1 et I=0 et M=1
Then
5C
End
If F=0 et I=1 et M=1
Then
2C
End
If G=1 et J=1 et N=0
Then
9C
End
If G=1 et J=0 et N=1
Then
6C
End
If G=0 et J=1 et N=1
Then
3C
End
If E=1 et I=1 et N=0:9C
If E=1 et I=0 et N=1:5C
If E=0 et I=1 et N=1:1C
If G=1 et I=1 et L=0:7C
If G=1 et I=0 et L=1:5C
If G=0 et I=1 et L=1:3C
If E=2 et F=2 et G=0:3C
If E=2 et F=0 et G=2:2C
If E=0 et F=2 et G=2:1C
If H=2 et I=2 et J=0:6C
If H=2 et I=0 et J=2:5C
If H=0 et I=2 et J=2:4C
If L=2 et M=2 et N=0:9C
If L=2 et M=0 et N=2:8C
If L=0 et M=2 et N=2:7C
If E=2 et H=2 et L=0:7C
If E=2 et H=0 et L=2:4C
If E=0 et H=2 et L=2:1C
If F=2 et I=2 et M=0:8C
If F=2 et I=0 et M=2:5C
If F=0 et I=2 et M=2:2C
If G=2 et J=2 et N=0:9C
If G=2 et J=0 et N=2:6C
If G=0 et J=2 et N=2:3C
If F=2 et I=2 et L=0:7C
If F=2 et I=0 et L=2:5C
If F=0 et I=2 et L=2:3C
If E=2 et I=2 et N=0:9C
If E=2 et I=0 et N=2:5C
If E=0 et I=2 et N=2:1C
End

If U=1
Then
0K
codeTouch(K
While K=0
codeTouch(K
End
If K=92:1C
If K=93:2C
If K=94:3C
If K=82:4C
If K=83:5C
If K=84:6C
If K=72:7C
If K=73:8C
If K=74:9C
End
0K
If (C=1)(E=0)
Then
2E:1K
Cercle(7,7,2,{
End
If (C=2)(F=0)
Then
2F:1K
Cercle(0,7,2,{
End
If (C=3)(G=0)
Then
2G:1K
Cercle(7,7,2,{
End
If (C=4)(H=0)
Then
2H:1K
Cercle(7,0,2,{
End
If (C=5)(I=0)
Then
2I:1K
Cercle(0,0,2,{
End
If (C=6)(J=0)
Then
2J:1K
Cercle(7,0,2,{
End
If (C=7)(L=0)
Then
2L:1K
Cercle(7,7,2,{
End
If (C=8)(M=0)
Then
2M:1K
Cercle(0,7,2,{
End
If (C=9)(N=0)
Then
2N:1K
Cercle(7,7,2,{
End
If K=0
Then
Goto A
End
Lbl 68
If ((E=2)(F=2)(G=2)) ou ((H=2)(I=2)(J=2)) ou ((L=2)(M=2)(N=2)) ou ((L=2)(H=2)(E=2)) ou ((F=2)(I=2)(M=2)) ou ((G=2)(J=2)(N=2)) ou ((E=2)(I=2)(N=2)) ou ((G=2)(I=2)(L=2))
Then
If U=0:Texte(5,4,"VOUS AVEZ PERDU")
If U=1:Texte(5,4,"JOUEUR 2 GAGNE
P-1P
Goto F
End
If V=1
Then
Goto 1
End



Goto 0
Lbl Q
Stop
Lbl F
0K
Repeat K0
codeTouch(K
End
If K=45 ou K=23
Then
EffEcr
EffDessin
Stop
End
If P>O
Then
PL(2)
End

L(1)Q
If Q=1:1Y
If Q=0:0Y
If Y=1:Goto J
If Y=0:Goto B



  Haut de page Bas de page 
 
tbmc
Invit
Post le : Mar 08 Jui 2010, 10:57   Citer 

Et voila le pendu.


Code


Lbl Z
0Z
Menu("PENDU ","1 JOUEUR",E,"ENTRER MOT",F,"QUITTER",Q
Lbl F
EffEcr
Lbl Y
Disp "MAX CARACTERE:",7
Disp "MOT A FAIRE"
Input "DEVINER: ",Chane3
longueur(Chane3)A
If A>7
Then
Disp "MOT TROP LONG"
Goto Y
End
1Z
Lbl E
0X
Lbl B
If Z=1:Goto A
{0,0,0,0,0,0,0,0,0}EA
entAlat(1,5)X
If X=1 et EA(1)=0
Then
"PORTE"Chane3
1EA(1
Goto A
End
If X=1 et EA(1)=1:X+1X
If X=2 et EA(2)=0
Then
"ROBOT"Chane3
1EA(2
Goto A
End
If X=2 et EA(2)=1:X+1X
If X=3 et EA(3)=0
Then
"CHIEN"Chane3
1EA(3
Goto A
End
If X=3 et EA(3)=1:X+1X
If X=4 et EA(4)=0
Then
"CHAISE"Chane3
1EA(4
Goto A
End
If X=4 et EA(4)=1:X+1X
If X=5 et EA(5)=0
Then
"TABLEAU"Chane3
1EA(5
Goto A
End
If X=5 et EA(5)=1:1X
If X>10:Goto B
Lbl A
EffEcr
0E:10F
" "Chane0
" "Chane1
" "Chane2
" "Chane5
" "Chane6
" "Chane7
" "Chane8
" "Chane9
longueur(Chane3)A
"-"Chane1
If A2:"-"Chane2
If A3:"-"Chane5
If A4:"-"Chane6
If A5:"-"Chane7
If A6:"-"Chane8
If A7:"-"Chane9
Chane1Chane0
If A>1
Then
1V
Repeat A=V
Chane0+Chane1Chane0
V+1V
End
End
0D
Lbl 2
EffEcr
Output(4,1,"MOT MYSTERE:"
Disp "LONGUEUR:"
Output(1,15,A
Output(5,1,Chane0
1D
carChane(Chane0,"-",1)D
If D=0
Then
Disp "GAGNER
Pause
If Z=1:Goto Z
Goto B
End
Output(8,1,"COUPS RESTANT:"
Output(8,15,F
Input "LETTRE: ",Chane4
sous-Chane(Chane4,1,1)Chane4
1B
Lbl 1
carChane(Chane3,Chane4,B)C
If C0
Then
C+1B
If C=1:Chane4Chane1
If C=2:Chane4Chane2
If C=3:Chane4Chane5
If C=4:Chane4Chane6
If C=5:Chane4Chane7
If C=6:Chane4Chane8
If C=7:Chane4Chane9
Chane1Chane0
If A2:Chane0+Chane2Chane0
If A3:Chane0+Chane5Chane0
If A4:Chane0+Chane6Chane0
If A5:Chane0+Chane7Chane0
If A6:Chane0+Chane8Chane0
If A7:Chane0+Chane9Chane0
1E
Goto 1
End
If E=0:F-1F
If F=0
Then
Disp "PREDU
Stop
End
0E
Goto 2
Lbl Q



  Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2172
Inscrit le : Sam 23 Jan 2010, 20:09
Post le : Mar 08 Jui 2010, 11:19   Citer 

joli!!
j'ai pas le temps de recopier l, mais je testerai.

le pendu, c'est une ide originale.
le morpion en intelligence artificiele, chapeau!

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2172
Inscrit le : Sam 23 Jan 2010, 20:09
Post le : Mar 08 Jui 2010, 22:18   Citer 

l je suis en train de recopier, et ... c'est trs long et surtout rptitif.
A l'avenir utilise plus d'algorithmes pour allger tes progs.
je sais, c'est difficile au dbut mais on s'y fait!

 Adresse email Haut de page Bas de page 
 
tbmc
Invit
Post le : Mar 08 Jui 2010, 23:49   Citer 

C'est ce que j'essaye de faire d'habitude mais la je voit pas comment le simplifier.

  Haut de page Bas de page 
 
tbmc
Invit
Post le : Mar 08 Jui 2010, 23:58   Citer 

Et pour ceux qui ne le savent pas le

Code


C'est le "i" en italique situe sur le point

  Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2172
Inscrit le : Sam 23 Jan 2010, 20:09
Post le : Mer 09 Jui 2010, 10:16   Citer 

bien. je croyais que tu ne savis pas.
j'ai arrt de recopier hier, je vais continuer aujourd'hui.

juste un truc pour silmplifier:
If E=0 peut s'crire If non(E
If E=1 peut s'crire juste If E (dans le sens ou E n'est pas nul)

If ((E=1)(F=1)(G=1)) ou ((H=1)(I=1)(J=1)) ou ((E=1)(H=1)(L=1)) ou ((F=1)(I=1)(M=1)) ou ((G=1)(J=1)(N=1)) ou ((L=1)(M=1)(N=1))
peut s'crire:
IF EFG ou HIJ ou EHL ou FIM ou GJN ou LMN et a simplifie vachement.

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2172
Inscrit le : Sam 23 Jan 2010, 20:09
Post le : Mer 09 Jui 2010, 10:19   Citer 

d'ailleurs

If E0 et F0 et G0 et H0 et I0 et J0 et L0 et M0 et N0

peut s'crire
If EFGHIJLMN

et
If E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0

peut s'crire
If non(EFGHIJLMN)

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2172
Inscrit le : Sam 23 Jan 2010, 20:09
Post le : Mer 09 Jui 2010, 10:21   Citer 

non!! excuse!! norme erreur!


Citer

If E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0

peut s'crire
If non(EFGHIJLMN)



c'est faux!
a s'crit If non(E+F+G+H+I+J+L+M+N)

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2172
Inscrit le : Sam 23 Jan 2010, 20:09
Post le : Mer 09 Jui 2010, 10:31   Citer 

d'ailleurs tu n'as pas besoin de mettre les then et les end si ton if n'a qu'une seule opration contenir:

If E=1 et F=1 et G=0:
Then
3->C
End

s'crit
If E=1 et F=1 et G=0:3->C

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2172
Inscrit le : Sam 23 Jan 2010, 20:09
Post le : Mer 09 Jui 2010, 10:45   Citer 

j'abandonne. je suis flemmard de nature.
si tu veux que ton prog soit utilis, une version tlchargeable serait la bienvenue.(en tout cas pour le morpion).

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2172
Inscrit le : Sam 23 Jan 2010, 20:09
Post le : Mer 09 Jui 2010, 10:53   Citer 

maitenant je suis au pendu, il me met err syntaxe {0,0,0,0,0,0,0,0,0,0}->EA

(j'ai bien remplac par le i au dessus du point.)

tu est sur que ce i ne serait pas plutt le l de liste ([2nde][0][)][enter])

 Adresse email Haut de page Bas de page 
 
tbmc
Invit
Post le : Mer 09 Jui 2010, 12:20   Citer 

Pour le pendu le "" c'est dans le menu liste le 2e et tout en bas

  Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2172
Inscrit le : Sam 23 Jan 2010, 20:09
Post le : Mer 09 Jui 2010, 15:07   Citer 

ok dac c'est bien ce que je pensais.

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2172
Inscrit le : Sam 23 Jan 2010, 20:09
Post le : Mer 09 Jui 2010, 16:53   Citer 

voil un morpion moi, inspir de plusieurs morpions dj existants, mais sans IA.
si tu veux tu peux essayer de rajouter l'IA sur mon prog qui est quand mme plus simple.


Code

AxesNaff
0->S:0->R
1->P
Lbl Z
0->Y
EffDessin
PleinEcr
0->Xmin
50->Xmax
0->Ymin
30->Ymax
Ligne(0,10,30,10
Ligne(0,20,30,20
Ligne(10,2,10,29
Ligne(20,2,20,29
Verticale 35
Ligne(35,0,50,0
Ligne(35,30,50,30
1->C:1->D
2->A:2->B
0->T
If partDc(P/2):1->T
{3,3}->dim([A]
For(K,1,3
For(G,1,3
0->[A](K,G)
End
End
Texte(10,85,"J.1"
Texte(52,85,"J.2"
Repeat 0
codeTouche->K
If K>=24 et K =<26 ou K=34:Then
A->C:B->D
End
If K=24:A-1->A
If K=25:B+1->B
If K=26:A+1->A
If K=34:B-1->B
If A=0:3->A
If B=0:3->B
If A=4:1->A
If B=4:1->B
Ligne(10C-1,10D-1,10C-1,10D-9,0
Ligne(10C-9,10D-1,10C-1,10D-1,0
Ligne(10C-9,10D-9,10C-1,10D-9,0
Ligne(10C-9,10D-9,10C-9,10D-1,0
Ligne(10A-1,10B-1,10A-1,10B-9
Ligne(10A-9,10B-1,10A-1,10B-1
Ligne(10A-9,10B-9,10A-1,10B-9
Ligne(10A-9,10B-9,10A-9,10B-1
Texte(28,69,"PARTIE :"
Texte(34,75,P
Texte(10,70,S
Texte(52,70,R
Ligne(44,22,50,22,T
Ligne(44,1.5,50,1.5,non(T
If K=45:Goto Q
If K=105 et [A](A,B):0->K
If K=105 et T=1:Then
1->[A](A,B)
Ligne(10A-8,10B-2,10A-2,10B-8
Ligne(10A-8,10B-8,10A-2,10B-2
End
If K=105 et T=0:Then
Cercle(10A-5,10B-5,3
2->[A](A,B)
End
If K=105:non(T->T
[A](1,1)->J
[A](1,2)->K
[A](1,3)->L
[A](2,1)->M
[A](2,2)->E
[A](2,3)->F
[A](3,1)->G
[A](3,2)->H
[A](3,3)->I
If JKL=1 ou MEF=1 ou GHI=1 ou JMG=1 ou KEH=1 ou LFI=1 ou JEI=1 ou LEG=1
Then
Ligne(0,12,50,12
For(K,12.5,18.5,0.5
Ligne(0,K,50,K,0
End
Ligne(0,19,50,19
Texte(28,20,"JOUEUR 1 GAGNE!"
P+1->P
S+1->S
1->Y
Pause
End
If JKL=8 ou MEF=8 ou GHI=8 ou JMG=8 ou KEH=8 ou LFI=8 ou JEI=8 ou LEG=8
Then
Ligne(0,12,50,12
For(K,12.5,18.5,0.5
Ligne(0,K,50,K,0
End
Ligne(0,19,50,19
Texte(28,20,"JOUEUR 2 GAGNE!"
P+1->P
R+1->R
1->Y
Pause
End
If non(Y) et J+K+L+M+E+F+G+H+I>=13:Then
Ligne(0,12,50,12
For(K,12.5,18.5,0.5
Ligne(0,K,50,K,0
End
Ligne(0,19,50,19
Texte(28,32,"RATE!!"
P+1->P
1->Y
Pause
End
If Y:Goto Z
End
Lbl Q
EffDessin
EffEcr
ZStandard
AxesAff
EffVar [A]
EffVar A:EffVarB: etc...,C,D,E,F,G,H,I,J,K,L,M,P,R,S,T,Y
Output(1,1,"




vu que j'ai pas arrt de te trasher, fais pareil pour moi!

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2172
Inscrit le : Sam 23 Jan 2010, 20:09
Post le : Mer 09 Jui 2010, 17:19   Citer 

rflexion sur le pendu:
j'ai recopi ton prog, j'ai essay, et quand je cherche deviner le mot il crit longueur: 1 alors que ce que j'avais rentr tait plus long, et quand je rentre les bonnes lettres, il ne les affiche pas.
idem quand la calto tire un mot au sort.
je ne crois pas avoir fait d'erreur.
as tu test ton prog?

si oui, j'ai du mal recopier quelque chose.

 Adresse email Haut de page Bas de page 
 
tbmc
Invit
Post le : Mer 09 Jui 2010, 17:43   Citer 

Ouais je l'ai teste et normalement il marche tres bien

  Haut de page Bas de page 
 
tbmc
Invit
Post le : Mer 09 Jui 2010, 17:49   Citer 

Pour le morpion, l'IA c'est 80% du programme

  Haut de page Bas de page 
 
tbmc
Invit
Post le : Mer 09 Jui 2010, 17:55   Citer 

Je veut bien mettre une version telechargeable pour le morpion mais j sais pas trop comment on fait
Et si ta des problmes pour recopier le pendu n'site pas a demander.

  Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2172
Inscrit le : Sam 23 Jan 2010, 20:09
Post le : Mer 09 Jui 2010, 18:17   Citer 

dac.
je pose pas tout de suite, parce que la j'tais sur le site toute la journe et je commence avoir mal aux yeux.

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une rponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2017 Groupe FSB
Page gnre en 9 requtes
BlackOne par Grimmlink
 

Site hberg par Free Page sous licence creative commons Page valide par le W3C (XHTML 1.0 Transitional) Feuille de style valide par le W3C Flux RSS 2.0 valide Page tiquete par l'ICRA Page teste par Ocawa