π
<-
Chat plein-écran
[^]

Trouve le nombre amélio et opti

Trouve le nombre amélio et opti

Message non lude Commando12345 » 28 Sep 2015, 22:26

voilà un petit jeu pour 83 PCE programmé on calc j'aimera avoir votre avis et de l'aide pour l'opti :D (et comment l'ameliorer)

Code: Tout sélectionner
Lbl X
EffÉcran
DelVar PDelVar YDelVar ZDelVar SDelVar MDelVar ADelVar T
14→X
5000→V
Menu("TROUVE LE NOMBRE","NORMAL(0-5000)",1,"VIES LIMITEES",2,"PERSONALISE",3,"QUITTER",θ
Lbl 3
2→T
Disp "NOMBRE MAXIMUM?"
Input "",V
Menu("VIES","VIES ILLIMITEES",1,"VIES PERSO",B
Lbl 2
1→T
Lbl B
EffÉcran
Disp "NOMBRE DE VIES
Input "",X
X→A
Lbl 1
nbrAléatEnt(0,V→Z
EffÉcran
Disp "QUEL EST LE NOMBRE?
Input "",Y
While Y≠Z
If Y<Z
Disp "TROP PETIT!
If Y>Z
Disp "TROP GRAND!
S+1→S
If S=A et (Y>Z  ou Y<Z)
Then
EffÉcran
Output(5,9,"GAME OVER
1→P
Goto A
End
Input "",Y
End
If Y=Z
Then
EffÉcran
Output(4,7,"TU AS GAGNE EN
Output(5,10,S+1
Output(5,13,"COUPS
End
Lbl A
If S≥⌊NMBR(1) et non(T
Then
Output(7,7,"HIGH SCORE:
Output(7,19,⌊NMBR(1
Goto Z
End
If S<⌊NMBR(1) et non(T
Then
Output(7,6,"NOUVEAU RECORD:
S+1→⌊NMBR(1
Output(7,21,⌊NMBR(1
Goto Z
End
If S≥⌊NMBR(2) ou P=1 et T=1
Then
Output(7,7,"RECORD:
Output(7,19,⌊NMBR(2
Goto Z
End
If S<⌊NMBR(2) et T=1 et non(P
Then
Output(7,6,"NOUVEAU RECORD:
S+1→⌊NMBR(2
Output(7,21,⌊NMBR(2
Goto Z
End
If S≥⌊NMBR(3) ou P=1 et T=2
Then
Output(7,7,"RECORD:
Output(7,19,⌊NMBR(3
Goto Z
End
If S<⌊NMBR(3) et T=2 et non(P
Then
Output(7,6,"NOUVEAU RECORD:
S+1→⌊NMBR(3
Output(7,21,⌊NMBR(3
End
Lbl Z
Pause
Goto X
Lbl θ
EffÉcran
Fin

*petit édit
Fichiers joints
ANOMBRES.8xp
Programme
(909 Octets) Téléchargé 53 fois
NMBR.8xl
Variable High Score
(103 Octets) Téléchargé 52 fois
Dernière édition par Commando12345 le 30 Sep 2015, 17:20, édité 15 fois.
Avatar de l’utilisateur
Commando12345Premium
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Prochain niv.: 84.4%
 
Messages: 42
Inscription: 03 Aoû 2015, 18:20
Localisation: près de Paris
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: Master 1 Ecole d'ingé Aéronautique et Spatial

Re: Trouve le nombre amélio et opti

Message non lude noelnadal » 28 Sep 2015, 22:32

Remplace les 0->V par des Delvar V
Ne ferme pas les guillemets à la fin des Disp.
Remplace T=0 par non(T sans la parenthèse à la fin.
idem pour nbrAléatEnt(0,V)→Z à remplace par nbrAléatEnt(0,V→Z

Après, les Goto/Lbl, j'aime moyennement, mais bon...
Avatar de l’utilisateur
noelnadalEcrivain
Niveau 17: GM (Grand Maître des calculatrices)
Niveau 17: GM (Grand Maître des calculatrices)
Prochain niv.: 34.9%
 
Messages: 2252
Images: 0
Inscription: 10 Mar 2011, 00:00
Localisation: France, Melun (77)
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: INRIA Paris
Twitter/X: nadalnoel
Facebook: noel.nadal1
GitHub: noelnadal

Re: Trouve le nombre amélio et opti

Message non lude Hamza.S » 29 Sep 2015, 10:51

Code: Tout sélectionner
Menu("VIES","VIES ILLIMITEES",1,"VIES PERSO",B
Lbl B
EffÉcran
Disp "NOMBRE DE VIES" // utilisé un peu plus bas
Input "",X  // idem
Goto S  // inutile
Lbl 2
1→T
Disp "NOMBRE DE VIES
Input "",X
Lbl S  // inutile sauf si un autre Goto l'utilise
// j'ai pas lu tout le code pour le moment

tu répètes la même chose presque inutilement, pour l'améliorer tu peux faire
Code: Tout sélectionner
Menu("VIES","VIES ILLIMITEES",1,"VIES PERSO",B
Lbl 2
1→T
Lbl B
EffÉcran
Disp "NOMBRE DE VIES
Input "",X


une question : classes-tu le score en fonction du nombre de coups?
Image
Avatar de l’utilisateur
Hamza.SAdmin
Niveau 17: GM (Grand Maître des calculatrices)
Niveau 17: GM (Grand Maître des calculatrices)
Prochain niv.: 28.5%
 
Messages: 4461
Images: 18
Inscription: 07 Nov 2014, 00:43
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: Trouve le nombre amélio et opti

Message non lude Hamza.S » 29 Sep 2015, 11:50

pensez-vous que cette boucle peut remplacer le début du boucle While?
je l'ai fait sans réfléchir
Code: Tout sélectionner
Lbl 1
randInt(0,V→Z
ClrHome
For (I,1,A)
Disp "QUEL EST LE NOMBRE?
Input "",Y
S+1→S
If Y<Z
Disp "TROP PETIT!
If Y>Z
Disp "TROP GRAND!
If Y=Z
Then
EffÉcran
Output(4,7,"TU AS GAGNE EN
Output(5,10,S
Output(5,13,"COUPS
End
If S=A and (Y>Z or Y>Z)
Then
Output(5,9,"GAME OVER
1→P
End
...
End
Image
Avatar de l’utilisateur
Hamza.SAdmin
Niveau 17: GM (Grand Maître des calculatrices)
Niveau 17: GM (Grand Maître des calculatrices)
Prochain niv.: 28.5%
 
Messages: 4461
Images: 18
Inscription: 07 Nov 2014, 00:43
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: Trouve le nombre amélio et opti

Message non lude GalacticPirate » 29 Sep 2015, 12:04

Bon, j'ai fait de l'opti : fusion des Lbl 2 et Lbl B, et par conséquent suppression du Lbl S qui ne servait donc plus à rien. J'ai aussi viré le dernier Goto Z inutile. Bref, aux codeurs, dites moi ce que vous en pensez :
Code: Tout sélectionner
Lbl X
EffÉcran
DelVar PDelVar YDelVar ZDelVar SDelVar MDelVar ADelVar T
14→X
"BLA→Str1
5000→V
Menu("TROUVE LE NOMBRE","NORMAL(0-5000)",1,"VIES LIMITEES",2,"PERSONALISE",3,"QUITTER",θ
Lbl 3
2→T
Disp "NOMBRE MAXIMUM?"
Input "",V
Menu("VIES","VIES ILLIMITEES",1,"VIES PERSO",B
Lbl 2
1→T
Lbl B
EffÉcran
Disp "NOMBRE DE VIES
Input "",X
X→A
Lbl 1
nbrAléatEnt(0,V→Z
EffÉcran
Disp "QUEL EST LE NOMBRE?
Input "",Y
While Y≠Z
If Y<Z
Disp "TROP PETIT!
If Y>Z
Disp "TROP GRAND!
S+1→S
If S=A
Then
EffÉcran
Output(5,9,"GAME OVER
1→P
Goto A
End
Input "",Y
End
If Y=Z
Then
EffÉcran
Output(4,7,"TU AS GAGNE EN
Output(5,10,S+1
Output(5,13,"COUPS
End
Lbl A
If S≥⌊NMBR(1) et non(T
Then
Output(7,7,"HIGH SCORE:
Output(7,19,⌊NMBR(1
Goto Z
End
If S<⌊NMBR(1) et non(T
Then
Output(7,6,"NEW HIGH SCORE:
S+1→⌊NMBR(1
Output(7,21,⌊NMBR(1
Goto Z
End
If S≥⌊NMBR(2) ou P=1 et T=1
Then
Output(7,7,"HIGH SCORE:
Output(7,19,⌊NMBR(2
Goto Z
End
If S<⌊NMBR(2) et T=1 et non(P
Then
Output(7,6,"NEW HIGH SCORE:
S+1→⌊NMBR(2
Output(7,21,⌊NMBR(2
Goto Z
End
If S≥⌊NMBR(3) ou P=1 et T=2
Then
Output(7,7,"HIGH SCORE:
Output(7,19,⌊NMBR(3
Goto Z
End
If S<⌊NMBR(3) et T=2 et non(P
Then
Output(7,6,"NEW HIGH SCORE:
S+1→⌊NMBR(3
Output(7,21,⌊NMBR(3
End
Lbl Z
Pause
Goto X
Lbl θ
EffÉcran
Fin
Mon profil TI-PlanetDevenez premium !
ImageImage
Modérateur de TI-Planet.org depuis décembre 2015, et membre de la communauté depuis Mai 2015.Cliquez ci-dessus pour faire un don à TI-Planet.org via PayPal et devenir Donateur ou Premium (à partir de 3€) ! Vous aurez accès à des générations illimitées et prioritaires avec Mviewer GX Creator, ainsi qu'au forum secret ! :bj: En plus, vous pourrez être orange sur le chat :troll:

Image
Avatar de l’utilisateur
GalacticPirateModo
Niveau 16: CC2 (Commandeur des Calculatrices)
Niveau 16: CC2 (Commandeur des Calculatrices)
Prochain niv.: 1.3%
 
Messages: 1156
Images: 2
Inscription: 23 Mai 2015, 10:36
Localisation: Hauts-de-Seine, France
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: L3 Informatique
GitHub: GalacticPirate-Prog

Re: Trouve le nombre amélio et opti

Message non lude noelnadal » 29 Sep 2015, 12:38

Tu peux remplaçer "HIGH SCORE" par "RECORD", ça te fait gagner des octets. :P
Avatar de l’utilisateur
noelnadalEcrivain
Niveau 17: GM (Grand Maître des calculatrices)
Niveau 17: GM (Grand Maître des calculatrices)
Prochain niv.: 34.9%
 
Messages: 2252
Images: 0
Inscription: 10 Mar 2011, 00:00
Localisation: France, Melun (77)
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: INRIA Paris
Twitter/X: nadalnoel
Facebook: noel.nadal1
GitHub: noelnadal

Re: Trouve le nombre amélio et opti

Message non lude Ti64CLi++ » 29 Sep 2015, 12:47

Et remplacer TROP GROS par - et TROP PETIT par + :troll:
Image
Avatar de l’utilisateur
Ti64CLi++Modo
Niveau 16: CC2 (Commandeur des Calculatrices)
Niveau 16: CC2 (Commandeur des Calculatrices)
Prochain niv.: 32.3%
 
Messages: 3441
Images: 75
Inscription: 04 Juil 2014, 14:40
Localisation: Clermont-Ferrand 63
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: ENS Rennes
GitHub: Ti64CLi

Re: Trouve le nombre amélio et opti

Message non lude noelnadal » 29 Sep 2015, 13:42

Non mais, vive le français, quoi... :P
Avatar de l’utilisateur
noelnadalEcrivain
Niveau 17: GM (Grand Maître des calculatrices)
Niveau 17: GM (Grand Maître des calculatrices)
Prochain niv.: 34.9%
 
Messages: 2252
Images: 0
Inscription: 10 Mar 2011, 00:00
Localisation: France, Melun (77)
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: INRIA Paris
Twitter/X: nadalnoel
Facebook: noel.nadal1
GitHub: noelnadal

Re: Trouve le nombre amélio et opti

Message non lude Commando12345 » 30 Sep 2015, 17:22

Je l'ai opti (édit du 1er post) encore quelque chose à faire ?
Image
Avatar de l’utilisateur
Commando12345Premium
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Prochain niv.: 84.4%
 
Messages: 42
Inscription: 03 Aoû 2015, 18:20
Localisation: près de Paris
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: Master 1 Ecole d'ingé Aéronautique et Spatial


Retourner vers TI-Basic

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 9 invités

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
1039 utilisateurs:
>1018 invités
>17 membres
>4 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)