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: Tout sélectionner
Define recb(xa,ya,xb,yb,xc,yc)=
Prgm
:xb-xa+yb-ya→ab
:xc-xa+yc-ya→ac
:xb-xc+yb-yc→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
