Ti80.Online

Pour plus de programmes...
http://www.ti80.online.fr
ti80@citeweb.net
-----------------------------------


Ce programme permet de résoudre les équations de troisième degré:
_ il donne les nombres a, b et c pour la factorisation: (x-alpha)(ax²+bx+c)
_ il donne la factorisation finale en fonction de delta: a(x-alpha)(x-x1)(x-x2)
_ il dessine l'équation dans le graphique


Fait par Morgan 1°

_____________________________________________________

Nom du programme: POLYNOM
:CLRHOME
:DISP "POLYNOME:"
:INPUT "AX^3=",S
:INPUT "BX²=",T
:INPUT "CX=",U
:INPUT "D=",V
:INPUT "ALPHA=",E
:CLRHOME
:DISP "POUR AX²+BX+C"
:DISP "A=",S>FRAC
:T+(E*S)->K
:DISP "B=",K>FRAC
:-V/E->L
:DISP "C=",L>FRAC
:PAUSE
:CLRHOME
:DISP "FACTORISATION"
:K²-4(S*L)->@ ( @ = teta (ALPHA puis 3 sur la calculatrice))
:IF @>0
:THEN
:(-K+V@)/2S->N ( V@ = racine carré de teta)
:(-K-V@)/2S->O (V@ = racine carré de teta)
:DISP "A=",S
:DISP "ALPHA=",E
:PAUSE
:DISP "X1=",N>FRAC
:DISP "X2=",O>FRAC
:PAUSE
:GOTO 1
:ELSE
:IF @=0
:THEN
:-K/2S->P
:DISP "A=",S
:DISP "ALPHA=",E
:DISP "X=",P>FRAC
:PAUSE
:GOTO 1
:ELSE
:IF @<0
:THEN
:DISP "A=",S
:DISP "ALPHA=",E
:DISP "PAS DE","FACTORISATION"
:PAUSE
:GOTO 1
:LBL 1
:CLRDRAW
:DISPGRAPH
:DRAWF SX^3+TX²+UX+V