Voici un programme contenant de nombreuses formules de Maths et de Physique ainsi que quelques outils pratiques en cours de maths. Le programme est très grand mais vous pouvez en recopier seulement une partie, car toutes les formules sont indépendantes. La seule chose obligatoire au bon fonctionnement du programme est la première partie qui permet de naviguer entre les menus. Si vous avez un conseil pour que je mette mon programme en téléchargement, je suis preneur. Je vous conseille de le copier coller avec ti connect.
Code
Goto J1
Lbl J1
Lbl 85
EffÉcran
Menu("Mathématiques","Physique",81,"Volume",82,"Aire",83,"Coord Vecteur",84,"Milieu segm",86,"Suite",A,"Quitter",89
Lbl A
Menu("Page 2","Pythagore",50,"Quartile",87,"Puissance",J,"ECC",U,"Depl liste",U1,"Suite",S1,"Retour",85
Lbl S1
Menu("Page 3","Socatoa",K,"Monotonie",S2,"Canonique",S3,"Racines",S4,"CARTESN",S5,"Retour",A
Lbl 89
EffÉcran
Output(3,3,"ICH BIN DER
Output(4,7,"PAPST"
Output(5,4,"PRODUCTION
GetCalc(A
GetCalc(A
EffÉcran
Stop
Lbl 50
Menu("Pythagore","Réciproque",BA,"Normal",BB,"Retour",A
Lbl K
EffÉcran
Menu("SOCATOA","COSSINUS",K1,"SINUS",K2,"TANGENTE",K3,"RETOUR",A
Lbl 81
EffÉcran
Menu("Physique 1","p=m/V",P1,"D(L)=p(L)/1000",P2,"n=(p*V)/M",P3,"n=m/M",P4,"sin(I1)*N1=sin(I2)*N2",P5,"Suite",P9,"Retour",85
Lbl P9
Menu("Physique 2","C=1/f'",P7,"1/OA'-1/OA=1/OF'",P8,"y=OA'/OA",P6,"Force Gravit",1P,"λmax*T=2.898^-3",2P,"Suite",PP,"Retour",81
Lbl 99
Menu("Solide","Prisme",11,"Cylindre",4,"Pyramide",5,"Boule",6,"Cone",8,"Cube",1,"Retour",85
Lbl 11
Menu("Prisme a base","Pentagonal R",7,"Rectangulaire",2,"Triangulaire",9,"Trapèse",12,"Retour",99
Lbl 83
EffÉcran
Menu("Polygone","Carré",71,"Rectangle",72,"Parallélogramme",73,"Trapèze",74,"Triangle",75,"Cercle",76,"Retour",85
*FIN DE LA PARTIE OBLIGATOIRE*
Lbl J
EffÉcran
Input "Nombre:",N
0→X
While N≥10
X+1→X
N/10→N
End
While N<1
X-1→X
N*10→N
End
Disp N,"",X
Pause
Goto 85
Lbl S5
Input "XU:",B
Input "YU:",A
Input "XA:",E
Input "YA:",F
Disp "A:",A
Disp "B:",B
Disp "C:",BF-AE
Pause
Goto 85
Lbl S2
Input "X:",N
Input "Xmin:",A
Input "Xmax:",B
A-1→X
Y₁→Y
EffListe L₂
EffListe L₁
EffListe L₃
EffListe L₄
4→L₁(1)
2→I
2→H
4→L₃(1
4→L₄(1
4→L₂(1
For(X,A,B,N
If Y=Y₁
Then
9→L₁(I
X→L₂(I
End
If Y<0
Then
1→L₃(H
X→L₄(H
End
If Y>0
Then
1→L₃(H
X→L₄(H
End
If Y<Y₁
Then
1→L₁(I
X→L₂(I
End
If Y=0
Then
9→L₃(H
X→L₄(H
End
If Y>Y₁
Then
1→L₁(I
X→L₂(I
End
If L₁(I-1)≠L₁(I)
1+I→I
If L₃(H-1)≠L₃(H)
1+H→H
Y₁→Y
End
4→L₁(I)
4→L₃(H
0→X
EffÉcran
0→J
If H>I
Then
H→G
Else
I→G
End
G→dim(L₁
G→dim(L₂
G→dim(L₃
G→dim(L₄
For(X,1,G
J+1→J
If L₁(X)=9
Then
Disp "CONSTANTE"
Disp L₂(X),L₂(X+1)
End
If L₃(X)=1
Then
Disp "NEGATIF"
Disp L₄(X)-N,L₄(X+1)-N
End
If L₃(X)=1
Then
Disp "POSITIF"
Disp L₄(X)-N,L₄(X+1)-N
End
If L₃(X)=9
Then
Disp "NUL
Disp L₄(X)-N,L₄(X+1)-N
End
If L₁(X)=1
Then
Disp "DECROISSANTE"
Disp L₂(X),L₂(X+1)
End
If L₁(X)=1
Then
Disp "CROISSANTE"
Disp L₂(X),L₂(X+1)
End
If J=1
Then
Pause
EffÉcran
0→J
End
End
Goto 85
Lbl S3
Disp "AX²+BX+C=","A(X-α)²+β"
Input "A:",A
Input "B:",B
Input "C:",C
Disp "α",B/(2A),"β",((B²-4AC)/(4A))
Pause
Goto 85
Lbl S4
Disp "AX²+BX+C=","A(X-x₁)(X-x₂)"
Input "A:",A
Input "B:",B
Input "C:",C
B²-4AC→θ
If θ<0
Disp "Pas de Racines"
If θ=0
Disp "a:",B/(2A)
If θ>0
Disp "x₁:",(B-√(θ))/(2A),"x₂:",(B+√(θ))/(2A)
Disp ":",θ
Pause
Goto 85
Lbl U1
Lbl U2
Input "Liste depart:",A
If A=1
Then
L₁→⌊L7
EffListe L₁
End
If A=2
Then
L₂→⌊L7
EffListe L₂
End
If A=3
Then
L₃→⌊L7
EffListe L₃
End
If A=4
Then
L₄→⌊L7
EffListe L₄
End
If A=5
Then
L₅→⌊L7
EffListe L₅
End
If A=6
Then
L₆→⌊L7
EffListe L₆
End
Input "Liste arrivée:",B
If B=1
Then
L₁→⌊L8
⌊L7→L₁
End
If B=2
Then
L₂→⌊L8
⌊L7→L₂
End
If B=3
Then
L₃→⌊L8
⌊L7→L₃
End
If B=4
Then
L₄→⌊L8
⌊L7→L₄
End
If B=5
Then
L₅→⌊L8
⌊L7→L₅
End
If B=6
Then
L₆→⌊L8
⌊L7→L₆
End
EffListe ⌊L7
Menu("Echanger ?","Oui",H1,"Non",H2
Lbl H1
If A=1
⌊L8→L₁
If A=2
⌊L8→L₂
If A=3
⌊L8→L₃
If A=4
⌊L8→L₄
If A=5
⌊L8→L₅
If A=6
⌊L8→L₆
EffListe ⌊L8
Lbl H2
Menu("Continuer ?","Oui",U2,"Non",U3
Lbl U3
Goto 85
Lbl P1
Disp "p=M/V"
Input "p:",P
Input "M{G}:",M
Input "V{L}:",V
EffÉcran
If P=0
Disp "p:",M/V
If M=0
Disp "M{G}:",PV
If V=0
Disp "V{L}:",M/P
Pause
Goto 85
Lbl P2
Disp "D(L)=P(L)/1000"
Input "D(L):",D
Input "P(L):",P
EffÉcran
If D=0
Disp "D(L):",P/1000
If P=0
Disp "P(L):",D*1000
Pause
Goto 85
Lbl P3
Disp "n=(p*V)/M"
Input "n:",N
Input "M{MOLAIRE):",M
Input "p:",P
Input "V{L}:",V
EffÉcran
If N=0
Disp "n:",(P*V)/M
If M=0
Disp "M{MOLAIRE}:",(P*V)/N
If P=0
Disp "p:",(N*M)/V
If V=0
Disp "V{L}:",(N*M)/P
Pause
Goto 85
Lbl P4
Disp "n=m/M"
Input "n:",L
Input "m:",N
Input "M:",M
EffÉcran
If L=0
Disp "n:",N/M
If N=0
Disp "m:",LM
If M=0
Disp "M:",N/L
Pause
Goto 85
Lbl P5
Disp "sin(I1)NI=","sin(I2)N2"
Input "I1:",I
Input "I2:",J
Input "N1:",N
Input "N2:",O
EffÉcran
If I=0
Disp "I1:",sin((sin(J)*O)/N)
If J=0
Disp "I2:",sin((sin(I)*N)/O)
If N=0
Disp "N1:",(sin(J)*O)/sin(I)
If O=0
Disp "N2:",(sin(I)*N)/sin(J)
Pause
Goto 85
Lbl P6
Disp "y=OA'/OA"
Input "y Grdsmnt:",Y
Input "OA' Obj-Lent:",O
Input "OA Lent-Img:",A
If Y=0
Disp "y:",O/A
If O=0
Disp "OA':",YA
If A=0
Disp "OA:",O/Y
If Y>0
Then
Disp "Droite"
Else
Disp "Renversée"
End
Pause
Goto 85
Lbl PP
6.63*10^34→H
3*10^8→C
1.6*10^19→J
Menu("Physique 3","E=h*c/λ",Q1,"v=c/λ",Q2,"Retour",P9
Lbl Q1
Disp "E=h*c/λ"
Disp "h en J.s:",H
Disp "c en m.s:",C
Disp "1 ev en J:",J
Input "E en ev:",E
Input "λ en nm:",L
If E=0
Disp "E en ev:",(H*C/(L*10^9))/J
If L=0
Disp "λ en nm:",((HC)/(EJ))*10^9
Pause
Goto 85
Lbl Q2
Disp "v=c/λ"
Disp "c en m.s:",C
Input "v rynment en Hz:",V
Input "λ en nm:",L
If V=0
Disp "v rynment en Hz:",C/(L*10^9)
If L=0
Disp "λ en nm:",(C/V)*10^9
Pause
Goto 85
Lbl 1P
Input "MASSE DE A ? ",A
Input "MASSE DE B ? ",B
Input "DISTANCE AB ? ",D
Disp "FORCE GRAVITE",(6.67*10^11)((A*B)/D²)
Pause
Goto 85
Lbl 2P
Disp "λmax*T=","2.898*10^3"
Input "λmax en nm:",A
Input "Temperature en K:",T
If A=0
Disp "λmax en nm:",(2.898*10^3)/T
If T=0
Disp "Temperature:",(2.898*10^3)/(A*10^9)
Pause
Goto 85
Lbl P7
Disp "C=1/f'"
Input "C Vergence:",C
Input "f' Focale:",F
If C=0
Disp "C:",1/F
If F=0
Disp "f':",1/C
Pause
Goto 85
Lbl P8
Disp "1/OA'-1/OA=1/OF'"
Input "OA' LEN-IMG:",O
Input "OA Lent-OBJ:",A
Input "OF' Focale:",F
If F=0
Disp "OF':",1/(1/O-1/A)
If A=0
Disp "OA:",1/(1/O-1/F)
If O=0
Disp "OA':",1/(1/F+1/A)
Pause
Goto 85
Lbl U
1→A
0→U
While A≠0
Input "Effectif:",A
A+U→U
Disp U
End
Disp "ECC:",U
Pause
Goto 85
Lbl 82
EffÉcran
Lbl 1
Input "Coté ? ",C
C^3→V
Disp "Volume",V
Goto 10
Lbl 2
Input "Longueur ? ",L
Input "Largeur ? ",B
Input "Hauteur ? ",C
LBC→V
Disp "Volume",V
Goto 10
Lbl 3
Input "Base ? ",B
Input "Hauteur ? ",H
BH→V
Disp "Volume",V
Goto 10
Lbl 4
Input "Rayon ? ",R
Input "Hauteur ? ",H
3.14*RRH→V
Disp "Volume",VFrac
Disp V
Goto 10
Lbl 5
Input "Base ? ",B
Input "Hauteur ? ",H
1/3*BH→V
Disp "Volume",V
Goto 10
Lbl 6
Input "Rayon ? ",R
4/3*3.14*R^3→V
Disp "Volume",VFrac
Disp V
Goto 10
Lbl 7
Input "Coté ? ",C
Input "Hauteur ? ",H
(C/2)/tan(36)→E
(E*(C/2))/2→B
B*10→B
BH→V
Disp "Volume",V
Goto 10
Lbl 8
Input "Rayon ? ",C
Input "Hauteur ? ",H
3.14*R^2→B
1/3*BH→V
Disp "Volume",VFrac
Disp V
Goto 10
Lbl 9
Input "Base du T ? ",C
Input "Hauteur du T ? ",H
Input "Hauteur du P ? ",J
CH/2→B
BH→V
Disp "Volume",V
Goto 10
Lbl 12
Input "Base:1 ? ",C
Input "Base:2 ? ",D
Input "Hauteur du T ? ",H
Input "Hauteur du P ? ",J
(C+D)*H/2→B
BH→V
Disp "Volume",V
Lbl 10
Pause
Goto 85
Lbl 71
Input "Coté ? ",C
CC→A
Disp "Aire",A
Goto 98
Lbl 72
Input "Longueur ? ",L
Input "Largeur ? ",M
ML→A
Disp "Aire",A
Goto 98
Lbl 73
Input "Base ? ",B
Input "Hauteur ? ",H
BH→A
Disp "Aire",A
Goto 98
Lbl 74
Input "Base:1 ? ",B
Input "Base:2 ? ",C
Input "Hauteur ? ",H
(B+C)*H/2→A
Disp "Aire",AFrac
Disp A
Goto 98
Lbl 75
Input "Base ? ",B
Input "Hauteur ? ",H
BH/2→A
Disp "Aire",A
Goto 98
Lbl 76
Input "Rayon ? ",R
3.14*RR→A
Disp "Aire",AFrac
Disp A
Lbl 98
Pause
Goto 85
Lbl 84
EffÉcran
Disp "Vecteur"
Input "XA:",X
Input "YA:",O
Input "XB:",Y
Input "YB:",Z
(Y-X)→A
(Z-O)→B
EffÉcran
Disp "Coord vecteur","X:",A,"Y:",B
Pause
Goto 85
Lbl 86
EffÉcran
Disp "Milieu segment"
Input "XA:",A
Input "YA:",B
Input "XB:",C
Input "YB:",D
√((C-A)^2+(D-B)^2)→L
Disp "Longueur AB:",L
Disp "Milieu segment:","X:",(A+C)/2,"Y:",(B+D)/2
Pause
Goto 85
Lbl BB
EffÉcran
Disp "Pythagore"
Input "Coté A:",X
Input "Coté B:",Y
√((XX+YY))→Z
Disp "Hypothenuse:",Z
Pause
Goto 85
Lbl BA
EffÉcran
Disp "Réciproque"
Input "Coté A:",A
Input "Coté B:",B
Input "Coté C:",C
EffÉcran
If A^2+B^2=C^2
Then
Disp "Le triangle","est rectangle"
Else
Disp "Le triangle","n'est pas","rectangle"
End
Pause
Goto 85
Lbl 87
If dim(L₁)≠dim(L₂)
Then
dim(L₁→dim(L₂
TriA(L₁
Remplir(1,L₂
End
Stats 1 Var L₁,L₂
(1/4)n→A
(3/4)n→B
If ent(A≠A
ent(A+1→A
If ent(B≠B
ent(B+1→B
0→D
0→U
0→E
0→P
While U<A
D+1→D
L₂(D)+U→U
End
While P<B
E+1→E
L₂(E)+P→P
End
Disp "Quartile 1",L₁(D)
Disp A
Disp "Quartile 3",L₁(E)
Disp B
Stats 1 Var L₁,L₂
L₁(D)→⌊STAT(1
Méd→⌊STAT(2
L₁(E)→⌊STAT(3
→⌊STAT(4
som(L₂)→⌊STAT(5
Pause
Disp "Méd",Méd
Disp "",
Pause
Disp "Ecart Interq",L₁(E)-L₁(D)
Disp "Effectif",n
Pause
Disp "Etendue",max(L₁)-L₁(1)
Disp "Ecart type",σx
Pause
Goto 85
Lbl K1
Disp "COSSINUS"
Input "ANGLE:",C
Input "ADJACENT:",O
Input "HYPOTHENUSE:",A
EffÉcran
If C=0
Disp "ANGLE:",cos(O/A)
If O=0
Disp "ADJACENT:",cos(C)*A
If A=0
Disp "HYPOTHENUSE:",O/cos(C)
Pause
Goto K
Lbl K2
Disp "SINUS"
Input "ANGLE:",C
Input "OPPOSE:",O
Input "HYPOTHENUSE:",A
EffÉcran
If C=0
Disp "ANGLE:",sin(O/A)
If O=0
Disp "OPPOSE:",sin(C)*A
If A=0
Disp "HYPOTHENUSE",O/sin(C)
Pause
Goto K
Lbl K3
Disp "TANGENTE"
Input "ANGLE:",C
Input "OPPOSE:",O
Input "ADJACENT:",A
EffÉcran
If C=0
Disp "ANGLE:",tan(O/A)
If O=0
Disp "OPPOSE:",tan(C)*A
If A=0
Disp "ADJACENT:",O/tan(C)
Pause
Goto K
