Mes programmes - Page 1

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é..

Y'a certains caractère qui passent mals si tu ne les converties pas (essaye avec zTXT).

Ah d'ailleur j'ai une petite question, lorsque je donne les deux résultats je met ça :

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  

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

Enfaite c'est juste que des fois ce n'est pas 'fractionnable' à mon avis (donc ça reste comme c'est).

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.

Tiens par contre y'a ce bug que j'avais déjà rencontrer :

B²-4AC→[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.

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?

ç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

'While not(K' remplace le par un 'Repeat K' ça prend moins de place.

aussi mais c'est pas important pour lui ^^

merci, je teste ça tout de suite..

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 ^^

Note :

Pour le calcul du pgcd, ya déjà "gcd(" qui existe dans le menu math :s

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