Cours de Physique

Voir le sujet précédent Voir le sujet suivant Aller en bas

Cours de Physique

Message par Makime le Mar 27 Déc - 12:44

Tout le programme de physique pour le bac (pas fini) (à exécuter)
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 cyclops

Makime

Messages : 3
Date d'inscription : 29/09/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum