Ti80.Online
Pour plus de programmes...
http://www.ti80.online.fr
ti80@citeweb.net
-----------------------------------
' (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