Autorisation : Membre
Nb de messages : 1
Inscrit le : Mar 07 Nov 2017, 20:41
Posté le : Mar 07 Nov 2017, 20:55
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.
N'hésitez pas à me dire ce que vous en pensez et proposer des améliorations.
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 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 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
Autorisation : Membre
Nb de messages : 33
Inscrit le : Sam 22 Avr 2017, 16:00
Posté le : Mer 08 Nov 2017, 14:54
Salut à toi !
J'aimerai vraiment regarder et tenter d'améliorer (Même si ça reste juste quelques calculs de math, donc pas grand chose^^) ton programme, mais mis comme ça c'est illisible, edit ton message et met le code dans la balise code prévu à cet effet, ce sera tout de suite plus joli et si je me souviens bien, on pourra voir à quoi corresponde les caractères bizarres :p
Et si jamais les caractères sont toujours méconnaissables, pourrais-tu les modifier, qu'on puisse savoir à quoi ils correspondent ?