Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Nombre à Trouver
Auteur Message
110594
Invité
Posté le : Sam 19 Sep 2009, 12:02   Citer 

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

  Haut de page Bas de page 
 
lemonegasque45



Autorisation : Membre
Nb de messages : 1
Inscrit le : Sam 19 Sep 2009, 11:11
Posté le : Sam 19 Sep 2009, 12:20   Citer 

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)



 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Sam 19 Sep 2009, 14:52   Citer 

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

----------------------
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa