Voici un petit programme (mon premier) que je viens de faire sur ma TI-82 stats.fr, neuve de 2 semaines. Je cherche des avis pour comment l'améliorer (si c'est possible)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 24 Sep 2011, 20:43
Code
Lbl 0
EffEcr
randInt(1,100->X //sur les ti 82stat/82statfr/83 et la suite
Lbl 1
Input "DEVINEZ X:",Y
If Y>X
Disp "MOINS
If Y<X
Disp "PLUS
If Y-X // revient à If Y[=/=]X
Goto 1
Pause "BRAVO!
Menu("NUMBER",RECOMMENCER",0,"QUITTER",2
Lbl 2
EffEcr
On peut même remplacer "Lbl 1" et "If Y-X" par une boucle.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Dim 25 Sep 2011, 14:57
Ce qui donne :
Code
Lbl 0
EffEcr
randInt(1,100->X //sur les ti 82stat/82statfr/83 et la suite
Repeat Y=X
Input "DEVINEZ X:",Y
If Y>X
Disp "MOINS
If Y<X
Disp "PLUS
End
Pause "BRAVO!
Menu("NUMBER",RECOMMENCER",0,"QUITTER",2
Lbl 2
EffEcr
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
