recuperation de valeurs

[wOq]

bonjour,

ve veux faire un petit prog pour calculer la valeur de resistances en series et en derivation. Mais par exemple pour le calcul des resistances en series :
Rt=1/r1+1/r2+etc..
le resultat depend donc du nombre de resistance et de leur valeur.
Mais voilà je suis un gros débutant en basic (sous ti84+se) et je ne vois pas comment faire pour recuperer pile poil le nombre de resistance desiré par l'utilisateur et rentré ces données dans des variables.
Par ex :
Nombre de resistance :
je rentre 6

Valeurs: (je rentre ces valeurs)
?12
?5
?3
?7
?25
?30

resultat : 0.83

voilà j'aimerai que le prog se deroule comme ça. Ca serait facile a faire si le nombre de resistance est toujours le meme

genre :
input A
input B
1/A+1/B-R
Disp R

Mais là je ne sais pas combien de resistances l'utilisateur va rentré et pour stocker aprés ces resultat je vois encore moins comme je vais faire pour dire : pour tel valeure telle variable.


HELP !!

[Mr. Crocodile]

il faut que tu stocke tes variables dans une liste
puis que tu face une incrementation. Je ne me souvien plus du tout du basic Z80 ... mais ça donne un truc du genre

tu demande le nombre A de resistances
tu initialise le for avec comme valeur de debut Z =1 pas 1 et Z a comparer A
Tu stocke dans la liste mettons L1[A] ta variable
puis tu recupère le nombre de cases dans le tableau
et tu additione leurs inverses.....

[Mr. Crocodile]

Un peut fait a l'arrache ...

Code: Select all

DelVar X:ClrHome
Input "Nombre de resistances",A
For(I,1,A
Disp "R",I,"=
Input B
B^(-1)+X-X
End
Disp "R total :",X

version plus jolie

Code: Select all

DelVar X:ClrHome
Input "Nombre de resistances",A
ClrHome:Disp"
For(I,1,A
Output(1,1,"R"
Output(1,2,I
Input B
B^(-1)+X-X
End
Disp "R total :",X

Inspires en toi pour l'autre cas

[wOq]

merci je test

[Mr. Crocodile]

juste une precision : j'ai fait un inverse sur la valeur finale et apparament ce n'est pas ce que tu voulais ....

[wOq]

oui c'est pas la bonne valeur ex :

3
2
1
=.172910...

et ce que je dois trouver:
1.833333...

[Mr. Crocodile]

oulala oui !
j'ai fait n'importe quoi là !!
Je corrige ça

[Mr. Crocodile]

Edité ... Désolé je l'avais programmer avec des pieds qui puent
Je t'ai ajouter une autre version plus jolie mais un peut plus lourde

[wOq]

je test demain merci pour ton aide c'est sympas

[Mr. Crocodile]

zut ... petite coquille que j'ai modifiée dans la version jolie : le Input juste avant le for est a remplacer par un Disp
Bye