Forum TI-Planet.org

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

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

Super .

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

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

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.

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 ?

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!


Encore optimisable, non, avec un "when" ?

Code: Select all

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