Programmation calculette ti 82 fonction if
Redkane
-
Redkane -
Redkane -
Bonjour,
j'ai un souci j'ai créer une petit programme me calculant la longueur de cadre en Acier en fonction du diamètre de l'enrobage et la hauteur et de la largeur. Pour du diamètre 6 ou 8 ça marche mais pour du 10 ou 12 ça ne marche pas
voici le programme
:input "ENROBAGE?",E
:Input "HAUTEUR?",H
:Input "LARGEUR?",L
:Input "DIAMETRE?",D
: If D = 6
:Then
:13+3*((H-E-3)+(L-6))"sto=>"A
:Disp "Long=",A
:Else
:If D = 8
:Then
:16+3*((H-E-3)+(L-6))"sto=>"B
:Disp "Long=",B
:Else
:If D = 10
:Then
:20+3*((H-E-3)+(L-6))"sto=>"Z
:Disp "Long=",Z
:Else
:If D = 12
:Then
:23+3*((H-E-3)+(L-6))"sto=>"T
:Disp "Long=",T
:End
merci de m'aider
j'ai un souci j'ai créer une petit programme me calculant la longueur de cadre en Acier en fonction du diamètre de l'enrobage et la hauteur et de la largeur. Pour du diamètre 6 ou 8 ça marche mais pour du 10 ou 12 ça ne marche pas
voici le programme
:input "ENROBAGE?",E
:Input "HAUTEUR?",H
:Input "LARGEUR?",L
:Input "DIAMETRE?",D
: If D = 6
:Then
:13+3*((H-E-3)+(L-6))"sto=>"A
:Disp "Long=",A
:Else
:If D = 8
:Then
:16+3*((H-E-3)+(L-6))"sto=>"B
:Disp "Long=",B
:Else
:If D = 10
:Then
:20+3*((H-E-3)+(L-6))"sto=>"Z
:Disp "Long=",Z
:Else
:If D = 12
:Then
:23+3*((H-E-3)+(L-6))"sto=>"T
:Disp "Long=",T
:End
merci de m'aider
2 réponses
-
bonjour
la formule de calcul de A, B, ... étant la même, au 1° terme près, je simplifierai un peu de la façon suivante
:If D=6:Then:13 sto C:End :If D=8:Then:16 sto C:End :If D=10:Then:16 sto C:End :If D=12:Then:23 sto C:End :C+3*(H-E-3+L-6) sto L :Disp "LONG",L
RQ. on peut ajouter un test au cas où la valeur de D n'est pas une des 4 prévues
bonne suite -
de rien
je suppose que tu as vu l'erreur ici mettre 20 à la place de 16
:If D=10:Then:16 sto C:End
peux tu mettre le problème à résolu
bonne suite
