Mettre un certain nombre d'Input

Salut !

Un pote m'a passé son programme pour les différents états d'atomes mais il a une quarantaine de Lbl... (trop long a expliqué et H.S.)

Je cherche a mettre un certain nombre de Input comme ceci:

Code:

Input "NB ETATS",A
If A = 2
Then
Input "ETAT 1",B
Input "ETAT 2",C
End
If A = 3
Then
Input "ETAT 1",B
Input "ETAT 2",C
Input... etc...

Il y a-t-il un moyen plus rapide de résoudre ceci ?

En gros mettre le nombre d'input en fonction du nombre d'ETATS demandé.

Merci de votre réponse.

Pardon dudouble-post, mais c'est une première proposition qui ne marche pas:
Je pensais à ça:

Code:

EffEcr
Input "NB ETATS=",A
For (K,1,A
Input "ETAT",X
End


Sauf que X est remplacé à chaque entrée...

Tu es déjà très proche de ce que je ferais dans ce cas.

Code:

EffEcr
EffListe L1
Input "NB ETATS=",A
For (K,1,A
Input "ETAT",X
X->L1(K
End

Pour avoir des invités différents, on peut utiliser K dans l'affichage du Input.

MERCI beaucoup !

Linkakro a écrit:Pour avoir des invités différents, on peut utiliser K dans l'affichage du Input.

Justement comment fais tu pour afficher état 1, état 2, état 3 ? Est-ce possible ?

J'ai toujours utilisé un affichage numérique dans un coin supérieur de l'écran pour indiquer un numéro d'étape.
Dès la ti82stats tu peux concaténer des chaînes de caractères, ce qui est utile pour réaliser un affichage partiellement variable.
Le plus pénible est de générer une chaîne de caractères représentant un nombre fourni numériquement. J'utilise deux méthodes. Consulte aussi la source du tuto de Mdr1 qui présente une version optimisée.
http://tout82.free.fr/forum/sujet.php?sujet=2611
Je crois qu'on en a d'ailleurs déjà parlé dans ce Forumactif.

Bah c'est bien gentil mais je ne vois absolument pas comment l'appliquer sur mon bout de code...  

Exemple avec la régression, qui plus est optimisée par Mdr1.

Code:

EffEcr
EffListe L3
Input "NB ETATS=",A
For(K,1,A
{0,K→L2
{0,1→L1
RégLin(ax+b) Y1
Equ►Chaîne(Y1,Chaîne1
sous-Chaîne(Chaîne1,1,longueur(Chaîne1)-3
Input "ETAT"+Rép+":",X
X->L3(K
End

Merci.

EDIT: Mais il m'affiche ETAT 0 a chaque fois.

La variable Rep contient quelle valeur ?

Pourquoi la valeur de Rép?
A la fin Rép = X = dernière saisie...

Donne nous plutôt la valeur de Y1 et/ou de chaine1 pour voir si ça a bien mis la bonne fonction...

Et vérifie d'abord que tu ais mis RégLin(ax+b) et non pas RégLin(a+bx)

Wistaro désigne évidement Rép au moment de l'invité, pas à la fin. Mais Y1 est bien plus instructive.
Y1 doit représenter KX+0 sous forme de texte sinon il y a un problème.

D'accord, j'ai recopié et j'ai bien état 1, 2, 3...

Mais comment récupérer les variables saisies ?

Par exemple, si possible, peut-on avoir:
Etat 1 -> A
Etat 2 -> B
Etat 3...

Avec des alternatives presqu' aussi lourdingues que ce que tu faisais sans liste avant de créer la discussion.

Remarque importante : je me permet d'affecter A dans la boucle parce que la boucle For n'en tiendra pas compte dans son comportement. C'est propre au TI-Basic.
http://tout82.free.fr/forum/sujet.php?sujet=2692

Code:

EffEcr
Input "NB ETATS=",A
For(K,1,A
{0,K→L2
{0,1→L1
RégLin(ax+b) Y1
Equ►Chaîne(Y1,Chaîne1
sous-Chaîne(Chaîne1,1,longueur(Chaîne1)-3
Input "ETAT"+Rép+":",X

If K=1
X->A
If K=2
X->B
If K=3
X->C
//...

End

Quitte à avoir des tests pour stocker dans A,B,C, il devient plus intéressant d'utiliser uniquement des alternatives mais de ne placer qu'un seul Input par alternative, afin que ce ne soit plus redondant, contrairement à ton premier Post.

Code:

Prompt Z
If Z>0
Input "E1=",A
If Z>1
Input "E2=",B
If Z>2
Input "E3=",C
//...

Ok merci beaucoup !

Comment peut on modifier ton premier code en commençant avec état 0 ? (puis état 1, 2, 3...)

En décalant le repère indice/variable avec des +1 au bon endroit.
Ou comme tu as fais dans ton sujet posté après.
https://tout82.forumactif.org/t144-absorption-et-emission-de-photons