Programme DELTA pour TI 82-TI 83
Objectif : Ce programme est écrit pour TI 82, 83. Il permet de calculer le discriminant d’un polynôme du
second degré, donne les racines éventuelles, rappelle la factorisation éventuelle et donne les coordonnées
du somment de la parabole. (ne pas saisir les commentaires en italique)
ClrHome (efface l’écran) Disp "X2=" End
2
Disp "Y=AX +BX+C" Disp RFrac
Disp "A?" Pause If D<0
Input A (demande a) Then
Disp "B?" Disp "P=A(X-X1)(X-X2)" Disp "P(X) N EST PAS"
Input B Pause Disp "FACTORISABLE"
Disp "C?" Goto 1 (va au label 1 . lbl 1) Disp "DANS R"
Input C End Pause
B²- 4A*C D (D= delta) Lbl 1
Disp "DELTA=" If D=0 ClrHome
Disp D Frac Then Disp "SOMMET
Pause (pause affichage) Disp "P(X) EST FACTO." PARABOLE"
ClrHome Disp "P(X)=0 ADMET UNE" -B/(2A) X
If D>0 (test la valeur de D) Disp "RACINE DOUBLE:" AX²+BX+C Y
Then Disp "X= ",X
Disp "P(X) EST FACTO." -B/(2A) X Disp "Y= ",Y
Disp "2 RACINES:" Disp "X0=" End
Pause Disp X Frac
(-B+ (D) )/(2A) S (1ere racine) Pause
(-B- (D) )/(2A) R (2em racine) Disp "P(X)=A(X-X0)²"
Disp "X1=" Pause
Disp SFrac Goto 1
On entre les coefficients a, b et c et on a les réponses. Exemple : si y= 3x² - 5 a=3 b=0 c= -5
Programme DELTA pour TI 85
If D<0 : Then
ClLCD (efface l’écran) Disp "P=A(X-X1)(X-X2)" Disp "P(X) N EST PAS"
2
Disp "Y=AX +BX+C" Pause Disp "FACTORISABLE"
Disp "A?" Goto A (va au label A . lbl A) Disp "DANS R"
Input A (demande a) End Pause
Disp "B?" Lbl A
Input B If D==0 ( 2 « égal » ! !) ClLCD
Disp "C?" Then Disp "SOMMET
Input C Disp "P(X) EST FACTO." PARABOLE"
B²- 4A*C D (D= delta) Disp "P(X)=0 ADMET UNE" -B/(2A) X
Disp "DELTA=" Disp "RACINE DOUBLE:" A*X²+B*X+C Y
Disp D Frac Disp "X= ",X
Pause (pause affichage) -B/(2A) X Disp "Y= ",Y
ClLCD Disp "X0=" End
If D>0 :Then (teste la valeur de D) Disp X Frac
Disp "P(X) EST FACTO." Pause
Disp "2 RACINES:" Disp "P(X)=A(X-X0)²"
Pause Pause
(-B+ (D) )/(2A) S (1ere racine) Goto A
(-B- (D) )/(2A) R (2em racine) End
Disp "X1="
Disp SFrac
Disp "X2="
Disp RFrac
Pause
Programme DELTA pour Casio 35+
"EQUAT 2ND DEGRE" : "AX²+BX+C=0" : Goto 4:
"A=": ?A :"B=" : ?B :"C=" : ?C :B²-4AC :Lbl 2:"RACINE DOUBLE" : "X=" : T
D :"DISCRIMINANT=":D “P(X)=A(X-X1)² “
-B/(2A)T Goto 4:
D>0 Goto 1 Lbl 3: "PAS DE RACINES" : "PAS DE
D=0 Goto 2 FACTO."
D<0 Goto 3 Lbl 4
:Lbl 1 : "DEUX RACINES" : (-B- D )/(2A) "SOMMET PARABOLE:":"X=":T
Z : (-B+ D ) /(2A) Y : "X1=": Z "Y=":AT²+BT+C
"X2=":Y
“P(X)= “ : “A(X-X1)(X-X2)“
Organigramme du programme
On demande à On calcule
DEBUT l’utilisateur les (correspond à D)
coefs A, B et C
On affiche delta.
Puis Pause.
Nettoyage écran
On affiche la On calcule et On affiche «P(x)
on affiche les D est il strict
factorisation : est factorisable.
positif ? ?
P(x) =a(x-x1)(x-x2) 2 racines 2 racines » OUI
NON
On affiche la On calcule et On affiche «P(x) OUI
factorisation : on affiche la est factorisable. D est il
P(x) =a(x-x1)² racine 1 racine double» nul ? ?
NON
On affiche
«P(x) n’est pas
factorisable.
Pas de racines
LABEL 1 ou A
On affiche «sommet
parabole» :
Calcul et affichage
des coordonnées
(x ;y) du sommet
FIN
