Tableau d'avancement

Débutant Inscrit le : 28 Déc 2005 Messages : 19

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

http://jcpti89.free.fr/prog/equbilan.zip
_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)

Débutant Inscrit le : 28 Déc 2005 Messages : 19

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

Indique la ligne d'erreur.
_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)

Débutant Inscrit le : 28 Déc 2005 Messages : 19

génial j'ai trouvé mon erreur
merci quand meme

Débutant Inscrit le : 28 Déc 2005 Messages : 19

si quelqu'un est intéressé par mon prog ou pour un autre il peut me contacter a l'adresse suivante

genx@hotmail.fr

Tu peux me l'envoyer si tu veux, je peux le mettre sur TI-BANK

_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)

Débutant Inscrit le : 28 Déc 2005 Messages : 19

donne moi ton adresse pour que je te donne le prog sur le tableau d'avancement

Je te la passe pas MP.
_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)