Forum TI-Planet.org

Posted: **10 Mar 2015, 21:02**

Bonjour, (oui c'est encore moi

)
Je voudrais savoir comment faire pour que quelqu'un rentre une réponse (un nombre) dans un temps imparti.
J'ai trouvé une solution mais je pense qu'on peut mieux l'optimiser mais comment ?

Code: Select all: 1->H 0->X "1234567890"->Str1 " "->Str3 Repeat K=105 0->K getKey->K If K=102 Then Output(1,H,0) 92üN End If K>=92 and K=<94 Then Output(1,H,K-91 91->N End If K>=82 and K=<84 Then Output(1,H,K-78 78->N End If K>=72 and K=<74 Then Out>put(1,H,K-65 65-N End If K!=105 and K!=0 Then sub(Str1,K-N,1)->Str2 Str3+Str2->Str3 H+1->H End X+1->X If X=200 Disp "TROP TARD End Str3

Auriez-vous une idée pour l'optimiser ou alors avez-vous une autre solution ?
Merci d'avance

Posted: **11 Mar 2015, 17:53**

Déjà, je ne pense qu'il y ai besoin d’initialiser K avant le getkey, c'est automatique

Ensuite le k!=0 peut être simplifié en k c'est-à-dire : If K!=105 and k

Mais sinon je ne vois pas trop comment tu pourrais faire autrement, c'est déjà pas mal optimisé...

Posted: **11 Mar 2015, 20:04**

Tu peux toujours gagner quelques octets en enlevant les " et) finaux.

Code: Select all: Output(1,H,0)

Devient

Code: Select all: Output(1,H,0

Ou encore

Code: Select all: "1234567890"->Str1

Devient

Code: Select all: "1234567890->Str1

.
Ce ne sont que des exemples, il y en a encore d'autres dans ton programme.

Ah, oui, aussi. Ceci:

Code: Select all: DelvarK //Ou plus haut dans ton programme DelvarX

Au lieu de

Code: Select all: 0->K //et plus haut dans ton programme 0->X

(mais ici, comme dit Ptirageur, c'est inutile pour le K).

Au final, ton début de code ça donne cela:

Code: Select all: 1->H DelvarX"1234567890->Str1

Enfin,

Ceci:

Code: Select all: If K>=72 and K=<74

Peut devenir :

Code: Select all: If (K>=72)(K=<74

Et pareil pour tes autres conditions. Je sais pas si tu gagnes quelques octets, mais c'est plus propre je trouve

Aussi:

Code: Select all: sub(Str1,K-N,1)->Str2 Str3+Str2->Str3

Peut devenir :

Code: Select all: Str3+sub(Str1,K-N,1->Str3

Voilà je pense que j'ai fait le tour!

Posted: **11 Mar 2015, 20:11**

Enfin,

Ceci:

Code: Select all
If K>=72 and K=<74

Peut devenir :

Code: Select all
If (K>=72)+(K=<74

Et pareil pour tes autres conditions. Je sais pas si tu gagnes quelques octets, mais c'est plus propre je trouve

Par contre wistaro, il faudrait remplacer ton If (K>=72)+(K=<74 par un If (K>=72)(K=<74 parce que sinon ça remplace le Or et non le And

Posted: **11 Mar 2015, 20:13**

Ah flûte merci de l'avoir signalé

PS: Je viens d'éditer mon message à l'instant

Posted: **11 Mar 2015, 20:16**

ok super merci les gars

Posted: **11 Mar 2015, 20:27**

Pas de souci !

Posted: **24 Mar 2015, 20:27**

Au sujet du

Code: Select all: If (K≥72)(K≤74

On peut encore grapiller 4 octets avec

Code: Select all: If 1≥abs(73-K

Posted: **27 Mar 2015, 11:01**

Hein? Tu peux expliquer ?

Posted: **27 Mar 2015, 14:02**

K est-il entre 72 et 74 ?

Code: Select all: If (K≥72)(K≤74

qu'on peut formuler aussi "K est-il dans les parages de 73 ? (c'est-à dire =73 ou juste à côté)"
avec K=72, 73 ou 74 , (73-K) nous donnera respectivement 1,0,-1
d'où la simplification en passant en absolu:

Code: Select all: If abs(73-K)≤1

et en optimisant un chouïa (histoire de retirer une parenthèse)

Code: Select all: If 1≥abs(73-K

On pourrait même étendre cette façon de faire au pavé numérique (sauf le zéro)
Si l'on veut juste savoir si l'une des 9 touches à été pressée :
On prend la valeur de la touche centrale, en l'occurence la touche

(dont le getKey=83)
Avec (83-K) on aura les résultats:
11,10,9
1,0,-1
-9,-10,-11
en passant en absolu, abs(83-k) nous donnera soit 0,1,9,10,11
là, on remarque que pour les 3 dernières valeurs possibles, il nous suffirait de soustraire 10 pour de nouveau arriver à une valeur -1,0 ou 1
Ce qui nous fait:

Code: Select all: Repeat 1≥Ans or 1≥abs(Ans-10 getKey→K:Abs(83-K End

Forum TI-Planet.org

Entrer une réponse dans un temps imparti

Entrer une réponse dans un temps imparti

Re: Entrer une réponse dans un temps imparti

Re: Entrer une réponse dans un temps imparti

Re: Entrer une réponse dans un temps imparti

Re: Entrer une réponse dans un temps imparti

Re: Entrer une réponse dans un temps imparti

Re: Entrer une réponse dans un temps imparti

Re: Entrer une réponse dans un temps imparti

Re: Entrer une réponse dans un temps imparti

Re: Entrer une réponse dans un temps imparti