Erreur programme MATH.. DS demain !

→ **MyCalcs** profile · by **xox62** » 27 Mar 2007, 21:50

Salut à tous!

Alors voilà jeudi j'ai un DS de math, j'ai donc rajouter quelques petits truc dans mon prog de math .. mais surprise un des menu ne fonctionne plus

cependant je ne vois pas pourquoi..

Alors si vous pouviez m'aider à trouver l'erreur

programme : http://www.sharebigfile.com/file/123416/MATH-8xp.html

→ **MyCalcs** profile · by **xox62** » 28 Mar 2007, 10:41

up

ps: il s'occupe des dérivées, un peu de trigo, et des rappels sur le produit scalaire

→ **MyCalcs** profile · by **xox62** » 28 Mar 2007, 16:58

J'ai effacé les lignes inutiles pour repérer l'erreur.. (les truc du style Text ou Ligne...)

Quand je choisi Derivee il me met:
ERR:ARGUMENT
1:Quit
2:Goto (et là il m'amene à la parenthèse juste avant les trait multicolors....)

Lbl 0
EffEcr
Menu("MATH","Derivee",1,"Trigo",2,"PRDT",19,"SUITE",40,"Quitter",80)
Lbl 19
EffEcr
Menu("","AL-KASHI",20,"MEDIANE",21,"DE L'AIRE",23,"SINUS",24,"EQUATION CER.",25,"RETOUR",22)
Lbl 25
Disp "MA.MB=0"
Disp "CENTRE: Ê(X,Y)"
Disp "RÜ="
Disp "(X-XÊ)Ü+(Y-YÊ)Ü"
Pause
Goto 19
Lbl 24
Disp "sin(A)/A"
Disp "sin(B)/B"
Disp "sin(C)/C"
Pause
Goto 19
Lbl 23
Disp "AIRE ABC:"
Disp "AB=C BC=A AC=B"
Disp "0.5*B*C*sin(A)"
Disp "0.5*A*C*sin(B)"
Disp "0.5*A*B*sin(C)
Pause
Goto 19
Lbl 22
Goto 0
Lbl 20
Disp " AÜ"
Disp " ="
Disp "BÜ+CÜ-2BCcos(A)"
Pause
Goto 19
Lbl 21
Disp " MAÜ+MBÜ"
Disp " ="
Disp " 2MIÜ+(ABÜ/2)"
Pause
Goto 19
Lbl 80
EffEcr:EffDessin
EffVar AEffVar BEffVar CEffVar DEffVar EEffVar KEffVar Y
Stop
Lbl 1
EffEcr
Menu("DERIVEE","Derivee",4,"Tableau comp",5,"Tableau deriv",6,","Retour",7)IIIIIIII
Lbl 4
FonctNAff
Input "F(X)=",Cha ne0
r–el(19,r–el(12,Cha ne0,"X")
EffDessin:EffEcr
Cha ne0üY€
Goto 1
Lbl 5
EffEcr:EffDessin:CoordNAff:FonctNAff :AxesNAff
Texte(1,1,"F=U+V = F'=U'+V'"
Texte(9,1,"F=K*U = F'=K*U'"
Texte(17,1,"F=U*V = F'=U*V'+U'*V"
Texte(25,1,"F=1/V = F'=úV'/VÜ"
Texte(33,1,"F=U/V = F'=(U'V-UV')/VÜ"
Texte(41,1,"F=ð(U) = F'=U'/2ð(U)"
Texte(49,1,"F=cos(U) = F'=úU'sin(U)"
Texte(57,1,"F=sin(U) = F'=U'cos(U)"
Pause
Goto 1
Lbl 6
EffDessin
FonctNAff
AxesNAff
Texte(1,1,"F(X)=K = F'(X)=0"
....
Texte(49,1,"F(X)=cos(X) = F'(X)=úsin(X)"
Pause
Goto 1
Lbl 7
FonctAff :EffEcr
EffDessin:AxesAff:CoordAff
Goto 0Lbl 2
EffDessin:AxesNAff:CoordNAff:FonctNAff
Menu("TRIGONOMETRIE","Tableau",8,"Mesure princ",9,"Meme mesure",10,"Retour",11)
Lbl 8
0üXmin:94üXmax
0üYmin:62üYmax
EffDessin
Ligne(0,0,0,60)
.....
Texte(52,6,"X"
Pause
EffDessin
Goto 2
Lbl 9
Input "A=",A
Input "B=",B
EffEcr
(A/B)/(2)üE
arrondi(E,0)üE
((A)-(2BE))üD
Texte(1,1,"ENTIER PLUS PROCHE: ",E)
Texte(15,5,A,"Ä","/",B,"=",E,"*2Ä+»"
Texte(25,5,"»=",D,"Ä","/",B
Pause
EffEcr
Goto 2
Lbl 10
Disp "(A/B)=(C/D)+2KÄ"
Prompt A,B,C,D
(((A)/(2(B)))-((C)/(2(D))))üK
Disp K
Pause
EffEcr
Goto 2
Lbl 11
EffDessin:AxesAff:CoordAff:FonctAff
Goto 0