Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 1500
Réponses : 3
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Delta, polynome du second degré, et f(x)=0

SwordArtOnline le 15/12/2015 à 21:32
code très long pour ti-82 plus ou ti-83 plus je m'en excuse d'avance mais bon... ^^
le voici:
Code
EffDess
EffÉcran
DelVar Y1;
DelVar Y2;
DelVar Y3;
DelVar Chn1
EffListe L1;
0->Xmin
94->Xmax
­62->Ymin
0->Ymax
AxesNAff
Disp "F(X)=aX²+bX+c
Input "a=",A
Input "b=",B
Input "c=",C
B²-4AC->D
Texte(11,1,"a=",A,"  B=",B,"  C=",C
Texte(0,37,"DELTA
Ligne(37,­7,55,­7
Texte(21,1,"D=b²-4ac
Texte(28,1,"D=",B,"²-4x",A,"x",C
Texte(35,1,"D=",B²,"-",4AC
Texte(42,1,"D=",D
If D>0
Texte(52,1,"D>0   <=>   2 Solutions
If non(D
Texte(52,1,"D=0   <=>   1 Solution
If D<0
Texte(52,1,"D<0   <=>   0 Solution
Pause
EffDess
If D=0
Then
Texte(4,1,"X0=
Texte(0,13,"-b
Texte(8,13,"2a
Ligne(13,­7,19,­7
Texte(18,1,"X0=
Texte(22,13,"2x",A
40->X
27->T
While non(pxl-Test(T,X
X-1->X
End
Ligne(13,­21,X+1,­21
11+.5(X-13)-partDéc(.5(X-13->X
Texte(14,X,­B
Texte(32,1,"X0=
Texte(28,13,­B
Texte(36,13,2A
40->X
33->T
For(Ø,1,2
While non(pxl-Test(T,X
X-1->X
End
X->L1(Ø
40->X
41->T
End
TriD(L1
Ligne(13,­35,L1(1),­35
­-B/(2A->L(1
Texte(42,1,"X0=",L1(1
Pause
End
If D>0
Then
Texte(4,1,"X1=
Texte(0,13,"-b-[symbole_racine_carrée];(D)
Ligne(13,­7,39,­7
Texte(8,22,"2a
Texte(18,1,"X1=
Texte(14,13,­B,"-[symbole_racine_carrée](",D,")
46->X
19->T
While non(pxl-Test(T,X
X-1->X
End
Ligne(13,­21,X+1,­21
8+.5(X-13)-partDéc(.5(X-13->X
Texte(22,X,"2x",A
Texte(32,1,"X1=
Texte(28,13,­B,"-",[symbole_racine_carrée](D
33->T
46->X
While non(pxl-Test(T,X
X-1->X
End
Ligne(13,­35,X,­35
11+.5(X-13)-partDéc(.5(X-13->X
Texte(36,X,2A
Texte(46,1,"X1=
Texte(42,13,­B-[symbole_racine_carrée](D
47->T
46->X
While non(pxl-Test(T,X
X-1->X
End
Ligne(13,­49,X,­49
11+.5(X-13)-partDéc(.5(X-13->X
Texte(50,X,2A
(­B-[symbole_racine_carrée](D))/(2A->L1(1
Texte(56,1,"X1=",L1(1
Texte(4,47,"X2=
Texte(0,59,"­b+[symbole_racine_carrée](D)
Texte(8,70,"2a
Ligne(59,­7,86,­7
Texte(18,47,"X2=
Texte(14,59,­B,"+[symbole_racine_carrée](",D,")
19->T
94->X
While non(pxl-Test(T,X
X-1->X
End
Ligne(59,­21,X+1,­21
54+.5(X-59)-partDéc(.5(X-59->X
Texte(22,X,"2x",A
Texte(32,47,"X2=
Texte(28,59,­B,"+",[symbole_racine_carrée](D
33->T
94->X
While non(pxl-Test(T,X
X-1->X
End
Ligne(59,­35,X,­35
57+.5(X-59)-partDéc(.5(X-59->X
Texte(36,X,2A
Texte(46,47,"X2=
Texte(42,59,­B+[symbole_racine_carrée](D
47->T
94->X
While non(pxl-Test(T,X
X-1->X
End
Ligne(59,­49,X,­49
57+.5(X-59)-partDéc(.5(X-59->X
Texte(50,X,2A
(­B+[symbole_racine_carrée](D))/(2A->L1(2
Texte(56,47,"X2=",L1(2
TriA(L1;
Pause
End
EffDess
Ligne(1,­20,88,­20
Ligne(15,­10,15,­40
Texte(12,6,"X
Texte(27,1,"F(X)
Texte(12,17,"-o
Texte(12,23,"o
Texte(12,80,"+o
Texte(12,86,"o
Texte(0,0,"[symbole_infini]=      ]
Texte(0,13,"o
Texte(0,15,"o
Texte(0,22,"Les solutions peuvent
Texte(6,22,"être incomplètes
If D<0
Then
Ligne(47,­31,55,­31
If A>0
Ligne(51,­27,51,­35
Texte(44,1,"F(X)>0   si   X[symbole_appartient_a]]-[symbole_infini],+[symbole_infini][
If A<0
Texte(44,15,"<
End
If D=0
Then
.1(10L1(1)-partDéc(10L1(1->L1(1
Texte(12,48,L1(1
Ligne(51,­21,51,­40
Cercle(51,­31,4
Ligne(29,­31,37,­31
Ligne(67,­31,75,­31
If A>0
Then
Ligne(33,­27,33,­35
Ligne(71,­27,71,­35
End
Texte(44,1,"F(X)>0 si X[symbole_appartient_a]]-[symbole_infini],",L1(1),"[U]",L1(1),",+[symbole_infini][
If A<0
Texte(44,15,"<
End
If D>0
Then
.1(10L1(1)-partDéc(10L1(1->L1(1
.1(10L1(2)-partDéc(10L1(2->L1(2
Texte(12,36,L1(1
Texte(12,56,L1(2
Ligne(39,­21,39,­40
Ligne(63,­21,63,­40
Cercle(39,­31,4
Cercle(63,­31,4
For(Ø,23,71,24
Ligne(Ø,­31,Ø+8,­31
End
If A>0
Then
Ligne(27,­27,27,­35
Ligne(75,­27,75,­35
End
If A<0
Ligne(51,­27,51,­35
Texte(44,1,"F(X)>0 si X[symbole_appartient_a]]-[symbole_infini],",L1(1),"[U]",L1(2),",+[symbole_infini][
Texte(52,1,"F(X)<0 si X[symbole_appartient_a]",L1(1),",",L1(2),"[
If A<0
Then
Texte(44,15,"<
Texte(52,15,">
End
End
Pause
EffDess
EffÉcran
­10->Xmin
10->Xmax
1->Xgrad
­10->Ymin
10->Ymax
1->Ygrad
CoordAff
AxesAff
Disp "
Output(1,2,"Bon contrôle :]


Vous pouvez voir le programme ici : https://www.youtube.com/watch?v=uXPyj7PypTI
adribaz le 06/01/2016 à 10:50
Slt, ton programme prend combien d'octets au total stp ?

J'avais deja fait un programme a peu pret simillaire au tien mais bien plus développer (je ne l'ai pas posté sur le site) et prend 1306 octets.

Dans mon programme il y a :
- la forme canonique de la fonction de Second degré que tu as défini juste avant,
- le Tableau de variations avec intervalle soit Infinie soit un autre que tu défini juste après, et
- Le Delta (Rappel : b^2-4ac) avec X1 [Rappel : (-b-[racine carré]de Delta)/2a] et X2 [Rappel : (-b+[racine carré]de Delta/2a].
SwordArtOnline le 30/01/2016 à 17:52
Il fait 2438 octets mais il fait aussi les calculs détaillé des 2 racines: X1 = (-b-racine(delta))/2a et X2 = (-b+racine(delta))/2a
adribaz le 01/02/2016 à 10:33
Ok SwordArtOnline cupsmiley.gif happy.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.