Cours de Physique

par Makime 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