Forum TI-Planet.org

Un jeu simple
en mode algorithmique
découvrir en un nombre entre 1 et 1000

si votre nombre est trop bas il faut chercher un nombre plus grand indiqué par une flèche montante

si votre nombre est trop grand il faut chercher un nombre plus petit indiqué par une flèche descendante

si votre réponse est correcte, le programme vous dit "Oui" et vous indique en combien de coups vous avez trouvé

voici le code :

Code: Select all

0→A
0→C
RanInt#(1;1000)→M
Aller à x=120; y=0
S'orienter à 90 degrés
Répéter jusqu'à A=M
C＋1→C
? →A
Aller à x=0; y=0
Si A=M Alors
Aller à x=120; y=0
"Oui"
Afficher résult C
Sinon
Si A>M Alors
S'orienter à －90 degrés
Sinon
S'orienter à 90degrés
Fin
Fin
⤴

http://wes.casio.com/math/index.php?q=I-295A+U-000000000000+M-0E00000000+S-000410110000000E0010B300059F+E-F90B30004200F901F90B30004400F901F90B87312C31303030D0004000F901F908313230003000F901F907393000F901F91342A54000F901F90B44A631004400F901F90C4200F901F90830003000F901F91742A54000F901F908313230003000F901F90D3100F901F90E4400F901F918F901F91742FB024000F901F907A7393000F901F918F901F907393000F901F919F901F919F901F914F901F903F901F902

à vous d'améliorer

tu pourrais mettre un truc pour que l'on puisse changer le nombre maximum (1000)
mais sinon c'est très bien !!

Bonjour
merci d'avoir regarder

il suffit de rajouter en début de programme
?->F
et de remplacer la constante 1000 par F dans la ligne RanInt#
RanInt#(1;F)→M

sinon je n'ai pas de TI83 pour essayer tes programmes

On peut encore réduire...

Code: Select all

0→A
0→C
RanInt#(1;1000→M
Aller à x=0; y=0
Répéter jusqu'à A=M
C＋1→C
? →A
S'orienter à 90degrés
Si A>M Alors
S'orienter à －90 degrés
Fin
⤴
Aller à x=120; y=0
"Oui"
Afficher résult C

Pas mal, l'astuce des flèches pour signifier "plus" ou "moins"

grosged wrote:On peut encore réduire...

Code: Select all

0→A
0→C
RanInt#(1;1000→M
Aller à x=0; y=0
Répéter jusqu'à A=M
C＋1→C
? →A
S'orienter à 90degrés
Si A>M Alors
S'orienter à －90 degrés
Fin
⤴
Aller à x=120; y=0
"Oui"
Afficher résult C

Pas mal, l'astuce des flèches pour signifier "plus" ou "moins"

Merci
En tout cas, belle optimisation de ta part !
On peut aussi supprimer la ligne 4
Aller à x=0; y=0
ou remettre Aller à x=120; y=0comme j'avais fait pour faire disparaître des écrans radars la flèche au départ du jeu (comme à la fin d’ailleurs)

Merci encore pour le code