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))→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►Frac
End
Lbl E
Pause
ClrHome
Menu("GRAPHIQUE","OUI",D,"NON",C)
Lbl D
Disp "XS=",(-B/2A)►Frac
Disp "YS=",(-D/4A)►Frac
Pause
AxesOn
StoreGD5
"AX²+BX+C"→Y
ZStanda
DispGra
(-B/2A)→P
(-(B²-4AC)/4A)→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é..