ClrGraph
AxesOff
ViewWindow 1,127,0,1,63,0
0ÞB
0ÞC
Lbl 0
3ÞA
ClrText
Locate 4,1,"Planetecasio.com"
Locate 2,A,"Þ"
If B=0
Then If C=0
Then Locate 3,3,"Tout lire"
Locate 3,4,"I.equation d'une equation du 1er degres a une inconnue."
IfEnd
If C=1
Then Locate 3,3,"1)Definition"
Locate 3,4,"2)Exemple"
2ÞM
1ÞN
IfEnd
If C=0
Then Locate 3,5,"II.Equation de droite."
IfEnd
If C=2
Then Locate 3,3,"1)Propriete 1"
Locate 3,4,"2)Definition"
Locate 3,5,"3)Exemple"
Locate 3,6,"4) Propriete 2"
4ÞM
2ÞN
IfEnd
If C=0
Then Locate 3,6,"III.Resolution d'un systeme lineaire de deux equation a deux inconnues"
IfEnd
If C=3
Then Locate 3,3,"1)Definition"
Locate 3,4,"2) Methode par substitution"
Locate 3,5,"3) Methode par combinaison lineaire"
Locate 3,6,"4) Interpretation graphique"
3ÞN
4ÞM
IfEnd
C=0ã4ÞM
IfEnd
Do
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 C=2
Then Goto 7
IfEnd
If A=6 And B=0 And C=0
Then 3ÞC
Goto 0
IfEnd
If A=3 And C=3
Then Goto 8
IfEnd
If A=4 And C=3
Then Goto 9
IfEnd
If A=5 And C=3
Then Goto A
IfEnd
If A=6 And C=3
Then Goto B
IfEnd
Lbl 1
Cls
Text 8,2," 1er degres a une inconnue."Ý
Aá3 Or Bá0 Or Cá0ãGoto 0
Lbl 2
Cls
Text 2,2,"On appelle equation une egalit"
Text 8,2,"e dans laquelle figure une ou "
Text 14,2,"plusieurs lettres appelles inc"
Text 20,2,"onnues."
Text 26,2,"Resoudre une equation, c'est c"
Text 32,2,"hercher la ou les valeurs qu'o"
Text 38,2,"n peut donner a la ou les inco"
Text 44,2,"nnues pour que l'egalite soit "
Text 50,2,"vraie."
Text 56,2,"Usuellement, on note S l'ensem"Ý
Cls
Text 2,2,"ble des solutions d'une equati"
Text 8,2,"on."Ý
Aá3 Or Bá0 Or Cá0ãGoto 0
Lbl 3
Cls
Text 2,2,"        3x-12=0"
Text 8,2," <=> x=12/13"
Text 14,2," <=> x=4"
Text 26,2,"S={4}"Ý
Aá3 Or Bá0 Or Cá0ãGoto 0
Lbl 4
Cls
Text 2,2,"Dans un repere du plan, toute "
Text 8,2,"droite a une equation de la fo"
Text 14,2,"rme"
Text 26,2,"y=m*x+p (si elle n'est pas par"
Text 32,2,"allele a l'axe des ordonnes)"
Text 44,2,"sinon"
Text 50,2,"x=k"Ý
Cls
Aá3 Or Bá0 Or Cá0ãGoto 0
Lbl 5
Cls
Text 2,2,"L'equation y=m*x+p est appelle"
Text 8,2," equation reduite de la droite"
Text 14,2,".m est le coefficient directeu"
Text 20,2,"r, p est l'ordonnee a l'origin"
Text 26,2,"e."Ý
Aá3 Or Bá0 Or Cá0ãGoto 0
Lbl 6
Cls
Text 2,2,"A(0;3)  ;  B(2;1)"
Text 8,2,"(d) passe par le pont A(0;3) d"
Text 14,2,"onc 3 est l'ordonee a l'origin"
Text 20,2,"e."
Text 32,2,"Calcul du Coefficient Directeu"
Text 38,2,"r (C.D.):"
Text 44,2,"m=variation des ordonnees/vari"
Text 50,2,"ation des abscisses"
Text 56,2,"m=(-2/2)"Ý
Cls
Text 2,2,"m=-1"
Text 14,2,"on peut aussi calculer:"
Text 20,2,"m=(Yb-Ya)/(Xb-Xa)"
Text 26,2,"m=(1-3)/(2-0)"
Text 32,2,"m=-2/2"
Text 38,2,"m=-1"
Text 50,2,"L'equation est:"Ý
Cls
Text 2,2,"y=-1x+3"
Text 8,2,"y=-x+3"Ý
Aá3 Or Bá0 Or Cá0ãGoto 0
Lbl 7
Cls
Text 8,2,"2 droites sont paralleles si e"
Text 14,2,"t seulement si elles ont le me"
Text 20,2,"me C.D."
Text 32,2,"lineaire de deux equation a de"
Text 38,2,"ux inconnues"Ý
Aá3 Or Bá0 Or Cá0ãGoto 0
Lbl 8
Cls
Text 8,2,"Un systeme lineaire de deux eq"
Text 14,2,"uation a deux inconnues est de"
Text 20,2," la forme:"
Text 32,2,"{  a*x+b*y=c"
Text 38,2,"{  a'*x+b'*y=c'"
Text 50,2,"ou a, b, c, a', b', c'  sont d"
Text 56,2,"es reels donnes et x et y sont"Ý
Cls
Text 2,2," les inconnues"Ý
Aá3 Or Bá0 Or Cá0ãGoto 0
Lbl 9
Cls
Text 8,2,"Elle consiste a exprimer l'une"
Text 14,2," des inconnues (x ou y) en fon"
Text 20,2,"ction de l'autre puis remplace"
Text 26,2,"r l'inconnue par son expressio"
Text 32,2,"n dans la 2eme equation"
Text 44,2,"Methode utilisee plus particul"
Text 50,2,"ierement quand une des deux ex"
Text 56,2,"pression a x ou y seul."Ý
ClsÝ
Aá3 Or Bá0 Or Cá0ãGoto 0
Lbl A
Cls
Text 2,2,"ineaire"
Text 14,2,"Elle consiste a transformer la"
Text 20,2," systeme et un autre systeme e"
Text 26,2,"quivalent dans lequel une des "
Text 32,2,"deux inconnues apparait avec l"
Text 38,2,"e meme Coefficient (ou Coeffic"
Text 44,2,"ient opposes). On elimine ensu"
Text 50,2,"ite cette inconnue en soustray"
Text 56,2,"ant (ou en ajoutant) les 2 equ"Ý
Cls
Text 2,2,"ations membre a membre."
Text 14,2,"on choisit par exemple d'avoir"
Text 20,2," le meme coefficient devant x"Ý
Aá3 Or Bá0 Or Cá0ãGoto 0
Lbl B
Cls
Text 8,2,"Dans un systeme de deux equati"
Text 14,2,"ons a deux inconnues, chaque e"
Text 20,2,"quation est l'equation d'une d"
Text 26,2,"roite du plan"Ý
Cls
Stop