Tableau d'avancement

→ **MyCalcs** profile · by **GenX** » 28 Dec 2005, 00:53

je voudrais savoir si qq 1 peut me donner un site ou je peux trouver un prog qui réalise le tableau d'avancement en chimie car je n'arrive pas a faire le prog moi meme

→ **MyCalcs** profile · by **GenX** » 28 Dec 2005, 11:18

Merci mais je n'arrive pas a le faire marcher
J'ai réussi a trouver mon erreur sur mon prog mais g un prob pour l'avancement
j'ai tapé ca :
Prgm()
Lbl tabavan
StoGDB bdg1
FnOff
100000»w
newList(30)-l6
newList(8)-l5
ClrHome:ClrDraw:ClrIO
Input "nb de reactifs ? ",v
Input "nb de produits ? ",z
For a,1,v
ClrIO
Output 1,3,"reactif "
Output 1,50,a
Input "coef ?",d
Input "mol ?",e
d-l6[a]
e-l6[a+v]
EndFor
For b,1,z
ClrIO
Output 1,3,"produit"
Output 1,50,b
Input "coef ?",h
h-l5[a]
ClrIO
EndFor
For b,1,v
l6[b+v]/(l6[b])-o
If o = w Then
o - w:b - u:EndIf:EndFor
Output 1,1,"react. limitant:"
Disp u
Output 20,1,"xmax="
Disp w
Pause
ClrDraw
1 - xmin:95 - xmax
0 - xgrad:1 - ymin
63 - ymax:0 - ygrad
Line 1,63,1,1
Line 95,63,95,1
Line 1,55,95,55
Line 8,63,8,1
Line 1,1,95,1
Line 1,18,95,18
Line 1,36,95,36
Line 1,63,95,63
PtText "0",2,47
PtText "X",2,30
PtText "X",2,15
PtText "M",3,8
int(87/(v+z))»s
For t,1,s
Line 8+t*s,63,8+t*s,1
EndFor
For t,0,v-1
PtText "R",10+s*t,61
PtText string(t+1),14+s*t,61
EndFor
For x,0,z-1
PtText "P",10+s*t+s*x,61
PtText string(x+1),14+s*t+s*x,61
EndFor
For x,0,v-1
PtText string(l6[x+1+v]),9+s*x,13
EndFor
For t,0,z-1
PtText "0",9+s*x+s*t,13
EndFor
For x,0,v-1
PtText "X",9+s*x+10,30
PtText string(-l6[x+1]),9+s*x,30
EndFor
For t,0,z-1
PtText "X",9+s*x+s*t+5,30
PtText string(l5[t+1]),9+s*x+s*t,30
EndFor
For x,0,v-1
PtText string(l6[x+1+v]-l6[x+1]*w),9+s*x,47
EndFor
For t,0,z-1
PtText string(w*l5[t+1]),9+s*x+s*t,47
EndFor:Pause :ClrDraw:RclGDB bdg1
EndPrgm

si quelqu'un peu m'aider a trouver mon erreur de calcul se serai vraiment simpa merci