Programmes calculatrice

Programmes Calculatrice

Fonctions polynôme de de degré 2

I - Détermination des coefficients a,b,c

Pour Casio	Pour TI
Cls 0X Y1C 3X (Y1-C)/3D 4X (Y1-C)/4E E-DA D-3AB Text 1,1,"VALEURS COEFFS :" Text 10,1,"A=" Text 10,10,A Text 20,1,"B=" Text 20,10,B Text 30,1,"C=" Text 30,10,C	Y1(0)C (Y1(3)-C)/3D (Y1(4)-C)/4E E-DA D-3AB Disp "VALEURS COEFFS :" Disp "A=" Disp A Disp "B=" Disp B Disp "C=" Disp C Pause

II - Détermination du coefficient directeur d'une droite

Pour Casio	Pour TI
"A(XA,YA)" "B(XB,YB)" "XA=" ?A "YA=" ?B "XB=" ?C "YB=" ?D "COEFFICIENT DIRECTEUR:" (D-B)/(C-A)	Disp "A(XA,YA)" Disp "B(XB,YB)" Input "XA= ",A Input "YA= ",B Input "XB= ",C Input "YB= ",D Disp "COEFFICIENT DIRECTEUR :" Disp (D-B)/(C-A)

III - Détermination des solutions d'une équation de la forme ax² + bx + c =0

Pour Casio	Pour TI
"A=" ?A "B=" ?B "C=" ?C "DELTA=" B²-4ACD D If D>0 Then "2 SOLUTIONS :" "S1 =" (-B-√D)/(2A) "S2 =" (-B+√D)/(2A) Else If D=0 Then "1 SOLUTION :" "S =" -B/(2A) Else "0 SOLUTION" IfEnd IfEnd	Input "A= ",A Input "B= ",B Input "C= ",C Disp "DELTA=" B²-4ACD Disp D If D>0 Then Disp "2 SOLUTIONS:" Disp "S1 =" Disp (B-√D)/(2A) Disp "S2 =" Disp (B+√D)/(2A) Else If D=0 Then Disp "1 SOLUTION:" Disp "S=" Disp -B/(2A) Else Disp "0 SOLUTION" End End Pause

IV - Tableau de variation d'une fonction de la forme f(x) = ax³ + bx² + cx + d
Attention, le programme est long !

Pour Ti (en français)

Pour Casio

AxesNAFF EffDessin 94Ymax 62Ymax 1Xmin 1Ymin Disp "ETUDE DE FONCTION" Disp "F(X)=AX^3+BX²+CX+D" Input "A=",A Input "B=",B Input "C=",C Input "D=",D 3AE 2BF Texte(1,1,"F'(X)=") Texte(1,21,arrondi(E,2)) Texte(1,35,"X²+") Texte(1,48,arrondi(F,2)) Texte(1,62,"X+") Texte(1,72,arrondi(C,2)) F²-4ECK Texte(8,1,"DELTA=") Texte(8,25,K) If K>0 Then 2S (-F-√(K))/(2E)G (-F+√(K))/(2E)H If G>H Then GI HG IH End Texte(8,37,"S1=") Texte(8,49,arrondi(G,2)) Texte(8,68,"S2=") Texte(8,81,arrondi(H,2)) Else If K=0 Then 1S -F/(2E)H Texte(8,40,"S=") Texte(8,52,arrondi(H)) Else 0S Texte(8,40,"PAS DE SOLUTION") End End Ligne(18,47,18,1) Ligne(1,39,92,39) Ligne(1,31,92,31) Texte(14,1,"X") Texte(24,1,"F'(X)") Texte(33,1,"F(X)") If S=0 Then If C>0 Then Texte(24,55,"+") Ligne(20,2,90,29) Ligne(85,29,90,29) Ligne(87,26,90,29) Else Texte(24,55,"-") Ligne(20,29,90,2) Ligne(85,2,90,2) Ligne(87,5,90,2) End Else If S=1 Then Texte(14,55,"S") Texte(24,55,0) If E>0 Then Texte(24,36,"+") Texte(24,74,"+") Else Texte(24,36,"-") texte(24,74,"-") End Else Texte(14,37,"S1") Texte(14,68,"S2") Texte(24,37,0) Texte(24,68,0) If E>0 Then Texte(24,28,"+") Texte(24,52,"-") Texte(24,80,"+") Ligne(20,2,43,29) Ligne(38,29,43,29) Ligne(43,24,43,29) Ligne(45,29,67,2) Ligne(62,2,67,2) Ligne(67,7,67,2) Ligne(69,2,90,29) Ligne(85,29,90,29) Ligne(90,24,90,29) Else Texte(24,28,"-") Texte(24,52,"+") Texte(24,80,"-") Ligne(20,29,43,2) Ligne(38,2,43,2) Ligne(43,2,43,7) Ligne(45,2,67,2) Ligne(67,29,62,29) Ligne(67,29,67,24) Ligne(69,29,90,2) Ligne(90,2,85,2) Ligne(90,2,90,7) End

ViewWindow 1,128,0,1,64,0 AxesOff Cls 0A~Z "ETUDE DE FONCTION" "F(X)=AX^3+BX²+CX+D" "A="?A "B="?B "C="?C "D="?D 3AE 2BF Text 1,1,"F'(X)=" Text 1,24,Int(100*E)/100 Text 1,43,"X²+" Text 1,60,Int(100*F)/100 Text 1,80,"X+" Text 1,88,Int(100*C)/100 F²-4ECK Text 8,1,"DELTA=" Text 8,25,K If K>0 Then 2S (-F-√(K))/(2E)G (-F+√(K))/(2E)H If G>H Then GI HG IH IfEnd Text 8,39,"S1=" Text 8,51,Int(100*G)/100 Text 8,72,"S2=" Text 8,85,Int(100*H)/100 Else If K=0 Then 1S -F/(2E)H Text 8,40,"S=" Text 8,52,Int(100*H)/100 Else 0S Text 8,50,"PAS DE SOLUTION" IfEnd IfEnd F-Line 20,47,20,1 F-Line 1,41,92,41 F-Line 1,31,92,31 Text 17,1,"X" Text 26,1,"F'(X)" Text 35,1,"F(X)" If S=0 Then If C>0 Then Text 26,55,"+" F-Line 20,2,90,29) F-Line 85,27,90,29) F-Line 87,26,90,29) Else Text 24,55,"-" F-Line 22,29,90,2 F-Line 85,2,90,2) F-Line 90,7,90,2) IfEnd Else If S=1 Then Text 17,55,"S" Text 26,55,0 If E>0 Then Text 26,36,"+" Text 26,74,"+" Else Text 26,36,"-") Text 26,74,"-" IfEnd Else Text 17,37,"S1" Text 17,68,"S2" Text 26,38,0 Text 26,69,0 If E>0 Then Text 26,28,"+" Text 26,52,"-" Text 26,80,"+" F-Line 22,2,43,29 F-Line 38,29,43,29 F-Line 43,24,43,29 F-Line 45,29,67,2 F-Line 62,2,67,2 F-Line 67,7,67,2 F-Line 69,2,90,29 F-Line 85,29,90,29 F-Line 90,24,90,29 Else Text 26,28,"-" Text 26,52,"+" Text 26,80,"-" F-Line 22,29,43,2 F-Line 38,2,43,2 F-Line 43,2,43,7 F-Line 45,2,67,29 F-Line 67,29,62,29 F-Line 67,29,67,24 F-Line 69,29,90,2 F-Line 90,2,85,2 F-Line 90,2,90,7 IfEnd IfEnd

V - Programme de secours si votre calculatrice ne contient pas les fonctions binomFdp, binomFrép ou BinomialPD et BinomialCD
Ce programme permet de calculer les probabilités de la forme P(a ≤ X ≤ b) pour une loi binomiale, et donc avec de l'astuce toutes les autres probabilités possibles.

Pour Ti (en français)	Pour Casio Remarque : _C_ est la fonction combinaison, obtenue en faisant OPTNPROBnCr
Disp "P(K2≤X≤K1)" Input "N=",N Input "P=",P Input "K1=",K Input "K2=",L 0M For (I,K,L) N Combinaison I*P^I*(1-P)^(N-I)+MM Output(1,1,"X=") Output(1,3,I) End Disp M	"P(K2≤X≤K1)" "N="?N "P="?P "K1="?K "k2="?L 0M For KI To L Step 1 N_C_I*P^I*(1-P)^(N-I)+MM ClrText Locate 1,1,I Next M

VI - Détermination d'un intervalle de fluctuation
Ce programme permet de calculer un intervalle de fluctuation au taux que vous choisissez

Pour Ti (en français)	Pour Casio Remarque : _C_ est la fonction combinaison, obtenue en faisant OPTNPROBnCr
Disp "INTERVALLE DE" Disp "FLUCTUATION" Input "N=",N Input "P=",P Input "SEUIL=",S 0M 0T Output(8,12," ") While T≤(1-S)/2 N Combinaison M*P^M*(1-P)^(N-M)+TT Output(8,12,M) M+1M End Disp "A=" TO While T<0.5+S/2 N Combinaison M*P^M*(1-P)^(N-M)+TT Output(8,12,M) M+1M End Disp "B=" Disp "P(A≤X≤B)=" Disp T-O	"INTERVALLE DE" "FLUCTUATION" "N="?N "P="?P "SEUIL="?S 0M 0T Locate 15,7," " While T≤(1-S)/2 N_C_M*P^M*(1-P)^(N-M)+TT Locate 15,7,M M+1M WhileEnd Locate 1,7,"A= " " " TO While T<0.5+S/2 N_C_M*P^M*(1-P)^(N-M)+TT Locate 15,7,M M+1M WhileEnd Locate 1,7,"B=" "P(A≤X≤B)=" T-O