The K le 16/08/2012 à 13:38
Re-bonjour tout82
Après le joli fail de ce matin (voir la rubrique d'aide ahem !) J'ai finalisé Fcarré, la seconde routine nécéssaire au programme sur les dérivées ... qui marche également très bien sans !
Celui-la est un peu plus ... ou un peu moins ordonné que FPrime ... si vous avez des optimisations en tête n'hésitez pas
Code
EffEcr
EffVar NRepeat N<6 and N>0
Input "POLY DE °?",N
End
1+2Nü ( 
) dim(4
While N
EffEcr
Disp "x^ //x minuscule dans vars/stats/2
Output(1,3,N
Input "x?",A
Aü ( ) 4(N
N-1ü ( ) N
End
EffEcr
Input "RESTE?",A
dim(L4ü ( ) U
If U
L4(1ü ( ) B
If U>1
L4(2ü ( ) C
If U>2
L4(3ü ( ) D
If U>3
L4(4ü ( ) E
If U>4
L4(5ü ( ) F
"A²+2AB+B²+2AC+2BC+C²+2AD+2BD+2CD+D²+2AE+2BE+2CE+2DE+E²+2AF+2BF+2CF+2DF+2EF+F²+2ü ( ) Chaîne1
.5U-.5ü ( ) U
sous-chaîne(Chaîne1,1,2U²+5U+4ü ( ) Chaîne1
Remplir(0,L4
Repeat Chaîne1="2
sous-chaîne(Chaîne1,1,-1+CarChaîne(Chaîne1,"+ü ( ) Chaîne2
sous-chaîne(Chaîne1,2+longueur(Chaîne2),longueur(Chaîne1)-1-longueur(Chaîne2ü ( ) Chaîne1
EffVar Hexpr(Chaîne2ü ( ) G
If CarChaîne(Chaîne2,"B
1ü ( ) H
If CarChaîne(Chaîne2,"C
H+2ü ( ) H
If CarChaine(Chaîne2,"D
H+3ü ( ) H
If CarChaîne(Chaîne2,"E
H+4ü ( ) H
If CarChaîne(Chaîne2,"F
H+5ü ( ) H
If CarChaîne(Chaîne2,"²
2Hü ( ) H
G+L4(H+1ü ( ) L4(H+1
End
EffEcr
EffVar WDisp "F(x)²=
For(V,3,2+dim(L4
Output(V+W,2,L4(V-2
If V=!=3:Then //=!= signifie différent de
Output(V+W,1,"+
Output(V+W,10,"x^
Output(V+W,12,V-3
End
If V=8:Then
Pause
ClrHome
Disp "F(x)²= (Suite) //minuscule sur clavier / vars-stats
-6ü ( ) W
End
End
Pause
La pause a la fin sert à éviter le "Done" en plein milieu des résultats ...
Voila voila ^^ Qu'en pensez-vous ?
