Nombres Digisibles

→ **MyCalcs** profile · by **mdr1** » 12 May 2013, 14:26

Lol, mais il y a les erreurs de syntaxe aussi. Donc je ne comprends pas pourquoi t'as utilisé une chaine de caractères.

→ **MyCalcs** profile · by **Samos** » 12 May 2013, 14:30

A la demande de Persalteas, voici mon code!

Code: Select all: :Input "NOMBRE:",Str1 :length(Str1→D :1→A :While Ans≠D and "0"=sub(Str1,Ans,1 : Ans+1 :End :For(C,Ans,D : If not(inString("123456789",sub(Str1,C,1 : DelVar AGoto 0 :End :If 10>expr(Str1 : DelVar AGoto 0 :For(C,Ans,D : sub(Str1,C,1 : If C≠D and inString(Str1,Ans,C+(C≠D)) or fPart(expr(Str1)/inString("123456789",Ans : 0→A :End :Lbl 0 :A :DelVar DDelVar CDelVar AAns

→ **MyCalcs** profile · by **Persalteas** » 12 May 2013, 14:32

Non, pas d'erreurs de syntaxe avec une chaine.

Si l'utilisateur entre quoi que ce soit qui n'est pas un chiffre, l'expression est refusée - regarde mon code.

@Samos: A quoi sert le A, avant la dernière ligne

?

Je me suis fait battre par un code plus lourd et avec des Goto

→ **MyCalcs** profile · by **mdr1** » 12 May 2013, 14:33

Ben j'ai déjà des optimisations à t'apporter, tiens.

Code: Select all: :While Ans≠D and "0"=sub(Str1,Ans,1

devient :

Code: Select all: :While Ans-D and "0"=sub(Str1,Ans,1

et :

Code: Select all: : If C≠D and inString(Str1,Ans,C+(C≠D)) or fPart(expr(Str1)/inString("123456789",Ans

devient :

Code: Select all: : If C-D and inString(Str1,Ans,C+(C≠D)) or fPart(expr(Str1)/inString("123456789",Ans

→ **MyCalcs** profile · by **Samos** » 12 May 2013, 14:39

@Mdr1 C'est la même chose, ça prend autant de place...
@Persalteas Pour afficher A sans avoir à gaspiller 18 octets: j'affiche avec Ans

→ **MyCalcs** profile · by **Persalteas** » 12 May 2013, 14:41

hum, jolie technique.
J'utilise aussi Ans après mes DelVar, mais j'avais jamais vu le coup du :

Code: Select all: :A:DelVar AAns

Je dois avouer, c'est beau

→ **MyCalcs** profile · by **mdr1** » 12 May 2013, 14:42

Samos wrote:@Mdr1 C'est la même chose, ça prend autant de place...

Mais c'est plus rapide.

→ **MyCalcs** profile · by **Hayleia** » 12 May 2013, 17:40

Persalteas wrote:Si ça passe pas, l'utilisateur est en mesure de deviner que c'est que ça ne respecte pas la seule condition que je lui ai demandée...

Ben il y a bien écrit sur le tuto "installer Ndless 3.1" qu'il faut d'abord mettre l'OS 3.1 si on l'a pas, et pourtant, beaucoup se plaignent que ndless ne s'installe pas alors qu'après un peu de recherche, on se rend compte qu'il n'ont pas suivi cette étape.

→ **MyCalcs** profile · by **Persalteas** » 13 May 2013, 07:23

Rhaa, mais tu chipotes

Je suis d'accord avec toi, sauf qu'on ne peut pas me pénaliser pour la stupidité des utilisateurs. Moi, j'ai programmé le nécessaire à leur réussite

→ **MyCalcs** profile · by **Hayleia** » 13 May 2013, 07:28

Persalteas wrote:Rhaa, mais tu chipotes

Je suis d'accord avec toi, sauf qu'on ne peut pas me pénaliser pour la stupidité des utilisateurs. Moi, j'ai programmé le nécessaire à leur réussite

Je suis tout à fait d'accord avec toi, ce n'est pas ta faute et tu avais pourtant fait ce qu'il fallait même si tu avais pu faire plus, mais vu comment Adriweb et les autres sont en train de se tuer à faire des tutos vidéos pour des trucs où des tutos écrits suffisent largement sauf pour ceux qui ne les lisent pas, je peux comprendre aussi qu'on te demande de faire ce plus que tu aurais pu faire (même s'il est effectivement non nécessaire selon moi).