Programme sympa: Le juste prix

[Bisam]

Un "when" sur 83+ ?

[Adriweb]

Lulz, j'avais oublié ce..... "détail"....
Mais sinon, du coup, un Else, pour éviter le 2ème test, voire un test implicite avec un sub pour construire la chaine ?

[Wistaro]

Encore optimisable, non, avec un "when" ?

Code: Select all

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

Bug?

[Wistaro]

Encore optimisable, non, avec un "when" ?

Code: Select all

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

Bug?

OK

[Kous92]

Je suis pas sur qu'un when existe sur TI à l'exception d'un programme qui l'ajoute...

[Adriweb]

"when" existe sur TI-Nspire, j'avais (à tort) machinalement pensé que ce topic concernait cette plateforme-là

[Kous92]

Evidemment, une TI83+,84,.. ne prend pas ceci... y a que avec un for, des else,... que ça marche

[grosged]

Intéressante cette fonction "when" ! (...en effet non dispo sur ma ti83)
Par contre, on peut utiliser la fonction sub (...et la mémoire Ans)

Code: Select all

Disp "LE JUSTE PRIX
"----------------            ;  comme on va l'utiliser plus bas, on le met dans la mémoire Ans
Disp Ans                                               
Input "DEFINIR LE PRIX:",A
For(M,1,4
Disp "++++++++++++++++
Disp Ans                     ; affiche donc "----------------"
End
Disp "QUEL EST LE"," JUSTE PRIX ?
Int(A→A                      ; pas la peine d'utiliser une nouvelle variable N
While Ans                    ; tant qu'on n'est pas à 0
Input "VOTRE PRIX:",M
(M>A)-(M<A                   ; Ans =1 (trop grand) ou 0 (gagné) ou -1 (trop petit)
Disp "C'EST "+sub("PLUS  GAGNE!MOINS ",7+6Ans,6        ; par contre , perte du "ET"
End                                                    ; avant "c'est gagné!"



[grosged]

Pour délirer, je me suis amusé à programmer un autre "Juste Prix" (nb à trouver entre 0 & 100)...différent de par son algorithme...
Je vous laisse deviner...

Show/Hide spoilerAfficher/Masquer le spoiler

L'astuce ? la TI bluffe ! au départ, contrairement aux apparences, elle ne détermine pas de nombre à trouver : c'est le joueur qui, au fil des entrées, rétrécit la zone des possibilités ...jusqu'à ce qu'il n'en reste plus qu'une : ...bingo !

ClrHome
Disp "LE JUSTE PRIX","
-1→A:Delvar C101→B
"Parti!
Repeat 2>B-A
Disp "C'est "+Ans
C+1→C
Prompt N
If (N-A)<(B-N
Then:max(N,A→A:"PLUS
Else:min(N,B→B:"MOINS
End
End
Disp "OUI!nb de COUPS:
C

[Persalteas]

Mais du coup, le score final va être le même à chaque fois...