Forum TI-Planet.org

Bonjour a tous,

Voila j'ai un probleme, jai ce programme, et il ne marche pas pour les coordonnnés 0,1,0,0,1,0 et aussi pour d'autres coordonnes alors qu'il devrait etre rectangle en b

Code: Select all

Define recb(xa,ya,​xb,yb,xc,yc)​=
Prgm
:xb-xa+yb-y​a→ab
:xc-xa+yc-y​a→ac
:xb-xc+yb-y​c→bc
:If ac^(2)=ab^(​2)+bc^(2) Then
:Disp "Le triangle ABC est rectangle en B"
:Else Disp "Le triangle ABC n'est soit pas rectangle en B soit n'est pas rectangle"
:EndIf
:EndPrgm


Pour moi, la longueur d'un segment AB n'est pas xB-xA+yB-yA mais sqrt((xB-xA)^2+(yB-yA)^2)