Poster un nouveau sujet Poster une réponse
Programme de Maths et de Physique
Auteur Message
Ich_bin_der_Papst



Autorisation : Membre
Nb de messages : 1
Inscrit le : Mar 07 Nov 2017, 20:41
Posté le : Mar 07 Nov 2017, 20:55   Citer 

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.

Voici le programme:


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&#8594;X
N*10&#8594;N
End
Disp N,"&#61440;",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 "&#61476;X:",N
Input "Xmin:",A
Input "Xmax:",B
A-1&#8594;X
Y&#8321;&#8594;Y
EffListe L&#8322;
EffListe L&#8321;
EffListe L&#8323;
EffListe L&#8324;
4&#8594;L&#8321;(1)
2&#8594;I
2&#8594;H
4&#8594;L&#8323;(1
4&#8594;L&#8324;(1
4&#8594;L&#8322;(1
For(X,A,B,N
If Y=Y&#8321;
Then
9&#8594;L&#8321;(I
X&#8594;L&#8322;(I
End
If Y<0
Then
­1&#8594;L&#8323;(H
X&#8594;L&#8324;(H
End
If Y>0
Then
1&#8594;L&#8323;(H
X&#8594;L&#8324;(H
End
If Y<Y&#8321;
Then
1&#8594;L&#8321;(I
X&#8594;L&#8322;(I
End
If Y=0
Then
9&#8594;L&#8323;(H
X&#8594;L&#8324;(H
End
If Y>Y&#8321;
Then
­1&#8594;L&#8321;(I
X&#8594;L&#8322;(I
End
If L&#8321;(I-1)&#8800;L&#8321;(I)
1+I&#8594;I
If L&#8323;(H-1)&#8800;L&#8323;(H)
1+H&#8594;H
Y&#8321;&#8594;Y
End
4&#8594;L&#8321;(I)
4&#8594;L&#8323;(H
0&#8594;X
EffÉcran
0&#8594;J
If H>I
Then
H&#8594;G
Else
I&#8594;G
End
G&#8594;dim(L&#8321;
G&#8594;dim(L&#8322;
G&#8594;dim(L&#8323;
G&#8594;dim(L&#8324;
For(X,1,G
J+1&#8594;J
If L&#8321;(X)=9
Then
Disp "CONSTANTE"
Disp L&#8322;(X),L&#8322;(X+1)
End
If L&#8323;(X)=­1
Then
Disp "NEGATIF"
Disp L&#8324;(X)-N,L&#8324;(X+1)-N
End
If L&#8323;(X)=1
Then
Disp "POSITIF"
Disp L&#8324;(X)-N,L&#8324;(X+1)-N
End
If L&#8323;(X)=9
Then
Disp "NUL
Disp L&#8324;(X)-N,L&#8324;(X+1)-N
End
If L&#8321;(X)=­1
Then
Disp "DECROISSANTE"
Disp L&#8322;(X),L&#8322;(X+1)
End
If L&#8321;(X)=1
Then
Disp "CROISSANTE"
Disp L&#8322;(X),L&#8322;(X+1)
End
If J=1
Then
Pause
EffÉcran
0&#8594;J
End
End
Goto 85

Lbl S3
Disp "AX²+BX+C=","A(X-&#945;)²+&#946;"
Input "A:",A
Input "B:",B
Input "C:",C
Disp "&#945;",­B/(2A),"&#946;",­((B²-4AC)/(4A))
Pause
Goto 85

Lbl S4
Disp "AX²+BX+C=","A(X-x&#8321;)(X-x&#8322;)"
Input "A:",A
Input "B:",B
Input "C:",C
B²-4AC&#8594;&#952;
If &#952;<0
Disp "Pas de Racines"
If &#952;=0
Disp "a:",­B/(2A)
If &#952;>0
Disp "x&#8321;:",(­B-&#8730;(&#952;))/(2A),"x&#8322;:",(­B+&#8730;(&#952;))/(2A)
Disp "&#61476;:",&#952;
Pause
Goto 85



Lbl U1
Lbl U2
Input "Liste depart:",A
If A=1
Then
L&#8321;&#8594;&#8970;L7
EffListe L&#8321;
End
If A=2
Then
L&#8322;&#8594;&#8970;L7
EffListe L&#8322;
End
If A=3
Then
L&#8323;&#8594;&#8970;L7
EffListe L&#8323;
End
If A=4
Then
L&#8324;&#8594;&#8970;L7
EffListe L&#8324;
End
If A=5
Then
L&#8325;&#8594;&#8970;L7
EffListe L&#8325;
End
If A=6
Then
L&#8326;&#8594;&#8970;L7
EffListe L&#8326;
End
Input "Liste arrivée:",B
If B=1
Then
L&#8321;&#8594;&#8970;L8
&#8970;L7&#8594;L&#8321;
End
If B=2
Then
L&#8322;&#8594;&#8970;L8
&#8970;L7&#8594;L&#8322;
End
If B=3
Then
L&#8323;&#8594;&#8970;L8
&#8970;L7&#8594;L&#8323;
End
If B=4
Then
L&#8324;&#8594;&#8970;L8
&#8970;L7&#8594;L&#8324;
End
If B=5
Then
L&#8325;&#8594;&#8970;L8
&#8970;L7&#8594;L&#8325;
End
If B=6
Then
L&#8326;&#8594;&#8970;L8
&#8970;L7&#8594;L&#8326;
End
EffListe &#8970;L7
Menu("Echanger ?","Oui",H1,"Non",H2
Lbl H1
If A=1
&#8970;L8&#8594;L&#8321;
If A=2
&#8970;L8&#8594;L&#8322;
If A=3
&#8970;L8&#8594;L&#8323;
If A=4
&#8970;L8&#8594;L&#8324;
If A=5
&#8970;L8&#8594;L&#8325;
If A=6
&#8970;L8&#8594;L&#8326;
EffListe &#8970;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&#61445;((sin(J)*O)/N)
If J=0
Disp "I2:",sin&#61445;((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&#8594;H
3*10^8&#8594;C
1.6*10^­19&#8594;J
Menu("Physique 3","&#61476;E=h*c/&#955;",Q1,"v=c/&#955;",Q2,"Retour",P9

Lbl Q1
Disp "&#61476;E=h*c/&#955;"
Disp "h en J.s:",H
Disp "c en m.s:",C
Disp "1 ev en J:",J
Input "&#61476;E en ev:",E
Input "&#955; en nm:",L
If E=0
Disp "&#61476;E en ev:",(H*C/(L*10^­9))/J
If L=0
Disp "&#955; en nm:",((HC)/(EJ))*10^9
Pause
Goto 85

Lbl Q2
Disp "v=c/&#955;"
Disp "c en m.s:",C
Input "v rynment en Hz:",V
Input "&#955; en nm:",L
If V=0
Disp "v rynment en Hz:",C/(L*10^­9)
If L=0
Disp "&#955; 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 "&#955;max*T=","2.898*10^­3"
Input "&#955;max en nm:",A
Input "Temperature en K:",T
If A=0
Disp "&#955;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&#8594;A
0&#8594;U
While A&#8800;0
Input "Effectif:",A
A+U&#8594;U
Disp U
End
Disp "ECC:",U
Pause
Goto 85

Lbl 82
EffÉcran

Lbl 1
Input "Coté ? ",C
C^3&#8594;V
Disp "Volume",V
Goto 10
Lbl 2
Input "Longueur ? ",L
Input "Largeur ? ",B
Input "Hauteur ? ",C
LBC&#8594;V
Disp "Volume",V
Goto 10
Lbl 3
Input "Base ? ",B
Input "Hauteur ? ",H
BH&#8594;V
Disp "Volume",V
Goto 10
Lbl 4
Input "Rayon ? ",R
Input "Hauteur ? ",H
3.14*RRH&#8594;V
Disp "Volume",V&#61460;Frac
Disp V
Goto 10
Lbl 5
Input "Base ? ",B
Input "Hauteur ? ",H
1/3*BH&#8594;V
Disp "Volume",V
Goto 10
Lbl 6
Input "Rayon ? ",R
4/3*3.14*R^3&#8594;V
Disp "Volume",V&#61460;Frac
Disp V
Goto 10
Lbl 7
Input "Coté ? ",C
Input "Hauteur ? ",H
(C/2)/tan(36)&#8594;E
(E*(C/2))/2&#8594;B
B*10&#8594;B
BH&#8594;V
Disp "Volume",V
Goto 10
Lbl 8
Input "Rayon ? ",C
Input "Hauteur ? ",H
3.14*R^2&#8594;B
1/3*BH&#8594;V
Disp "Volume",V&#61460;Frac
Disp V
Goto 10
Lbl 9
Input "Base du T ? ",C
Input "Hauteur du T ? ",H
Input "Hauteur du P ? ",J
CH/2&#8594;B
BH&#8594;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&#8594;B
BH&#8594;V
Disp "Volume",V
Lbl 10
Pause
Goto 85


Lbl 71
Input "Coté ? ",C
CC&#8594;A
Disp "Aire",A
Goto 98
Lbl 72
Input "Longueur ? ",L
Input "Largeur ? ",M
ML&#8594;A
Disp "Aire",A
Goto 98
Lbl 73
Input "Base ? ",B
Input "Hauteur ? ",H
BH&#8594;A
Disp "Aire",A
Goto 98
Lbl 74
Input "Base:1 ? ",B
Input "Base:2 ? ",C
Input "Hauteur ? ",H
(B+C)*H/2&#8594;A
Disp "Aire",A&#61460;Frac
Disp A
Goto 98
Lbl 75
Input "Base ? ",B
Input "Hauteur ? ",H
BH/2&#8594;A
Disp "Aire",A
Goto 98
Lbl 76
Input "Rayon ? ",R
3.14*RR&#8594;A
Disp "Aire",A&#61460;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)&#8594;A
(Z-O)&#8594;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
&#8730;((C-A)^2+(D-B)^2)&#8594;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
&#8730;((XX+YY))&#8594;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&#8321;)&#8800;dim(L&#8322;)
Then
dim(L&#8321;&#8594;dim(L&#8322;
TriA(L&#8321;
Remplir(1,L&#8322;
End
Stats 1 Var L&#8321;,L&#8322;
(1/4)n&#8594;A
(3/4)n&#8594;B
If ent(A&#8800;A
ent(A+1&#8594;A
If ent(B&#8800;B
ent(B+1&#8594;B
0&#8594;D
0&#8594;U
0&#8594;E
0&#8594;P
While U<A
D+1&#8594;D
L&#8322;(D)+U&#8594;U
End
While P<B
E+1&#8594;E
L&#8322;(E)+P&#8594;P
End
Disp "Quartile 1",L&#8321;(D)
Disp A
Disp "Quartile 3",L&#8321;(E)
Disp B
Stats 1 Var L&#8321;,L&#8322;
L&#8321;(D)&#8594;&#8970;STAT(1
Méd&#8594;&#8970;STAT(2
L&#8321;(E)&#8594;&#8970;STAT(3
&#61443;&#8594;&#8970;STAT(4
som(L&#8322;)&#8594;&#8970;STAT(5
Pause
Disp "Méd",Méd
Disp "&#61443;",&#61443;
Pause
Disp "Ecart Interq",L&#8321;(E)-L&#8321;(D)
Disp "Effectif",n
Pause
Disp "Etendue",max(L&#8321;)-L&#8321;(1)
Disp "Ecart type",&#963;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&#61445;(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&#61445;(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&#61445;(O/A)
If O=0
Disp "OPPOSE:",tan(C)*A
If A=0
Disp "ADJACENT:",O/tan(C)
Pause
Goto K



 Adresse email Haut de page Bas de page 
 
Homer_Dalor



Autorisation : Membre
Nb de messages : 33
Inscrit le : Sam 22 Avr 2017, 16:00
Posté le : Mer 08 Nov 2017, 14:54   Citer 

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 ? happy.gif

Merci winkle.gif

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink