Programme sympa: Le juste prix

[Kous92]

Bonjour à tous, j'ai crée un programme sympa que j'aimerais partager avec vous:
Il est basé sur le célèbre jeu-télé Le Juste Prix sur TF1:
Ce programme permet de faire deviner à quelqu'un un prix que vous avez défini:

Code: Select all

Disp "LE JUSTE PRIX"
Disp "----------------"
Input "DEFINIR LE PRIX:",A   <--- Le prix à faire deviner
Disp "++++++++++++++++" 
Disp "----------------"
Disp "++++++++++++++++"
Disp "----------------"
Disp "++++++++++++++++"
Disp "----------------"
Disp "++++++++++++++++"
Disp "----------------"
Disp "QUEL EST LE"
Disp "JUSTE PRIX ?"
int(A)→N   --->PartEnt si la calculette est en français
0→M
While M≠N
Input "VOTRE PRIX:",M
If M>N
Then
Disp "C'EST MOINS"
Else
If M<N
Then
Disp "C'EST PLUS"
Else
Disp "ET C'EST GAGNE!"   
Disp
End
End
End


[NspireCas]

N'hésite pas à le poster sur TI-Planet ici .

[Kous92]

Ok, merci... Je posterai aussi des programmes de maths sachant que je suis en Terminale STI2D

[NspireCas]

Super .

[Kous92]

Normalement tu ne seras pas décu !
Edit: Le programme est dès maintenant disponible au téléchargement.

[Wistaro]

Cool continu, c'est vraiment pas mal!

Par contre, tu peux largement l'optimiser.

Pour faire cela, regarde par ici:
http://tout82.forumactif.org/t50-candid ... timisation

Si tu as des questions, n'hésite pas

[Kous92]

Il est déjà très bien comme ça mais si t'as de très bonnes suggestions pour l'optimiser, n'hésite pas à me le proposer.

[Wistaro]

Voilà une optimisation

Code: Select all

Disp "LE JUSTE PRIX //pas besoin des guillemets finaux partout
Disp "----------------
Input "DEFINIR LE PRIX:",A   <--- Le prix à faire deviner
Disp "++++++++++++++++
Disp "----------------
Disp "++++++++++++++++
Disp "----------------
Disp "++++++++++++++++
Disp "----------------
Disp "++++++++++++++++
Disp "----------------
Disp "QUEL EST LE", " JUSTE PRIX ? //petite optimisation
int(A)→N   --->PartEnt si la calculette est en français
DelvarM //on gagne en octets au lieu de faire 0->M
While M≠N
Input "VOTRE PRIX:",M
If M>N: Disp "C'EST MOINS" //les else et les end ne servent à rien
If M<N: Disp "C'EST PLUS
End
Disp "ET C'EST GAGNE!


Tu as des questions ?

[Bisam]

On peut faire mieux... et ce n'est pas de la "petite optimisation" mais du fondamental !
Lorsqu'une partie du code est utilisée au moins 2 fois, cela vaut le coup de le factoriser (soit en faisant une boucle, soit en faisant un "sous-programme")
Ici, tu répètes 4 fois le même affichage au début. Cela vaut le coup de factoriser ainsi (en reprenant les optimisations de Wistaro) :

Code: Select all

Disp "LE JUSTE PRIX
Disp "----------------
Input "DEFINIR LE PRIX:",A
For(M,1,4        // Ici on fait une boucle répétée 4 fois
Disp "++++++++++++++++  // On utilise M comme variable pour ne pas utiliser plus de variables
Disp "----------------  // puisque de toute façon, M est déjà utilisée plus loin
End
Disp "QUEL EST LE", " JUSTE PRIX ?
int(A)→N
DelvarM
While M≠N
Input "VOTRE PRIX:",M
If M>N: Disp "C'EST MOINS
If M<N: Disp "C'EST PLUS
End
Disp "ET C'EST GAGNE!


[Adriweb]

Encore optimisable, non, avec un "when" ?

Code: Select all

Disp "C'est"&when(M>N,"MOINS","PLUS")