Ti80.Online

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

Voici un programme bien pratique pour trouver la règle d'une fonction du 2e degré si nous connaissons le sommet et un point ou les zéros et un point.  En passant je suis sur ICQ et Battle.net avec le nom de Erik100.
E-mail:  rappelez_vous_de_mon_adresse@yahoo.com

' (apostrophe) est dans le STAT PLOT, MARK, 3.
--> est la touche STO> au-dessus du ON.
# est un espace (la touche 0 en mode ALPHA).
>FRAC est dans le FRAC,4.
>= est le signe supérieur ou égal
***    Je prends pour acquis que vous savez faire la distinction entre le moins bleu (touche "-") et le moins gris (touche "(-)")
            Si un message d'erreur se produit et qu'il se réfère à un moins, vérifiez si vous avez écrit le bon.
 
 

PROGRAM:REGLE
:CLRHOME
:DISP "PROGRAMME POUR","TROUVER LA REGLE","D'UNE FONCTION","","PAR ERIK SAMSON"
:PAUSE
:LBL 1
:CLRHOME
:DISP "CONNAISSEZ-VOUS","LE SOMMET?","1:OUI","2:NON"
:INPUT A
:IF (A<1)+(A>2)
:GOTO 1
:IF A=1
:THEN
:CLRHOME
:DISP "ENTREZ LE SOMMET"
:INPUT "H=",H
:INPUT "K=",K
:DISP "ENTREZ UN AUTRE","POINT"
:INPUT "X=",X
:INPUT "Y=",Y
:(Y-K)/((X-H)2)-->A
:DISP "VOICI DONC LA","REGLE:"
:PAUSE
:DISP "###########F(X)=",A>FRAC,"##############(X"
:PAUSE
:IF H>0
:THEN
:DISP "###############-",H>FRAC
:ELSE
:DISP "###############+",(-H)>FRAC
:END
:DISP "##############)2"
:PAUSE
:IF K>=0
:THEN
:DISP "###############+",K>FRAC
:ELSE
:DISP "###############-",(-K)>FRAC
:END
:STOP
:END
:IF A=2
:THEN
:CLRHOME
:DISP "ENTREZ VOS ZEROS"
:INPUT "X1=",U
:INPUT "X2=",D
:DISP "ENTREZ UN POINT"
:INPUT "X=",X
:INPUT "Y=",Y
:Y/((X-U)(X-D-->A
:DISP "VOICI DONC LA","REGLE:"
:PAUSE
:DISP "###########F(X)="
:PAUSE
:DISP A>FRAC,"##############X2"
:PAUSE
:IF A(-U-D)>=0
:THEN
:DISP "###############+",(A(-U-D))>FRAC
:ELSE
:DISP "###############-",(-(A(-U-D)))>FRAC
:END
:DISP "###############X"
:PAUSE
:IF AUD>=0
:THEN
:DISP "###############+",(AUD)>FRAC
:ELSE
:DISP "###############-",(-AUD)>FRAC
:END
:STOP
:END