Nombres Digisibles

→ **MyCalcs** profile · de **mdr1** » 12 Mai 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 · de **Samos** » 12 Mai 2013, 14:30

A la demande de Persalteas, voici mon code!

Code: Tout sélectionner: :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 · de **Persalteas** » 12 Mai 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 · de **mdr1** » 12 Mai 2013, 14:33

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

Code: Tout sélectionner: :While Ans≠D and "0"=sub(Str1,Ans,1

devient :

Code: Tout sélectionner: :While Ans-D and "0"=sub(Str1,Ans,1

et :

Code: Tout sélectionner: : If C≠D and inString(Str1,Ans,C+(C≠D)) or fPart(expr(Str1)/inString("123456789",Ans

devient :

Code: Tout sélectionner: : If C-D and inString(Str1,Ans,C+(C≠D)) or fPart(expr(Str1)/inString("123456789",Ans

→ **MyCalcs** profile · de **Samos** » 12 Mai 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 · de **Persalteas** » 12 Mai 2013, 14:41

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

Code: Tout sélectionner: :A:DelVar AAns

Je dois avouer, c'est beau

→ **MyCalcs** profile · de **mdr1** » 12 Mai 2013, 14:42

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

Mais c'est plus rapide.

→ **MyCalcs** profile · de **Hayleia** » 12 Mai 2013, 17:40

Persalteas a écrit: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 · de **Persalteas** » 13 Mai 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 · de **Hayleia** » 13 Mai 2013, 07:28

Persalteas a écrit: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).