Des chiffres!! :D

by **maestroarte** » 13 Apr 2012, 09:37

Bonjour,
je souhait faire un programme sur un jeu très connu:
On a 5 nombres et en utilisant les opérateurs habituels (+ ; - ; / ; * ) on doit aboutir au "NOMBRE" recherché...

Puis-je utilisé la fonction aléatoire que me propose la nspire cx cas pour y arriver??

Merci! =D

by **Excale** » 13 Apr 2012, 13:46

C'est même obligatoire d'utiliser une fonction qui renvoie du pseudo-aléatoire pour un tel jeu.

En gros tu pioches au hasard 5 nombres dans un intervalle donné ( randint() ), puis tu effectues aléatoirement des opérations sur ces nombres, et tu affiches le résultat.
Puis tu demandes à l'utilisateur de rentrer les opérateurs, et tu vérifies si ça marche.

Par contre tel que je le décrit il se peut qu'il y ait plusieurs manières d'arriver au résultat.
Et si tu veux corser le tout tu rajoutes la gestion des parenthèses.

Et sincèrement c'est le genre de jeu à coder en Lua ça

.

by **maestroarte** » 13 Apr 2012, 18:08

Comment effectuer "aléatoirement" les opérations sur ces nombres??
Je suis bloqué à cette étape
J'ai rempli une liste opera ("+" ; "-" ; "/" ; "*")
J'ai fais RandSamp(a,4). Je pose b = RandSamp (a,4)
If part(b,1) différent de part(b,2) différent de part(b,3) différent de part(b,4) then
(on a donc une seule fois chaque opérateur)
(je fais pareil avec les chiffres)
le problème c'est qu'avec les chiffres, je peux faire expr : expr("5") = 5, mais pas avec les opérateurs! =/ ( expr("+") = Erreur Syntaxe ) =/

Comment faire??

Merci!! (en ti basic hein

)

by **Excale** » 13 Apr 2012, 18:24

Regarde la doc de RandSamp

:

randSamp(List, #Trials [,noRepl])
noRepl=0 with replacement (default)
noRepl=1 without replacement

EDIT:

Regarde du côté de expr() et string() aussi

.

by **maestroarte** » 14 Apr 2012, 16:54

Parfait! Les chiffres se mettent dans un ordre aléatoire !
Mais comment effectuer aléatoirement des opérations ??

Merci

by **Excale** » 14 Apr 2012, 18:30

Code: Select all: Define z(mi,ma)= Prgm :Local a,b,c,i :a:={"+","-","*","/"} :a:=randSamp(a,4,1) :© Disp a :For i,1,5 : b[i]:=string(randInt(mi,ma)) :EndFor :© Disp b :c:=expr(b[1]&a[1]&b[2]&a[2]&b[3]&a[3]&b[4]&a[4]&b[5]) :Disp c :EndPrgm

Ce que j'ai fait

.

by **maestroarte** » 14 Apr 2012, 19:05

Mortel! Je comprend presque rien au code xD peux tu simplement me dire a quoi correspondent mi et ma, et aussi me dire ou on rentre les 5 chiffres?

Merci!!

by **Excale** » 14 Apr 2012, 19:08

Ah oui désolé.
Mi: nombre minimum
Ma: nombre maximum
(min et max rentrent en conflit avec les fonctions de l'OS)

Et une fois que tu auras bien regardé le code, dis moi ce que tu ne comprends pas!
(c'est un ordre

)

by **Bisam** » 16 Apr 2012, 12:33

Il y a un problème avec ton code, Excale : il peut renvoyer un nombre qui n'est pas entier.
Il faudrait rajouter un test pour savoir si on peut effectuer la division...

Ensuite, plutôt que de piocher au hasard les nombres dans un intervalle, en général, on les prend dans la liste :

Code: Select all: {1,2,3,4,5,6,7,8,9,10,25,50,75,100}

by **Excale** » 21 Apr 2012, 21:34

Bisam wrote:Il y a un problème avec ton code, Excale : il peut renvoyer un nombre qui n'est pas entier.
Il faudrait rajouter un test pour savoir si on peut effectuer la division...

Merci, comment ai-je pu ne pas y penser?
:facepalm: