Problème avec un programme
Posté le 07/06/2015 17:12
Bonjour à tous, j'ai crée un programme avec le générateur de cours.
Tout c'est bien passer, j'ai bien le programme sur ma calculette mais je rencontre 2 problèmes :
- Les menues ne s'affichent pas en entier et c'est très gênant
- A chaque fois j'ai soit un X soit un Y ou soit les deux sur écran qui m'empêche de bien lire
Je souhaiterais savoir comment y remédier ? A savoir que j'ai une graph 35+ et que j'utilise FA-124
Voici le code du programme :
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. Representation parametrique"Ù
Locate 3,5,"II. Savoir si un point appartient a une courbe"Ù
Locate 3,6,"III. Demontrer que 2 droites sont coplanaire ou non"Ù
Locate 3,7,"IV. Savoir si 2 droites sont perpendiculaire"Ù
7ãMÙ
IfEndÙ
IfEndÙ
If B=1Ù
Then If C=0Ù
Then Locate 3,3,"V. Verifier qu'un vecteur soit normal a un plan"Ù
Locate 3,4,"VI. Calculer vecteur AB a partir de 2 points"Ù
Locate 3,5,"VII. Calculer milieu vecteur AB"Ù
Locate 3,6,"IIX. Savoir si 2 vecteur sont colineaire"Ù
4ãMÙ
IfEndÙ
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<1 And C=0Ù
Then B+1ãBÙ
Goto 0Ù
IfEndÙ
C<×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 Goto 2Ù
IfEndÙ
If A=5 And B=0 And C=0Ù
Then Goto 3Ù
IfEndÙ
If A=6 And B=0 And C=0Ù
Then Goto 4Ù
IfEndÙ
If A=7 And B=0 And C=0Ù
Then Goto 5Ù
IfEndÙ
If A=3 And B=1 And C=0Ù
Then Goto 6Ù
IfEndÙ
If A=4 And B=1 And C=0Ù
Then Goto 7Ù
IfEndÙ
If A=5 And B=1 And C=0Ù
Then Goto 8Ù
IfEndÙ
If A=6 And B=1 And C=0Ù
Then Goto 9Ù
IfEndÙ
Lbl 1Ù
ClsÙ
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 2Ù
ClsÙ
Text 2,2,"ue"Ù
Text 8,2,"A(Xa;Ya;Za) et vecteur u(A;B;C"Ù
Text 14,2,")"Ù
Text 20,2,"Dx : | x = Xa + Ak"Ù
Text 26,2," | y= Ya + Bk"Ù
Text 32,2," | z= Za + Ck"Ù
Text 38,2,"Dans l'equations param. : A,B "Ù
Text 44,2,"et C sont les coordonnees du v"Ù
Text 50,2,"ecteur dir."Ø
ClsÙ
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 3Ù
ClsÙ
Text 2,2,"tient a une courbe"Ù
Text 8,2,"Soit le point M(Xm;Ym;Zm) et l"Ù
Text 14,2,"a droite D1 :"Ù
Text 20,2,"| x= W"Ù
Text 26,2,"| y= V"Ù
Text 32,2,"| z= U"Ù
Text 38,2,"M(Xm;Ym;Zm) appartient a D1 ss"Ù
Text 44,2,"i :"Ù
Text 50,2,"| Xm= W"Ù
Text 56,2,"| Ym= V"Ø
ClsÙ
Text 2,2,"| Zm= U"Ù
Text 8,2,"
"Ø
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 4Ù
ClsÙ
Text 2,2," sont coplanaire ou non"Ù
Text 8,2,"
"Ù
Text 14,2,"Deux droites non confondues so"Ù
Text 20,2,"nt coplanaire ssi elles sont p"Ù
Text 26,2,"aralleles ou secantes."Ù
Text 32,2,"Or, deux droites sont parallel"Ù
Text 38,2,"es ssi elles ont des vecteurs "Ù
Text 44,2,"directeurs colineaires."Ù
Text 50,2,"Si les deux droites ne sont pa"Ù
Text 56,2,"s paralleles, il faut alors re"Ø
ClsÙ
Text 2,2,"garde s'il elles ont un point "Ù
Text 8,2,"d'intersection avec un systeme"Ù
Text 14,2," a 6 equations ( voir si solut"Ù
Text 20,2,"ion ou non )."Ù
Text 26,2,"
"Ù
Text 32,2,"Exemple de systeme a 6 equatio"Ù
Text 38,2,"ns :"Ù
Text 44,2,"D1 : x= 0 + 1t D2: x= 1 + k"Ù
Text 50,2," y = 2 + 2t y= 0 - 2k"Ù
Text 56,2," z= -1 + 3t z= 2 + 0k"Ø
ClsÙ
Text 2,2,"
"Ù
Text 8,2,"| t= 1 + k "Ù
Text 14,2,"| 2 + 2t = -2k"Ù
Text 20,2,"| -1 +3t= 2"Ù
Text 26,2,"
"Ù
Text 32,2,"Puis remplace t dans les deux "Ù
Text 38,2,"equations du bas par le t defi"Ù
Text 44,2,"ni dans la premiere equation."Ù
Text 50,2,"
"Ø
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 5Ù
ClsÙ
Text 2,2,"t perpendiculaire"Ù
Text 8,2,"
"Ù
Text 14,2,"2 droites sont perpendiculaire"Ù
Text 20,2,"s ssi leurs vecteurs dir. sont"Ù
Text 26,2," orthogonaux."Ù
Text 32,2,"C'est a dire que le produit sc"Ù
Text 38,2,"alaire de leurs vec. dir. soit"Ù
Text 44,2," egales a 0."Ù
Text 50,2,"
"Ù
Text 56,2,"vecteur u.vecteur v= xx'+yy'+z"Ø
ClsÙ
Text 2,2,"z'"Ù
Text 8,2,"vecteur u.vecteur v= norme u *"Ù
Text 14,2," norme v * cos (u,v)=AB*AC*cos"Ù
Text 20,2," BAC"Ù
Text 26,2,"
"Ø
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 6Ù
ClsÙ
Text 2,2,"it normal a un plan"Ù
Text 8,2,"1)Technique"Ù
Text 14,2,"Un vecteur est normal a un pla"Ù
Text 20,2,"n ssi il est perpendiculaire a"Ù
Text 26,2,"u plan."Ù
Text 32,2,"Donc, il faut que la droite so"Ù
Text 38,2,"it perpendiculaire a 2 droites"Ù
Text 44,2," du plan."Ù
Text 50,2,"(Donc le produit scalaire de "Ù
Text 56,2,"leur vect. dir sont nuls)"Ø
ClsÙ
Text 2,2,"
"Ù
Text 8,2,"Ex : Soit vecteur n et le plan"Ù
Text 14,2," P definie par les points ABCD"Ù
Text 20,2,"."Ù
Text 26,2,"n est normal au plan P ssi il "Ù
Text 32,2,"est perpendiculaire au plan. P"Ù
Text 38,2,"our etre perpendiculaire au pl"Ù
Text 44,2,"an, n doit etre perpendiculair"Ù
Text 50,2,"e a 2 droites du plan. "Ù
Text 56,2,"Soit n.AB=0 et n.CD=0"Ø
ClsÙ
Text 2,2,"( faire avec le vecteur dir. d"Ù
Text 8,2,"es droties )"Ù
Text 14,2,"
"Ù
Text 20,2,"2) Theoreme 1 "Ù
Text 26,2,"Soit A un point et v un vecteu"Ù
Text 32,2,"r non nul de l'espace. Le plan"Ù
Text 38,2," P passant par A et de vecteur"Ù
Text 44,2," normal v est l'ensemble des p"Ù
Text 50,2,"ts M de l'espace tels que les "Ù
Text 56,2,"vecteurs AM et v soient orthog"Ø
ClsÙ
Text 2,2,"onaux."Ù
Text 8,2,"
"Ù
Text 14,2,"3) Theoreme 2"Ù
Text 20,2,"Deux plans de l'espace de vect"Ù
Text 26,2,"eurs normaux respectifs u et v"Ù
Text 32,2," sont paralleles ssi les vecte"Ù
Text 38,2,"urs u et v sont colineaire."Ù
Text 44,2,"
"Ù
Text 50,2,"4) Theoreme 3 "Ù
Text 56,2,"L'espace est muni d'un repere "Ø
ClsÙ
Text 2,2,"orthonormal."Ù
Text 8,2,"Si ax + by + cz + d =0 est une"Ù
Text 14,2," equation cartesienne du plan "Ù
Text 20,2,"P, alors le vecteur de coordon"Ù
Text 26,2,"nees ( a;b;c) est un vecteur n"Ù
Text 32,2,"ormal au plan P"Ù
Text 38,2,"
"Ù
Text 44,2,"5) Theoreme 4 "Ù
Text 50,2,"L'espace est muni d'un repere "Ù
Text 56,2,"orthonormal. "Ø
ClsÙ
Text 2,2,"Si P est un plan donc un vecte"Ù
Text 8,2,"ur normal a pour coordonnees ("Ù
Text 14,2,"a;b;c), alors P a une equation"Ù
Text 20,2," cartesienne de la forme : ax "Ù
Text 26,2,"+ by + cz +d =0"Ù
Text 32,2,"
"Ù
Text 38,2,"6)Theoreme 5"Ù
Text 44,2,"Si deux plans P1 et P2 sont pa"Ù
Text 50,2,"rallele alors le vecteur norma"Ù
Text 56,2,"l d'un plan est aussi normal a"Ø
ClsÙ
Text 2,2," l'autre. Donc si vecteur n es"Ù
Text 8,2,"t normal a P1 alors n est norm"Ù
Text 14,2,"al a P2. Soit n orthogonal a t"Ù
Text 20,2,"t vecteur non nul de P2"Ù
Text 26,2,"
"Ø
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 7Ù
ClsÙ
Text 2,2,"rtir de 2 points"Ù
Text 8,2,"
"Ù
Text 14,2,"Vecteur AB= ( Xb-Xa;Yb-Ya;Zb-Z"Ù
Text 20,2,"a)"Ù
Text 26,2,"
"Ø
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 8Ù
ClsÙ
Text 2,2," AB"Ù
Text 8,2,"
"Ù
Text 14,2,"I= [(Xa+Xb)/2 ; (Ya+Yb)/2 ; (Z"Ù
Text 20,2,"a+Zb)/2 ]"Ù
Text 26,2,"
"Ø
AÈ3 Or BÈ0 Or CÈ0×Goto 0Ù
Lbl 9Ù
ClsÙ
Text 2,2,"t colineaire"Ù
Text 8,2,"
"Ù
Text 14,2,"deux vecteurs sont colineaires"Ù
Text 20,2," si l'un est le produit de l'a"Ù
Text 26,2,"utre par un nombre reel."Ù
Text 32,2,"
"Ù
Text 38,2,"u et v sont colineaires ssi u="Ù
Text 44,2,"k*v"Ù
Text 50,2,"
"Ù
Text 56,2,"Ce qui se traduit au niveau de"Ø
ClsÙ
Text 2,2,"s coordonees par : "Ù
Text 8,2,"u(a;b;c) et v(a';b';c') sont c"Ù
Text 14,2,"olineaires ssi :"Ù
Text 20,2,"a/a' = b/b' = c/c' = k"Ø
ClsÙ
Stop
Merci d'avance pour votre aide
Citer : Posté le 07/06/2015 17:13 | #
Pour le X et Y, regarde dans le menu de configuration [SHIFT][MENU] depuis l'écran de calcul si Coords et à On, et si oui, mets-le à Off.
Citer : Posté le 07/06/2015 17:16 | #
Le générateur de cours n'est pas très performant sur ce point, nous te conseillons de mettre des titres un peu plus courts. Je suppose que tu es le seul à utiliser ce programme, tu devrais t'en sortir avec des abréviations.