Posté le 25/11/2007 à 21:57Edité par Nyks le 29/11/2007 à 17:44 Membre depuis le 25/11/2007, 9 messages
voilà donc si vous voulez mes programmes, les voilà:

Pour le calcul du PGCD:

Output(2,6,"------" 
Output(6,6,"------" 
Output(3,5,"! MADE !" 
Output(4,5,"!  BY  !" 
Output(5,5,"! NICO !" 
Pause 
ClrHome 
Disp "PGCD" 
Output(3,8,"A") 
Output(4,8,"-") 
Output(5,8,"B") 
Pause 
ClrHome 
Prompt A 
Prompt B 
A→Y 
B→Z 
ClrHome 
 
Output(3,8,Y) 
Output(4,7,"---") 
Output(5,8,Z) 
abs(A)→A 
abs(B)→B 
If B 
Goto 0 
A→C 
B→A 
C→B 
Lbl 0 
-(int(A/B)*B-A)→C 
If C=0 
Goto 1 
B→A 
C→B 
Goto 0 
Lbl 1 
Output(6,2,"PGCD:" 
Output(6,7,B) 
Pause 
ClrHome 
If Z/B=1 
Goto 9 
Output(2,3,"RESULTAT" 
Output(4,8,Y/B) 
Output(5,7,"---" 
Output(6,8,Z/B) 
Lbl 9 
Output(2,3,"RESULTAT:") 
Output(4,8,Y/B) 
Z/B→K 
Y/B→L 
Pause 


Pour les équations du second degrès, avec calcul de delta, des solutions, de la somme et du produit des équations, du sommet de la représentation graphique, et enfin le graphique:

Output(2,6,"------") 
Output(6,6,"------") 
Output(3,5,"! MADE !" 
Output(4,5,"!  BY  !" 
Output(5,5,"! NICO !" 
Pause 
ClrHome 
Disp "AX²+BX+C=0" 
Input "A =",A 
Input "B =",B 
Input "C =",C 
ClrHome 
If A=0 
Then 
Output(3,3,"CE N EST PAS") 
Output(5,3,"DU SECOND DEGRE") 
Pause 
Goto C 
End 
B²-4AC→D 
Output(1,1,"DELTA =") 
Output(1,9,D) 
If D>0 
Then 
Output(2,1,"2 SOLUTIONS") 
(-B+√(D))/(2*A)→F 
(-B-√(D))/(2*A)→G 
Output(8,1,"SOIT...") 
Pause 
ClrHome 
Disp "S1 =",F►Frac 
Disp "S2 =",G►Frac 
Pause 
ClrHome 
Disp "X1+X2 =",(-B/A)►Frac,"X1*X2 =",C/A►Frac 
End 
If D<0 
Then 
Output(2,1,"AUCUNE SOLUTION") 
Pause 
Goto C 
End 
If D=0 
Then 
Output(2,1,"1 SOLUTION") 
(-B/(2A))&#8594;E 
Output(4,1,"S=") 
Output(4,3,-B) 
Output(4,6,"/") 
Output(4,7,2A) 
Output(6,1,"SOIT...") 
Pause 
ClrHome 
Disp "S = ",E&#9658;Frac 
End 
Lbl E 
Pause 
ClrHome 
Menu("GRAPHIQUE","OUI",D,"NON",C) 
Lbl D 
Disp "XS=",(-B/2A)&#9658;Frac 
Disp "YS=",(-D/4A)&#9658;Frac 
Pause 
AxesOn 
StoreGD5 
"AX²+BX+C"&#8594;Y 
ZStanda 
DispGra 
(-B/2A)&#8594;P 
(-(B²-4AC)/4A)&#8594;Q 
Pause 
Text(6,0,"X =",P 
Text(12,0,"Y =",Q 
Pause 
RecallG5 
Lbl C 
ClrHome


voilà, jespère que çapeut vous servir! les conseils sont les bienvenu bien sur..

edit2: merci, je n'avais pas fait attention, c'est rectifié.. encore rectifié..
Posté le 25/11/2007 à 22:40 Membre depuis le 15/03/2005, 3470 messages
Y'a certains caractère qui passent mals si tu ne les converties pas (essaye avec zTXT).
Posté le 26/11/2007 à 18:26 Membre depuis le 25/11/2007, 9 messages
Ah d'ailleur j'ai une petite question, lorsque je donne les deux résultats je met ça :
Output(2,1,"2 SOLUTIONS")  
(-B+&#8730;(D))/(2*A)&#8594;F  
(-B-&#8730;(D))/(2*A)&#8594;G  
Output(8,1,"SOIT...")  
Pause  
ClrHome  
Disp "S1 =",F&#9658;Frac  
Disp "S2 =",G&#9658;Frac  

de sorte d'avoir les résultats sous forme fractionnaire, mais ça ne marche pas à tout les coups.. comment faire s'il vous plais? merci happy
Posté le 26/11/2007 à 18:55 Membre depuis le 15/03/2005, 3470 messages
Enfaite c'est juste que des fois ce n'est pas 'fractionnable' à mon avis (donc ça reste comme c'est).
Posté le 26/11/2007 à 21:20 Membre depuis le 09/02/2005, 13736 messages
Tout a fait, s'il y a des racines c'est irrationnel, donc "infractionnable", maintenant tu peux toujours mettre au carré, et afficher sous fraction avec un signe racine devant.
Posté le 26/11/2007 à 22:14 Membre depuis le 15/03/2005, 3470 messages
Tiens par contre y'a ce bug que j'avais déjà rencontrer :

B²-4AC&#8594;[b][/b]D
normalement si on le poste dans quelque chose qui prend en compte le bbcode ça devrai pas ce voir mais du coup ici c'est visible.
Posté le 29/11/2007 à 17:52 Membre depuis le 25/11/2007, 9 messages
j'ai édité..

Mais sinon les racines sont fractionnables..
ex: pour 4x²+3x-1

x1=(1)
x2=(1/4)

mais je vais essayer avec ton histoire de carré..

merci beaucoup en tout cas! je débute tout juste dans la programmation..

ah, j'avais une autre question, je veux faire un programme ou je ferais bouger une étoile sur l'écran par exemple.. jusqu'ici tout vas bien, mais comment supprimmer la "trainé" laissé par cette dernière?
Posté le 29/11/2007 à 18:52 Membre depuis le 06/02/2006, 349 messages
ça dépend de l'écran (écran graphique ?), mais le principe est le même : avant de déplacer tu effaces l'étoile

Par exemple :
ClrHome
1->A                             //position x de l'étoile
1->B                             //position y de l'étoile
Output(A,B,"*                    //on affiche l'étoile
While 1
0->K
While not(K                     //attend l'appui d'une touche
getKey->K
End
Output(A,B,"_             //"_" => 1 espace
A-(K=24)(A>1)+(K=26)(A<16->A
B-(K=25)(B>1)+(K=34)(B<8->B
Output(A,B,"*                  //On réaffiche l'étoile
End
Posté le 29/11/2007 à 19:08 Membre depuis le 15/03/2005, 3470 messages
'While not(K' remplace le par un 'Repeat K' ça prend moins de place.
Posté le 29/11/2007 à 19:22 Membre depuis le 06/02/2006, 349 messages
aussi mais c'est pas important pour lui ^^
Posté le 29/11/2007 à 19:43 Membre depuis le 25/11/2007, 9 messages
merci, je teste ça tout de suite..
Posté le 29/11/2007 à 22:14 Membre depuis le 09/02/2005, 13736 messages
Nyks (./7) :
Mais sinon les racines sont fractionnables..
ex: pour 4x²+3x-1

x1=(1)
x2=(1/4)

mais je vais essayer avec ton histoire de carré..
Nan mais je parlais des racines carrées biensur, pas des racines du polynome ^^
Posté le 22/02/2008 à 15:31 Membre depuis le 24/08/2007, 729 messages
Note :

Pour le calcul du pgcd, ya déjà "gcd(" qui existe dans le menu math :s
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Posté le 23/02/2008 à 01:59 Membre depuis le 09/07/2003, 21783 messages
Nyks (./3) :
de sorte d'avoir les résultats sous forme fractionnaire, mais ça ne marche pas à tout les coups

Nyks (./7) :
Mais sinon les racines sont fractionnables..


Non c'est normal les solutions peuvent être irrationnel.
Au passage un nombre 'fractionable', on appel ça un nombre rationnel (i.e qui peut s'écrit a/b avec a et b entier. Les anciens parlaient de raison pour les divisions, d'où rationnel, ratio, etc.. ), et un nombre 'infractionable' un nombre irrationnel.

Et les racines d'un polynôme de degré supérieur ou égal à deux à coefficient entiers ( ou rationnels ) peuvent êtres irrationnels.
En degré deux, on voit facilement à partir des formules que ça vient de la racine carré..

Par contre (tjs avec coefficients entiers ou rationnels ) t'es assuré que tes nombres sont algébriques, et il y a assez peu de nombres algébriques (c'est dénombrable -- en gros c'est presque pareil que |N l'ensemble des entiers ou Q l'ensemble des nombres rationnels ), ça contient entièrement les nombres rationnels mais pas tous les irrationnels.
En clair tu ne pourras jamais trouver de nombre comme e ou Pi en solution, et en gros tu aura plus de rationnels que d'irrationnels que si tu tirais au hasard dans |R