J'ouvre ce topic uniquement pour les algorithmes concernant les vecteurs:
Le premier, que je poste sert à calculer l'abscisse ou l'ordonné manquante pour que les points A, B et C soient alignés:
Le premier, que je poste sert à calculer l'abscisse ou l'ordonné manquante pour que les points A, B et C soient alignés:
- Code:
EffEcr
Input "XA=",A
Input "YA=",B
Input "XB=",C
Input "YB=",D
EffEcr
Menu("","ABSCISSE",1,"ORDONNEE",2
Lbl 1
Input "YC=",F
(((C-A)*(F-B))/(D-B))+A→X
Disp "XC=
Output(2,4,X
Stop
Lbl 2
Input "XC=",F
(((D-B)*(F-A))/(C-A))+B→X
Disp "YC=
Output(2,4,X
- Code:
EffEcr
Input "XA=",A
Input "XB=",B
Input "XC=",C
Input "YA=",D
Input "YB=",E
Input "YC=",F
(B-A)*(F-E)-(E-D)*(C-B)→X
If X=0
Then
Disp "LES POINTS SONT","ALIGNES.
Else
Disp "LES POINTS NE SONT","PAS ALIGNES
End
- Code:
EffEcr
Input "XA=",A
Input "XB=",B
Input "YA=",C
Input "YB=",D
AD-BC→E
If E=0
Then
Disp "LES VECTEURS","SONT COLINEAIRES
Else
Disp "LES VECTEURS","NE SONT PAS","COLINEAIRES
End
- Code:
EffEcr
Input "XA=",A
Input "YA=",B
Menu("","ABSCISSE",1,"ORDONNEE",2
EffEcr
Lbl 1
Input "YB=",C
(AC)/B->D
Disp "XB=
Output(2,4,D
Stop
Lbl 2
Input "XB=",C
(BC)/A->D
Disp "YB=
Output(2,4,D