TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr : forums, programmes, FAQ, manuels...

Résultat de la recherche

TOUT sur les TI-82 - Index -> Programmes -> Les programmes des internautes -> Nombre à Trouver

Nombre à Trouver

Auteur

Message

110594
Invité

Posté le : Sam 19 Sep 2009, 12:02

voici un petit jeu pour faire passer le temps
(ceci est mon tout premier program)

-> = flêche
O = la lettre
0 = le chiffre
[thêta] = Alpha->3
! = 2nd->Math->Gauche->4

Code

:4->O
:1->N
:1->V
:Menu("NOMBRE ENTRE","1/100",A,"1/1000",B,"1/10000",C,"1/100000",D,"1/1000000",E,"REGLE",F,"QUITTER",G)
:Lbl A
:Output(4,5,"1/100"
:Pause
:EffEcr
:entAléat(1,100)->[thêta]
:Goto X
:Lbl B
:Output(4,5,"1/1000"
:Pause
:EffEcr
:entAléat(1,1000)->[thêta]
:Goto X
:Lbl C
:Output(4,4,"1/10000"
:Pause
:EffEcr
:entAléat(1,10000)->[thêta]
:Goto X
:Lbl D
:Output(4,4,"1/100000"
:Pause
:EffEcr
:entAléat(1,100000)->[thêta]
:Goto X
:Lbl E
:Output(4,3,"1/1000000"
:Pause
:EffEcr
:entAléat(1,1000000)->[thêta]
:Goto X
:Lbl X
:input A
:EffEcr
:If A<[thêta]
:Then
:Disp "C'EST PLUS"
:V+1->V
:Goto X
:End
:EffEcr
:If A>[thêta]
:Then
:Disp "C'EST MOIN"
:V+1->V
:Goto X
:End
:EffEcr
:If A=[thêta]
:Then
:Disp "GAGNE !","NOMBRE D'ESSAIS",V,"RECOMMENCER ?","O/N"
:Input U
:End
:If U=O
:Then
:EffEcr
:Disp "BONNE CHANCE"
:Pause
:EffEcr
:prgm[nom du program]
:End
:EffEcr
:If U=N
:Then
:EffEcr
:Disp "AU REVOIOR"
:Pause
:EffEcr
:End
:Stop
:Lbl F
:Output(1,1,"IL FAUT TROUVER"
:Output(2,1,"LE NOMBRE"
:Output(3,1,"CHOISIE AU"
:Output(4,1,"HASARD PAR LA"
:Output(5,1,"CALCULETTE"
:Output(8,1,"MENU [ENTRER]"
:Pause
:prgm(nom du program)
:Lbl G
:Menu("VEYX TU QUITTE?","OUI",W,"NON",V)
:Lbl V
:EffEcr
:prgm(nom du program)
:Lbl W
:Disp "AU REVOIR"
:EffEcr
:Stop
:Lbl H
:prgm(nom du program)
:Pause

Si Vous Pouvez Me Dire Se Que Vous Penser De Se Program

lemonegasque45

Autorisation : Membre
Nb de messages : 1
Inscrit le : Sam 19 Sep 2009, 11:11

Posté le : Sam 19 Sep 2009, 12:20

il y a du avoir un beug quand g envoyer le program sa n'a pas mit mon identifiant sur le coter enfaite c'est mon program

si vous pouver ameliore la presentation en creent un 2nd programe

programn°2

Code

:EffaceEcr
:RappelImage 1 <-(faite une jolie présentation)
:pause
:EffDessin
:Output(2,4,"LE NOMBRE"
:Output(3,5,"MYSTERE"
:Output(6,7,"PAR"
:Output(7,2,"LEMONEGASQUE45"
:Pause
:EffEcr
prgm(nom du program n°1)

Sangohan38

Autorisation : Membre
Nb de messages : 3388
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Sam 19 Sep 2009, 14:52

Le premier programme est gros pour un si petit jeu et tu peut le raccourcir facilement:
-au lieu de mettre des 1000000 met plutôt le nombre en puissance (ici 10^6)
-stocke le maximum dans une variable pour n'avoir qu'un seul Ent(aléat
-Tu peut réduire les conditions de vérification en enlevant les then/end et en ajoutant ensuite 1 à X.

Enfin pour t'aider, je te conseil de faire une recherche sur le forum pour voir les programmes similaires et t'améliorer.

Sangohan38

TOUT sur les TI-82 - Index -> Programmes -> Les programmes des internautes -> Nombre à Trouver