blg_flg le 03/09/2012 à 11:45
Salut à tous!
Aujourd'hui, je vous présente ce qui va être, à ma connaissance, les premiers programmes de SES du forum. Il devraient être les premiers d'une série plus longue, vu que je passe en 1° ES.
Je vous mets, pour le moment, quelques programmes utiles en seconde (et j'en ai d'autres en stock
).
Ils sont assez voire très court (pour le moment), mais ça devrait être utile à ceux qui ne veulent rien faire en éco, en 2°, mais qui veulent quand mêmes des bonnes notes.
Elasticité prix et revenu.
Code
:Input « DEMANDE DEPART : »,D
:Input « DEMANDE ARRIVE : »,E
:Menu(« ELASTICITE », « PRIX »,1, »REVENU »,2
:Lbl 1
:Input « PRIX DEPART :»,P
:Input « PRIX ARRIVE : »,Q
:(((E-D)/D)x100)/(((Q-P)/P)x100) -> X
:EffEcr
:Output(1,1, « ELASTICITE PRIX :
:Output(2,1, X
:Stop
:Lbl 2
:Input « REVENU DEPART : »,R
:Input « REVENU ARRIVEE : »,S
:Output(1,1,”ELASTICITE
:Output(2,1,”REVENU:
:Output(3,1, (((E-D)/D)x100)/(((S-R)/R)x100)
Taux de variation
Code
:Input “VALEUR DEPART:”,D
:Input “VALEUR D’ARRIVEE:”,A
:Output(6,1,”TAUX DE
:Output(7,1, « VARIATION :
:Output(8,1,((A-D)/D)x100
:Output(8,14, « °/.
Indice
Code
:1->A
:Menu(“INDICE DE BASE”,”1”,D,”100”,2,”1000”,3
:Goto D
:Lbl 2
:100->A
:Goto D
Lbl 3
:1000->A
:Lbl D
:Input « VALEUR DEPART : »,D
:Input « VALEUR ARRIVEE : »,F
:EffEcr
:Disp « INDICE : »,(F/O)xA
Donnée en valeur ou donnée en volume
Code
:EffEcr
: « DONNEE->Chaîne0
:1->B
:Menu(« INDICE DE BASE », « 1 »,3, « 100 »,1, « 1000 »,2
:Lbl 1
:100->B
:Goto 3
:Lbl 2
:1000->B
:Lbl 3
:Input « INDICE DES PRIX : »,I
:Menu(« CALCULER DONNEE », « EN VOLUME »,A, « EN VALEUR »,B
:Lbl A
:Disp Chaîne0
:Input « EN VALEUR :»,V
:Disp Chaîne0
:Disp « EN VOLUME :
:Disp (V/I)xB
:Stop
:Lbl B
:Disp Chaîne0
:Input « EN VOLUME : »,W
:Disp Chaîne0
:Disp « EN VALEUR :
:Disp (WxI)/B
Convertir un taux de variation (TDV) en coefficient multiplicateur (CM) et inversement
Code
:Menu("CONVERTIR","TDV>CM",A,"CM>TDV",B
:Lbl A
:Prompt "TDV: ",T
:Disp "CM=",1+.01T
:Lbl B
:Prompt "CM: ",C
:Disp "TDV= ",100(C-1)
Voici un lien pour certains de ces programmes:
https://www.mediafire.com/?664[...]495m9ks5d582mp3 .
PS: Des optimisations sont possibles, notamment au niveau des calculs. Cependant, je les laisse ainsi, afin qu'on puisse s'y retrouver en faisant EDIT si le prof demande de détailler un peu plus et qu'on a pas appris son cours.
tapenad le 03/09/2012 à 13:34
une petite optimisation de 7 octets ( j'ai pas pu résisté)
Indice
Code
:1->A
:Menu(“INDICE DE BASE”,”1”,D,”100”,2,”1000”,3
:Lbl 2
:100->A
:Goto D
Lbl 3
:1000->A
:Lbl D
:Input « VALEUR DEPART : »,D
:Input « VALEUR ARRIVEE : »,F
:EffEcr
:Disp « INDICE : »,FA/O
voila c'est pas grand chose mais c'est déja ça
The K le 03/09/2012 à 18:22
Code
:Input « DEMANDE DEPART : »,D
:Input « DEMANDE ARRIVE : »,E
:Menu(« ELASTICITE », « PRIX »,1, »REVENU »,2
:Lbl 1
:Input « PRIX DEPART :»,P
:Input « PRIX ARRIVE : »,Q
:(((E-D)/D)x100)/(((Q-P)/P)x100) -> X
:EffEcr
:Output(1,1, « ELASTICITE PRIX :
:Output(2,1, X
:Stop
:Lbl 2
:Input « REVENU DEPART : »,R
:Input « REVENU ARRIVEE : »,S
:Output(1,1,”ELASTICITE
:Output(2,1,”REVENU:
:Output(3,1, (((E-D)/D)x100)/(((S-R)/R)x100)
Peut devenir :
Code
Input "DEMANDE DEPART :",D
Input "DEMANDE ARRIVEE:",E
Menu("ELASTICITE","PRIX",1,"REVENU",2
Lbl 1
"PRIX->Chaîne1
Lbl 2
If not(Chaîne1
"REVENU->Chaîne1
Disp Chaîne1+" DEPART
Input P
Disp Chaîne1+" ARRIVEE
Input Q
EffEcr
Disp "ELASTICITE :",Chaîne1
EffVar Chaîne1D(Q-P)/Q/(E-D
Je me demande si c'est la meilleure optimisation ou pas ...
Edit : corrigé ^^
linkakro le 07/09/2012 à 23:56
C'est bien que les ES puissent eux aussi avoir des outils.
Le programme d'élasticité a déjà été abordé donc ton projet n'est pas tout à fait le premier
sangohan38 : je ne suis pas sûr du tout que ce code soit fonctionnel : je crois qu'il manque une parenthèse. (Ou alors la ti82basique me réserve encore des surprises.)
EffVar Chaîne1D(Q-P)/(Q(E-D
. Ça me gave un peu la SES donc tes progs me seront utiles (dans la limite ou je connais mes leçons ^^)