[RESOLU] programmer un petit jeu basé sur l'aléatoir

→ **MyCalcs** profile · by **thibaut scyllo boudier** » 10 Mar 2012, 14:56

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.

→ **MyCalcs** profile · by **Excale** » 10 Mar 2012, 14:58

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.

→ **MyCalcs** profile · by **thibaut scyllo boudier** » 10 Mar 2012, 15:12

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

→ **MyCalcs** profile · by **Excale** » 10 Mar 2012, 15:16

Oups, j'ai tapé trop vite.

t:=t+1.

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

→ **MyCalcs** profile · by **Excale** » 10 Mar 2012, 15:21

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à

.

→ **MyCalcs** profile · by **thibaut scyllo boudier** » 10 Mar 2012, 15:44

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.