Voici le script:
EffEcr
Disp "ATTENTION:","La reaction doit","etre dans les","proportions sto-","echimetriques!"
Pause :EffEcr
Disp "Ox/Red","Ox1+ne-=red1).n2","red2=Ox2+ne-).n1","--------------","n2.Ox1+n1.red2->","n2.red1+n1.Ox2"
Pause
Lbl MM
Menu("Avancement","A+B -> C+D",A,"A+B -> C+D :Equiv.",B,"? Massique",C
Lbl A
EffEcr
Disp "»A+¼B->¾C+¿D","Coeff. Stoech."
Input "»:",A
Input "¼:",B
Input "¾:",C
Input "¿:",D
EffEcr
Disp "Qte matiere (ni)"
Input "ni[A]:",X
Input "ni[B]:",Y
Input "ni[C]:",Z
Input "ni[D]:",Á
EffEcr
Disp "»A+¼B->¾C+¿D:E-F"
Disp "nA:","nB:","nC:","nD:"
X/AüS
Y/BüT
If S<T
Then
Goto S
Else
Goto T
Lbl S
Output(2,4,X-AS
Output(3,4,Y-BS
Output(4,4,Z+CS
Output(5,4,Á+DS
Disp "Xmax:"
Output(6,6,S
Disp "Reactif limit.:A"
Pause
Goto MM
Lbl T
Output(2,4,X-AT
Output(3,4,Y-BT
Output(4,4,Z+CT
Output(5,4,Á+DT
Disp "Xmax:"
Output(6,6,T
Disp "Reactif limit.:B"
Pause
Goto MM
Lbl B
EffEcr
Disp "»A+¼B->¾C+¿D:E-F"
Input "»:",A
Input "¼:",B
Input "¾:",C
Input "¿:",D
Input "(c) S. titree:",N
Input "(Ve) V. equival:",V
Disp "nfA=niB=»¼.c.Ve",ABNV
Pause
EffEcr
Disp "»A+¼B->¾C+¿D:E-F"
Disp "nfA:","niB:","nC:","nD:"
Output(2,5,(ABNV)
Output(3,5,(ABNV)
Output(4,4,0+C(ABNV)/(B-A)
Output(5,4,0+D(ABNV)/(B-A)
Disp "Xeq:"
Output(6,5,(ABNV)/(B-A)
Pause
Goto MM
Lbl C
EffEcr
Input "niA/B:",A
Input "M(A/B):",B
Input "m(minerai):",C
Disp "?M="
Output(4,4,(AB)100/C
Source: max131
Principe: Ce programme permet de nous sortir un tableau d'avancement avec les détzils: Xmax, Quel est réactif limitant, calcule à l'équivalence, le % massique, il peut retrouver la quantité initiale des réactifs, et vous donne la formule pour une équation d'oxydo-reduction. C'est deja pas mal