Bonjour
voici un algorithme qui permet de dire si des vecteurs sont colinéaire et qui permet de définir l'equation cartésienne d'une droite.
Cependant il y a plusieurs erreurs et j'aimerais qu'il soit le plus court et efficace possible
Par avance merci de votre aide :
VARIABLES
  xU EST_DU_TYPE NOMBRE
  yU EST_DU_TYPE NOMBRE
  xV EST_DU_TYPE NOMBRE
  yV EST_DU_TYPE NOMBRE
  xA EST_DU_TYPE NOMBRE
  yA EST_DU_TYPE NOMBRE
  choix EST_DU_TYPE NOMBRE
  Equation cartésienne EST_DU_TYPE NOMBRE
DEBUT_ALGORITHME
  AFFICHER* "Taper 1 pour déterminer si des vecteurs sont colinéaires"
  AFFICHER* "Taper 2 pour déterminer l'équation cartésienne d'une droite à partir d'un point et d'un vecteur"
  AFFICHER* "Taper 0 pour quitter le programme"
  LIRE choix
  TANT_QUE (Entrer_choix ==1 OU Entrer_choix==2 OU Entrer_choix==0) FAIRE
    DEBUT_TANT_QUE
    SI (Entrer_choix==0 OU Entrer_choix==1 OU Entrer_choix==2) ALORS
      DEBUT_SI
      SI (Entrer_choix==1) ALORS
        DEBUT_SI
        AFFICHER* "Abscisse du premier vecteur ?"
        LIRE xU
        AFFICHER* "Ordonnée du premier vecteur ?"
        LIRE yU
        AFFICHER* "Abscisse du second vecteur ?"
        LIRE xV
        AFFICHER* "Ordonnée du second vecteur ?"
        LIRE yV
        SI ((xU*yV)-(yU*xV)==0) ALORS
          DEBUT_SI
          AFFICHER* "Lesvecteurs sont colinéaires"
          FIN_SI
          SINON
            DEBUT_SINON
            AFFICHER* "Les vecteurs ne sont pas colinéaires"
            FIN_SINON
        FIN_SI
      SI (Entrer_choix==2) ALORS
        DEBUT_SI
        LIRE xA
        LIRE yA
        LIRE xU
        LIRE yU
        Equation cartésienne PREND_LA_VALEUR (xU*(y-yA)-yU(x-xA))
        AFFICHER* "Une équation cartésienne de cette droite est :"
        AFFICHER* Cartésienne
        FIN_SI
      SI (Entrer_choix==0) ALORS
        DEBUT_SI
        AFFICHER* "Vous avez choisi de quitter le programme. Au revoir"
        FIN_SI
      FIN_SI
      SINON
        DEBUT_SINON
        AFFICHER "Ce choix ne correspond pas à une commande"
        FIN_SINON
    FIN_TANT_QUE
  AFFICHER* "Ce choix ne correspond pas à une commande"
FIN_ALGORITHME