Forum TI-Planet.org

Bonjour, bonsoir.
J'étais entrain de faire un programme mais lors de l'enregistrer / le transférer vers ma calculatrice ( Ti 83 premium CE ), ce message si apparait:
http://imgur.com/TKur5NN
Je ne sais pas si l'erreur viens de mon programme ou du logiciel.
Je vous met le programme:

Code: Select all

EffÉcran
Lbl N
1→L
0→I
0→K
EffÉcran
Menu("    TROUVE X    ","1 JOUEUR",1,"2 JOUEUR",2,"QUITTER",Ø)
Lbl 2
2→J
Lbl 4
Menu("    X ENTRE     ","1 et 100",5,"1 et 1000",6,"1 et 10000",7,"PERSONALISE",8)
Lbl 5
100→M
Goto 9
Lbl 6
1000→M
Goto 9
Lbl 7
10000→M
Goto 9
Lbl 8
Input "X entre 1 et: ",M
Lbl 9
nbrAléatEnt(1,M)
EffÉcran
Disp "X entre 1 et"
Output(1,14,M)
Disp "Le tirage au sort de celui","qui commence est fait","aleatoirement"
nbrAléatEnt(1,2)→J
Disp "Le joueur"
Output(5,11,J)
Output(5,13,"commence:")
Lbl 50
Input N
I+1→I
If N<M
Then
Disp "Trop bas!"
Else
If N>M
Then
Disp "Trop haut!"
Else
If N=M
Then
EffÉcran
Disp "Le joueur ","a gagner en ","bravo!"
Output(1,11,J)
Output(2,13,I)
Output(2,15,"fois")
Output(7,2,"pwrd by Hugo Masson")
Output(8,2,"Si vous voyez des bugs,")
Output(9,2,"signalez le moi!")
Else
If J=1
Then
J+1→J
Disp "Au joueur 2 de jouer:"
Goto 50
Else
J-1→J
Disp "Au joueur 1 de jouer:"
Goto 50
Lbl 1
1→J
Menu("    X ENTRE     ","1 et 100",10,"1 et 1000",11,"1 et 10000",12,"PERSONALISE",13)
Lbl 10
100→M
Goto 14
Lbl 11
1000→M
Goto 14
Lbl 12
10000→M
Goto 14
Lbl 13
Input "X entre 1 et: ",M
Lbl 14
nbrAléatEnt(1,M)
EffÉcran
Disp "Le tirage au sort de celui","qui commence est fait","aleatoirement"
nbrAléatEnt(1,2)→J
If J=1
Then
Disp "Vous commencez:"
Goto 51
Else
Goto 53
End
Lbl 51
Input N
Lbl 70
I+1→I
If N<M
Then
Disp "Trop bas!"
1→K
Goto 52
Else
If N>M
Then
Disp "Trop haut!"
2→K
Goto 52
Else
If N=M
Then
EffÉcran
If J=1
Then
Disp "Le joueur 1 a gagner","en "
Output(2,4,I)
Output(2,6,"fois")
Output(7,2,"pwrd by Hugo Masson")
Output(8,2,"Si vous voyez des bugs,")
Output(9,2'"signalez le moi!")
Else
Disp "L IA a gagner","en "
Output(2,4,I)
Output(2,6,"fois")
Output(7,2,"pwrd by Hugo Masson")
Output(8,2,"Si vous voyez des bugs,")
Output(9,2'"signalez le moi!")
Else
Lbl 52
If J=1
Then
J+1→J
Disp "A l IA de jouer:"
Goto 53
Else
J-1→J
Disp "A vous de jouer:"
Goto 50
Lbl 53
If K=0
Then
nbrAléatEnt(1,M)→N
Goto 70
Else
If K=1
Then
nbrAléatEnt(N,M)→N
Goto 70
Else
nbrAléatEnt(1,N)→N
Goto 70
End
End
End
End
End

Merci d'avance pour votre aide.

Salut, ligne 7 tu utilises le caractère ensemble vide que la calculatrice ne connaît pas :

Code: Select all

Menu("    TROUVE X    ","1 JOUEUR",1,"2 JOUEUR",2,"QUITTER",Ø)

Comme correction tu peux remplacer par zéro :

Code: Select all

Menu("    TROUVE X    ","1 JOUEUR",1,"2 JOUEUR",2,"QUITTER",0)

Merci beaucoup pour ta réponse, j'ai corrigé le programme mais maintenant j'ai 2 autres problèmes ^^
1/ Le nombre "aléatoire" est toujours le nombre maximal si par exemple je choisis entre 1 et 100 dans le deuxième menu le nombre attendu sera toujours 100, de même si je fais un nombre maximal que j'ai choisi.
2/Lorsque je fais '1 joueur', ça se déroule bien jusqu'au moment où le programme revient seul à 2 joueurs.

Code: Select all

EffÉcran
Lbl N
1→L
0→I
0→K
EffÉcran
Menu("    TROUVE X    ","1 Joueur",1,"2 Joueurs",2,"Quitter",66)
Lbl 2
2→J
Lbl 4
Menu("    X ENTRE     ","1 et 100",5,"1 et 1000",6,"1 et 10000",7,"Personalise",8)
Lbl 5
100→M
Goto 9
Lbl 6
1000→M
Goto 9
Lbl 7
10000→M
Goto 9
Lbl 8
Input "X entre 1 et: ",M
Lbl 9
nbrAléatEnt(1,M)
EffÉcran
Disp "X entre 1 et"
Output(1,14,M)
Disp "Le tirage au sort de celui","qui commence est fait","aleatoirement"
nbrAléatEnt(1,2)→J
Disp "Le joueur"
Output(5,11,J)
Output(5,13,"commence:")
Lbl 50
Input N
I+1→I
If N<M
Then
Disp "Trop bas!"
Goto 69
Else
If N>M
Then
Disp "Trop haut!"
Goto 69
Else
If N=M
Then
EffÉcran
Disp "Le joueur ","a gagner en ","bravo!"
Output(1,11,J)
Output(2,13,I)
Output(2,15,"fois")
Output(7,2,"pwrd by Hugo Masson")
Output(8,2,"Si vous voyez des bugs,")
Output(9,2,"signalez le moi!")
Else
Lbl 69
If J=1
Then
J+1→J
Disp "Au joueur 2 de jouer:"
Goto 50
Else
J-1→J
Disp "Au joueur 1 de jouer:"
Goto 50
Lbl 1
1→J
Menu("    X ENTRE     ","1 et 100",10,"1 et 1000",11,"1 et 10000",12,"PERSONALISE",13)
Lbl 10
100→M
Goto 14
Lbl 11
1000→M
Goto 14
Lbl 12
10000→M
Goto 14
Lbl 13
Input "X entre 1 et: ",M
Lbl 14
nbrAléatEnt(1,M)
EffÉcran
Disp "Le tirage au sort de celui","qui commence est fait","aleatoirement"
nbrAléatEnt(1,2)→J
If J=1
Then
Disp "Vous commencez:"
Goto 51
Else
Goto 53
End
Lbl 51
Input N
Lbl 70
I+1→I
If N<M
Then
Disp "Trop bas!"
1→K
Goto 52
Else
If N>M
Then
Disp "Trop haut!"
2→K
Goto 52
Else
If N=M
Then
EffÉcran
If J=1
Then
Disp "Le joueur 1 a gagner","en "
Output(2,4,I)
Output(2,6,"fois")
Output(7,2,"pwrd by Hugo Masson")
Output(8,2,"Si vous voyez des bugs,")
Output(9,2,"signalez le moi!")
Else
Disp "L IA a gagner","en "
Output(2,4,I)
Output(2,6,"fois")
Output(7,2,"pwrd by Hugo Masson")
Output(8,2,"Si vous voyez des bugs,")
Output(9,2,"signalez le moi!")
Else
Lbl 52
If J=1
Then
J+1→J
Disp "A l IA de jouer:"
Goto 53
Else
J-1→J
Disp "A vous de jouer:"
Goto 50
Lbl 53
If K=0
Then
nbrAléatEnt(1,M)→N
Disp "?",N
Goto 70
Else
If K=1
Then
nbrAléatEnt(N,M)→N
Disp "?",N
Goto 70
Else
nbrAléatEnt(1,N)→N
Disp "?",N
Goto 70
End
End
End
End
End
Lbl 66

Encore merci d'avance pour vos réponses.

hugo masson wrote:Merci beaucoup pour ta réponse

De rien

hugo masson wrote:j'ai corrigé le programme mais maintenant j'ai 2 autres problèmes ^^
1/ Le nombre "aléatoire" est toujours le nombre maximal si par exemple je choisis entre 1 et 100 dans le deuxième menu le nombre attendu sera toujours 100, de même si je fais un nombre maximal que j'ai choisi.

Ligne 24, tu tires bien un nombre entre 1 et M, mais tu ne l'enregistres pas.

Code: Select all

nbrAléatEnt(1,M)

Correction :

Code: Select all

nbrAléatEnt(1,M)→M