Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 16 Nov 2009, 18:58
Posté le : Mer 19 Mai 2010, 16:32
bonjour a tous. Voici un programme qui n'est pas de moi, telechargeable ici http://ti.bank.free.fr/index.php?mod=archives&ac=voir&id=1536 en .8xp pour Ti 83 +
C'est un programme qui factorise les expressions, mais j'ai un probleme lors de l'execution, il marque erreur syntaxe, et en fesant voir (dans l'erreur), je vois le nom du programme soit Factor..
Ou est le probleme svp ?
Code
EffVar LEffVar L‚EffVar LƒEffVar L„EffVar L…1üX
EffEcr
Input "POLYNOMIAL: ",Cha ne0
If carCha ne("+-",sous-Cha ne(Cha ne0,1,1)) ou carCha ne(sous-Cha ne(Cha ne0,2,longueur(Cha ne0)-1),"ú
Then
Disp "ERROR SIGN
Stop
End
Cha ne0+"+üCha ne0
0üdim(L‚
L‚üLƒ
1üJ
0üL
" üCha ne9
For(I,1,longueur(Cha ne0
sous-Cha ne(Cha ne0,I,1üCha ne1
If carCha ne("ABCDEFGHIJKLMNOPQRSTUVWXYZÁ",Cha ne1
Then
If Cha ne9="
Cha ne1üCha ne9
If Cha ne1øCha ne9
Then
Disp "ERROR VARIABLES
Stop
End
If Cha ne1ø"X
Then
"XüCha ne1
If I>1
sous-Cha ne(Cha ne0,1,I-1)+Cha ne1+sous-Cha ne(Cha ne0,I+1,longueur(Cha ne0)-IüCha ne0
If I=1
Cha ne1+sous-Cha ne(Cha ne0,2,longueur(Cha ne0)-1üCha ne0
End
End
If carCha ne("+-",Cha ne1
Then
expr(sous-Cha ne(Cha ne0,J,I-JüL‚(1+dim(L‚
If sous-Cha ne(Cha ne0,J-(J>1),1)="- úL‚(dim(L‚üL‚(dim(L‚
If non(carCha ne(sous-Cha ne(Cha ne0,J,I-J),"X
0üLƒ(1+dim(Lƒ
I+1üJ
If L
Then
IüM
While carCha ne(sous-Cha ne(Cha ne0,K,M-K),"*") ou carCha ne(sous-Cha ne(Cha ne0,K,M-K),"/
M-1üM
End
expr(sous-Cha ne(Cha ne0,K,M-KüLƒ(1+dim(Lƒ
0üL
End
End
If Cha ne1="X
Then
If non(carCha ne("ÜÓ^",sous-Cha ne(Cha ne0,I+1,1
1üLƒ(1+dim(Lƒ
If sous-Cha ne(Cha ne0,I+1,1)="Ü
2üLƒ(1+dim(Lƒ
If sous-Cha ne(Cha ne0,I+1,1)="Ó
3üLƒ(1+dim(Lƒ
If sous-Cha ne(Cha ne0,I+1,1)="^
Then
I+2üK
1üL
End
End
End
1+max(Lğdim(L
dim(LüD
For(I,1,dim(L‚
L‚(I)+L(dim(L)-Lƒ(IüL(dim(L)-Lƒ(I
End
EffEcr
arrondi(L,0üL
0üdim(L‚
While non(L(D
D-1üD
0üL‚(1+dim(L‚
End
L(1üU
abs(UüT
For(I,2,D
pgcd(T,abs(L(IüT
End
If T
L/TüL
0üdim(Lƒ
0üdim(L„
abs(L(1üA
For(I,1,ð(A
If non(partD–c(A/I
Then
IüLƒ(1+dim(Lƒ
A/IüLƒ(1+dim(Lƒ
End
End
abs(L(DüB
For(I,1,ð(B
If non(partD–c(B/I
Then
IüL„(1+dim(L„
B/IüL„(1+dim(L„
End
End
0üdim(L…
For(I,1,dim(Lƒ
For(J,1,dim(L„
L„(J)/Lƒ(IüL…(1+dim(L…
End
End
EffVar LƒEffVar L„Tricroi(L…
1üA
Lbl 1
0üB
Repeat B=2
L(1üLƒ(1
For(I,2,D
L(I)+Lƒ(I-1)L…(AüLƒ(I
End
If Lƒ(D
Then
B+1üB úL…(AüL…(A
Else
L…(AüL‚(1+dim(L‚
D-1üD
LğL
EffVar Lƒ
End
End
Lbl 2
A+1üA
If D=1 ou A>dim(L…
Goto 3
If L…(A)=L…(A-1
Goto 2
Goto 1
Lbl 3
EffVar L…
If non(dim(L‚
Then
Disp "NO RATIONAL ROOT
Else
EffDessin:AxesNAff
FonctNAff :GraphNAff
0üK
0üL
1üP
0üdim(Lƒ
0üdim(L„
For(M,1,dim(L‚
abs(partD–c(L‚(MüE
1üN
While E>ûú7N
N/EüN
partD–c(EñüE
End
If 1>partD–c(N
ent(NüN
arrondi(N,0üN
NPüP
NüL„(1+dim(L„
NL‚(MüLƒ(1+dim(Lƒ
End
If U<0
Then
Texte(0,0,"ú
L+4üL
abs(UüU
End
PT/UüP
If P>1
Then
pgcd(P,TüE
P/EüP
T/EüT
End
If T>1
Then
Texte(K,L,T
L+4+4ent(log(TüL
End
For(M,1,dim(L‚
L„(MüN
Lƒ(MüO
If L>80
EffVar LK+7üK
Texte(K,L,"(
L+3üL
If N>1
Then
Texte(K,L,N
L+4+4ent(log(NüL
End
Texte(K,L,Cha ne9
L+4üL
If O
Then
If O>0
Texte(K,L,"-
If O<0
Texte(K,L,"+
L+4üL
If L>80
EffVar LK+7üK
Texte(K,L,abs(O
L+4+4ent(log(abs(OüL
End
Texte(K,L,")
L+3üL
End
If P>1
Then
Texte(K,L,"/
Texte(K,L+4,P
End
Pause
FonctAff :AxesAff
If D>1 et dim(L‚
Then
Düdim(L
Disp "LEFT TO FACTOR:
Pause L
Else
Disp "
---------------------- Eleve a Supinfo, programmeur C/C#/C++/Java/Assembleur
Delphi/et tout les langages Web.
Autorisation : Membre
Nb de messages : 33
Inscrit le : Sam 10 Avr 2010, 17:36
Posté le : Jeu 20 Mai 2010, 19:29
tu devrais le réecrire toi même parce que là ce programme est ilisible, et certains caractères de s'affichent pas (les barres noires).
En attendant on ne sait même pas comment il fonctionne.
---------------------- Bill Gates voulait créer un logiciel pour l'agriculture. C'est fait! Windows Plante!
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 20 Mai 2010, 21:18
Ma seule piste est que l'erreur est quelque part dans une fonction de chaîne.
Jusqu'à présent le seul cas dont je me souvienne donnant le même résultat en choisissant voir, concernait des fonctions de chaînes.
Pour trouver la ligne de l'erreur, ajoute des Disp contenant différents chifres un peu partout dans le programme. Ainsi le dernier caractère affiché à l'écran avant le bug indiquera la proximité de la ligne de l'erreur.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png)
