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
|- TI-82 | |- Archives |- TI-82 STATS | |- Archives |- TI-82 STATS.fr | |- Archives |- TI-82+ | |- Archives |- TI-82 Advanced | |- Archives |- Câble, logiciel de transmission et émulateur | |- Archives |- Les programmes des internautes |- Les programmes du site |- Aide à la programmation |- Les concours |- Articles |- Le "blog" |- Que pensez-vous du site ? |- Espace de liberté