Page 1 of 3

Des chiffres!! :D

Unread postPosted: 13 Apr 2012, 08:37
by maestroarte
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

Re: Des chiffres!! :D

Unread postPosted: 13 Apr 2012, 12:46
by Excale
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 :).

Re: Des chiffres!! :D

Unread postPosted: 13 Apr 2012, 17:08
by maestroarte
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 ;) )

Re: Des chiffres!! :D

Unread postPosted: 13 Apr 2012, 17:24
by Excale
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 :).

Re: Des chiffres!! :D

Unread postPosted: 14 Apr 2012, 15:54
by maestroarte
Parfait! Les chiffres se mettent dans un ordre aléatoire !
Mais comment effectuer aléatoirement des opérations ??

Merci

Re: Des chiffres!! :D

Unread postPosted: 14 Apr 2012, 17:30
by Excale
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 :).

Re: Des chiffres!! :D

Unread postPosted: 14 Apr 2012, 18:05
by maestroarte
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!!

Re: Des chiffres!! :D

Unread postPosted: 14 Apr 2012, 18:08
by Excale
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 :D)

Re: Des chiffres!! :D

Unread postPosted: 16 Apr 2012, 11:33
by Bisam
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}

Re: Des chiffres!! :D

Unread postPosted: 21 Apr 2012, 20:34
by Excale
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: