Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Jeu 16 Aoû 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 ?
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
