ClrGraphÙ
AxesOffÙ
ViewWindow 1,127,0,1,63,0Ù
0ãBÙ
0ãCÙ
Lbl 0Ù
3ãAÙ
ClrTextÙ
Locate 4,1,"planete-casio.fr"Ù
Locate 2,A,"ã"Ù
If B=0Ù
Then If C=0Ù
Then Locate 3,3,"Tout lire"Ù
Locate 3,4,"I.Molecules a c-c saturees"Ù
IfEndÙ
If C=1Ù
Then Locate 3,3,"1)Alcanes "Ù
Locate 3,4,"2)Cycloalcanes"Ù
2ãMÙ
1ãNÙ
IfEndÙ
If C=0Ù
Then Locate 3,5,"II.Molecules a c-c insaturees"Ù
IfEndÙ
If C=2Ù
Then Locate 3,3,"1)Alcenes"Ù
Locate 3,4,"2)Cycloalcene "Ù
Locate 3,5,"3)Noyau benzenique "Ù
3ãMÙ
2ãNÙ
IfEndÙ
If C=0Ù
Then Locate 3,6,"III.Isomeres"Ù
IfEndÙ
If C=3Ù
Then Locate 3,3,"1)Isomeres de consti"Ù
Locate 3,4,"2)Stereoisomeres"Ù
3ãNÙ
2ãMÙ
IfEndÙ
C=0×4ãMÙ
IfEndÙ
DoÙ
For 1ãI To 250:NextÙ
DoÙ
GetkeyÙ
LpWhile AnsÈ37 And AnsÈ28 And AnsÈ31 And AnsÈ47Ù
If Ans=47Ù
Then 0ãCÙ
Goto 0Ù
IfEndÙ
Locate 2,A," "Ù
M=7×CãNÙ
If Ans=28 And (C=0 Or C>N Or A>3)Ù
Then Dsz AÙ
If A=2Ù
Then 3ãAÙ
If B>0 And C=0Ù
Then B-1ãBÙ
7ãAÙ
IfEndÙ
C>0×C-1ãCÙ
Goto 0Ù
IfEndÙ
IfEndÙ
If Ans=37 And (M=7 Or (A-2<M And M<7))Ù
Then Isz AÙ
If A=8Ù
Then 3ãAÙ
If B<0 And C=0Ù
Then B+1ãBÙ
Goto 0Ù
IfEndÙ
C<3×C+1ãCÙ
Goto 0Ù
IfEndÙ
IfEndÙ
Locate 2,A,"ã"Ù
LpWhile AnsÈ31Ù
If A=3 And B=0 And C=0Ù
Then Goto 1Ù
IfEndÙ
If A=4 And B=0 And C=0Ù
Then 1ãCÙ
Goto 0Ù
IfEndÙ
If A=3 And C=1Ù
Then Goto 2Ù
IfEndÙ
If A=4 And C=1Ù
Then Goto 3Ù
IfEndÙ
If A=5 And B=0 And C=0Ù
Then 2ãCÙ
Goto 0Ù
IfEndÙ
If A=3 And C=2Ù
Then Goto 4Ù
IfEndÙ
If A=4 And C=2Ù
Then Goto 5Ù
IfEndÙ
If A=5 And C=2Ù
Then Goto 6Ù
IfEndÙ
If A=6 And B=0 And C=0Ù
Then 3ãCÙ
Goto 0Ù
IfEndÙ
If A=3 And C=3Ù
Then Goto 7Ù
IfEndÙ
If A=4 And C=3Ù
Then Goto 8Ù
IfEndÙ
Lbl 1Ù
ClsÙ
Text 2,2,"Chimie organique : chimie des "Ù
Text 8,2,"composes comportant l'element "Ù
Text 14,2,"C, a l'exclusion de ceux ne co"Ù
Text 20,2,"mportant pas d'element H."Ù
Text 26,2,"Molecule : assemblage electriq"Ù
Text 32,2,"uement neutre d'atomes relies "Ù
Text 38,2,"par liaisons covalentes."Ù
Text 44,2,"Valence : nombre d'electrons c"Ù
Text 50,2,"elibataires sur la couche de v"Ù
Text 56,2,"alence."Ø
ClsÙ
Text 2,2,"4 directions : carbone tetraed"Ù
Text 8,2,"rique"Ù
Text 14,2,"3 directions : carbone trigona"Ù
Text 20,2,"l"Ù
Text 26,2,"2 directions : molecule lineai"Ù
Text 32,2,"re"Ù
Text 38,2,"
"Ø
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 2Ù
ClsÙ
Text 2,2,"Formule brute : CnH2n+2"Ù
Text 8,2,"Alcanes : hydrocarbures sature"Ù
Text 14,2,"s"Ù
Text 20,2,"Hydrocarbure : ne contient que"Ù
Text 26,2," les elements C et H"Ù
Text 32,2,"Sature : ne contient que des l"Ù
Text 38,2,"iaisons simples C-C"Ù
Text 44,2,"Chaine carbonee : enchainement"Ù
Text 50,2," ininterrompu d'atomes C"Ø
ClsÙ
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 3Ù
ClsÙ
Text 2,2,"Formule brute : CnH2n"Ù
Text 8,2,"Cycloalcanes : alcanes a chain"Ù
Text 14,2,"e cyclique"Ù
Text 20,2,"
"Ù
Text 32,2,"
"Ù
Text 38,2,"Molecule insaturee si elle con"Ù
Text 44,2,"tient des insaturations : liai"Ù
Text 50,2,"sons multiples."Ø
ClsÙ
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 4Ù
ClsÙ
Text 2,2,"Alcene : hydrocarbure possedan"Ù
Text 8,2,"t 1 liaison C=C au moins."Ù
Text 14,2,"Formule brute : CnH2n"Ù
Text 20,2,"
"Ø
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 5Ù
ClsÙ
Text 2,2,"Cycloalcene : alcene cyclique."Ù
Text 8,2,"Formule brute : CnH2n-2"Ù
Text 14,2,"
"Ø
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 6Ù
ClsÙ
Text 2,2,"Alternance de liaison simples "Ù
Text 8,2,"doubles (elles sont conjuguees"Ù
Text 14,2,"), geometrie trigonale, C est "Ù
Text 20,2,"au centre d'un triangle."Ù
Text 26,2,"
"Ù
Text 38,2,"Isomeres : 2 molecules de meme"Ù
Text 44,2," formule brute mais avec des r"Ù
Text 50,2,"epresentations differentes."Ø
ClsÙ
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 7Ù
ClsÙ
Text 2,2,"Dans le plan"Ù
Text 8,2,"2 types : de chaine, de positi"Ù
Text 14,2,"on, et de fonction (pas encore"Ù
Text 20,2," fait)"Ù
Text 26,2,"
"Ø
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 8Ù
ClsÙ
Text 2,2,"Dans l'espace"Ù
Text 8,2,"Stereoisomeres E et Z"Ù
Text 14,2,"Les isomeres de constitution e"Ù
Text 20,2,"t les stereoisomeres ont des p"Ù
Text 26,2,"roprietes physiques et chimiqu"Ù
Text 32,2,"es differentes."Ø
ClsÙ
Stop