Forum TI-Planet.org

Bonjour,

Je dois utiliser deslistes dans mon programme, je fais donc
5-tempo
1-vari
...
tempo-L1(vari)

Mais à la fin au lieu de m'afficher 5, L1(1) m'affiche le mot tempo ....

Help

sufisait de mette string(tempo)->L1(vari)

En faite non ca ne marche toujours pas....

Code: Select all

()
Prgm
Local i,d,l,pas,y,vari,x,tempo,val,an
""d
""x
""tempo
""val
28pas
1l
ClrIO

Dialog
Title "Taux d'evolution"
Request "Nb. d'annees",d
Request "Nb. produits",x
EndDlog
expr(d)d
expr(x)x

If d="" or d=0 or x="" or x=0 Then
goto endd
Else

For l,1,x
Lbl encore
Dialog
Title "Produit N°"string(l)
Request "Nom(6 lettres)",tempo
EndDlog
If tempo="" Then
goto encore
Else
expr(tempo)tempo
string(tempo)Lprod(l)
""tempo
EndIf
EndFor

For l,1,x
For an,1,d
Lbl again
Lprod(l)tempo
Dialog
Title string(tempo)
Text "Annee "string(an)
Request "Valeur",val
EndDlog
If val="" Then
goto again
Else
expr(val)val
string(val)Li(an)
""val
EndIf
EndFor
EndFor

For i,1,9
Disp Li(i)
Disp Lprod(i)
EndFor

EndIf 
Lbl endd


EndPrgm

En fait, le problème vient de la mauvaise utilisation de la syntaxe particulière aux listes.

Il faut mettre des crochets [ ] et non des parenthèses !

Code: Select all

 tempo-Lprod[1]

Par ailleurs, il est inutile de faire successivement

Code: Select all

expr(tempo)-tempo
string(tempo)-Lprod[1]

Tu peux simplement écrire

Code: Select all

tempo-Lprod[1]

Merci !