Racine au compte-goutte

→ **MyCalcs** profile · by **servabat** » 03 Oct 2012, 14:27

Bonjour,

J'essaye d'implémenter l'algorithme du compte-goutte (à but éducatif) en TI-Basic.
Je procède donc comme suit :

Code: Select all: Define cgrac(a)= Func Local str_a,size_a,precomma,postcomma,pairpc,pairpsc,act_char,act_slice string(a) ->str_a dim(str_a) ->size_a inString(str_a,".")-1 ->precomma size_a-precomma-1 ->postcomma mod(precomma,2) ->pairpc mod(postcomma,2) ->pairpsc 0 ->act_char While act_char<size_a If act_char=0 and pairpc!=0 Then expr(mid(str_a,act_char,1)) ->act_slice act_char+1 -> act_char ElseIf act_char=size_a-1 and pairpsc=1 Then expr(mid(str_a,act_char,1)&"0") ->act_slice act_char+1 -> act_char ElseIf mid(str_a,act_char,1)="." Then act_char+1 -> act_char Else expr(mid(str_a,act_char,2)) -> act_slice act_char+2 -> act_char EndIf Disp act_slice EndWhile EndFunc

Mais voila rien que pour ce petit bout de découpage, j’obtiens déjà une erreur :/

Avez vous une idée du problème ?

Merci d'avance.

→ **MyCalcs** profile · by **Neo** » 03 Oct 2012, 14:32

Il faudrait que tu nous retranscrive ce que tu vois à l'écran de ta calculatrice.. (un screenshot serait du plus bel effet

)

→ **MyCalcs** profile · by **servabat** » 03 Oct 2012, 14:46

Salut

Screenshot de l'erreur :

Screenshot de l'endroit de l'erreur :

→ **MyCalcs** profile · by **Excale** » 03 Oct 2012, 14:48

Et ça te renvoie à quelle ligne

?

→ **MyCalcs** profile · by **servabat** » 03 Oct 2012, 14:51

Excale wrote:Et ça te renvoie à quelle ligne ?

La ligne où il y a le curseur sur la deuxième capture, c'est à dire :

Code: Select all: expr(mid(str_a,act_char,1)) ->act_slice

→ **MyCalcs** profile · by **Excale** » 03 Oct 2012, 14:54

Vérifie que act_char ait bien une valeur acceptable

.

(et perso je prefère "act_slice := expr(mid(str_a,act_char,1))" à "expr(mid(str_a,act_char,1)) ->act_slice"

→ **MyCalcs** profile · by **servabat** » 03 Oct 2012, 15:03

J'ai beau essayer un peu de tout, ça marche pas ^^ Je pense que je ne devrais pas faire ça avec des chaînes, je vais essayer avec des troncatures et des soustractions (qu'en pensez vous ?)

→ **MyCalcs** profile · by **Bisam** » 03 Oct 2012, 17:15

Tu dois avoir l'habitude de programmer en C... et cela a créé une erreur.
Sur calculette, les indices de chaînes de caractères commencent à 1 et non à 0. C'est le "mid(str_a,0,1)" qui renvoie une erreur.
Il faut donc initialiser "act_char" à 1 et arrêter ton while avec "< ou =".

PS : Dans le même ordre d'idée, tu as bien utilisé le symbole "différent" de la calculette et non le "!=" du C ?
(le pire, c'est que ça ne renverrait pas une erreur : ça renverrait juste des résultats faux...)