Forum TI-Planet.org

Bonjour, je cherche comment faire un jeu sur TI Nspire (sans animation) dont l'énoncé est: "une tortue et un lièvre sont sur la case 0; pour gagner, le lièvre ou la tortue doit arriver sur la case 6. On lance un dé non truqué aléatoirement, si il tombe sur 1,2,3,4 ou 5, la tortue avance d'une case et doit le refaire 6 autre fois pour gagner, mais si il tombe sur 6, le lièvre arrive directement sur la case 6 et gagne, le jeu s’arrête alors." Pour l'instant, j'ai créé une structure qui est :

Code: Select all

Define TetL()=
Prgm
t=0
If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif
If t=6 Then
Disp "la tortue gagne"
EndIf
EndPrgm


Le problème, c'est que même si la tortue gagne, le programme ne m'affiche pas que la tortue gagne. De temps en temps, mon programme m'affiche aussi que le lièvre gagne deux fois alors que suivant mon sujet, ce programme ne fais qu'une partie. Et si vous pouvez me l'améliorer, ce ne serai pas de refus.
Pouvez vous m'aidez, merci pour toute réponse.

Code: Select all

If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif

4 fois le même bout de code?

Sinon, t+1 ne fait rien, il faut faire t:=t+1.

Désolé mais il y a toujours le même problème, même avec t=t+1.

Code: Select all

If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif


c'est normal qu'il soit 6 fois, car il faut faire 6 lancé de dé au minimum, pour que la tortue gagne.

Personne n'aurait d'autres idée, pour m'aidé? merci quand même

Oups, j'ai tapé trop vite.

t:=t+1.

Mais effectivement il y a d'autres problèmes.

Code: Select all

Define TetL()=
Prgm
t=0
If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t+1
Else
Disp "le lievre gagne"
Endif
If t=6 Then
Disp "la tortue gagne"
EndIf
EndPrgm


On corrige le code:

Code: Select all

Define TetL()=
Prgm
t:=0
If rand()<5/6 Then
t:=t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t:=t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t:=t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t:=t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t:=t+1
Else
Disp "le lievre gagne"
Endif
If rand()<5/6 Then
t:=t+1
Else
Disp "le lievre gagne"
Endif
If t=6 Then
Disp "la tortue gagne"
EndIf
EndPrgm


On simplifie les 6 lancés:

Code: Select all

Define TetL()=
Prgm
t:=0

For i,1,6
   If rand()<5/6 Then
   t:=t+1
   Else
   Disp "le lievre gagne"
   Endif
EndFor

If t=6 Then
Disp "la tortue gagne"
EndIf
EndPrgm


Comme tu peux le voir, le "disp lievre" risque de s'afficher 6 fois dans le pire des cas. On corrige alors ça en n'affichant qu'à la fin:

Code: Select all

Define TetL()=
Prgm
t:=0

For i,1,6
   If rand()<5/6 Then
   t:=t+1
   Endif
EndFor

If t=6 Then
   Disp "La tortue gagne!"
Else
   Disp "Le lièvre gagne!"
EndIf

EndPrgm


Voilà .

Merci énormément, car grâce à cela, mon programme marche à merveille. Maintenant, je vais pouvoir faire le reste de l'exercice, avec les connaissance que je viens de recevoir.

Merci infiniment Excale.