Cours de Physique
Froghub :: Programmation :: Ti-Basic
Page 1 sur 1
Cours de Physique
Tout le programme de physique pour le bac (pas fini) (à exécuter)
Note: le code est simplifiable mais je l'ai fait comme ça pour mieux voir
- Physique:
- Code:
EffÉcran
Lbl M1
Disp "1:Oxydoréduction","2:Méca","3:Relativité","4:Nomenclature","5:Suivant","6:Quitter"
Input "Choix?",A
If A=1
Goto A
If A=2
Goto B
If A=3
Goto C
If A=4
Goto D
If A=6
Goto F
If A=5
EffÉcran
Goto M2
Lbl F
Disp "fini..."
Pause
Stop
End
Lbl M2
Disp "1:Chimie 3D","2:Spectro/RMN","3:Structure","4:Retour"
Input "Choix?",B
If B=1
Goto E
If B=2
Goto F
If B=3
Goto G
If B=4
EffÉcran
Goto M1
Lbl A
EffÉcran
Disp "Ox/Réd","-un oxydant est","une espèce","chimique qui","gagne des","électrons"
Pause
EffÉcran
Disp "-un réducteur","est une espèce","chimique qui","pert des","électrons"
Pause
EffÉcran
Goto M1
End
Lbl B
EffÉcran
Disp "1:Lois Newton","2:Méthode"
Input "Choix?",C
EffÉcran
If C=1
Then
Disp "1loi:ΣF°=0","donc immobile","ou rectiligne","uniforme"
Pause
EffÉcran
Disp "2loi:","ΣF°=(dp°)/(dt);","p°=m*V°;","F°=m*a°"
Pause
EffÉcran
Disp "3loi:","F(a/b)°=-F(b/a)"
Pause
EffÉcran
Goto M1
End
If C=2
Then
Disp "Vn=An-1*An+1/2t","Vx(t)=dx/dt","V(t)=√(Vx²+Vy²)","ax=dVx/dt","a(t)=√(ax²+ay²)"
Pause
EffÉcran
Disp "OM°=x=v0*cos(t)"," y=(-1/2)*t²"," +v0*sin(t)"
Pause
EffÉcran
Disp "v°=vx=C1"," vy=-gt+C2"
Pause
EffÉcran
Goto M1
End
Lbl C
EffÉcran
Disp "Durée propre=dp","par l'horloge","du référentiel"
Pause
EffÉcran
Disp "Durée mesuré=dm","par l'horloge","d'un","référenciel","exterieur"
Pause
EffÉcran
Disp "dm=dp*k","k=1/√(1-(v²/c²)","k<1 car v<c","dm>=dp"
Pause
EffÉcran
Goto M1
End
Lbl D
EffÉcran
Disp "Péfixe:","1-Meth- 7-Hept-","2-Eth- 8-Oct-","3-Prop- 9-Non-","4-But- 10-Dec-","5-Pent- 11-Undec","6-Hex- 12-Dodec"
Pause
EffÉcran
Lbl D0
Disp "Famille;"," groupe;"," suffix;"," formule"
Pause
EffÉcran
Lbl D1
Disp "Alkyle: R","","","","","","1:Préc 2:Sui"
Input "Choix?",C
EffÉcran
If C=1
Goto D0
If C=2
Goto D2
Lbl D2
Disp "Alcanes;","-ane;CnH(2n+2)","","","","","1:Préc 2:Sui"
Input "Choix?",C
EffÉcran
If C=1
Goto D1
If C=2
Goto D3
Lbl D3
Disp "Alcènes;","-ène;CnH(2n)","avec une =","","","","1:Préc 2:Sui"
Input "Choix?",C
EffÉcran
If C=1
Goto D2
If C=2
Goto D4
Lbl D4
Disp "Alcool;","groupe","hydroxyle;","-ol;R-OH","","","1:Préc 2:Sui"
Input "Choix?",C
EffÉcran
If C=1
Goto D3
If C=2
Goto D5
Lbl D5
Disp "Aldéhyde;","groupe","carbonyle;-al;","R-C=O"," |"," H","1:Préc 2:Sui"
Input "Choix?",C
EffÉcran
If C=1
Goto D4
If C=2
Goto D6
Lbl D6
Disp "Cétone;groupe","carbonyle;","-one;","R-C=O"," |"," R'","1:Préc 2:Sui"
Input "Choix?",C
EffÉcran
If C=1
Goto D5
If C=2
Goto D7
Lbl D7
Disp "Acide carboxyli","que;groupe carb","oxyle;-oïque;","R-C=O"," |"," OH","1:Préc 2:Sui"
Input "Choix?",C
EffÉcran
If C=1
Goto D6
If C=2
Goto D8
Lbl D8
Disp "Ester;","groupe ester;","-(o)ate;","R-C=O"," |"," O-R'","1:Préc 2:Sui"
Input "Choix?",C
EffÉcran
If C=1
Goto D7
If C=2
Goto D9
Lbl D9
Disp "Amine;","groupe amine;","-amine;","R-N-H"," |"," H","1:Préc 2:Sui"
Input "Choix?",C
EffÉcran
If C=1
Goto D8
If C=2
Disp "Amide;groupe","R-C=O amide;"," | -amide"," N-H"," |"," H","1:Préc 2:Fin"
Input "Choix?",C
EffÉcran
If C=1
Goto D9
If C=2
Goto M1
End
Lbl E
EffÉcran
Disp "Stéréoisomère: ","De A à B en une","seul rotation ?","1:Oui 2:Non"
Input "Choix?",C
EffÉcran
If C=1
Goto E1
If C=2
Goto E2
Lbl E1
Disp "Stéréoisomère","de conformation"
Pause
EffÉcran
Goto M2
End
Lbl E2
Disp "Stéréoisomères"," de ","configuration:","Chirale ?","1:Oui 2:Non"
Input "Choix?",C
If C=1
Then
Disp "Diastéréo-","-isomères"
Pause
End
If C=2
Then
Disp "Énantiomères"
Pause
End
EffÉcran
Goto M2
End
Lbl F
Disp "fini..."
End
Note: le code est simplifiable mais je l'ai fait comme ça pour mieux voir
Makime- Messages : 4
Date d'inscription : 29/09/2016
Froghub :: Programmation :: Ti-Basic
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|