Programme algo

[edwin]

Bonsoir a tous,
J'ai une question, comment faire un programme d'algorithm​ique permettant de dire, trois points a,b et c étant donnes par leurs cordonnes da​ns un repere du plan, si le triangle abc est rectangle en b en utilisant if...then..​. else... endif sur les ti nspire cx cas

[critor]

Il faut déjà ouvrir l'éditeur de programmes:
A


Ensuite, dans le programme tu commences par demander les coordonnées des 3 points à l'utilisateur.

Code: Select all

Request "xA=",xa
Request "yA=",ya
Request "xB=",xb
Request "yB=",yb
Request "xC=",xc
Request "yC=",yc

Tu peux alors calculer les longueurs des trois côtés, ce qui va faciliter la suite:

Code: Select all

racine((xb-xa)^2+(yb-ya)^2)->c
racine((xc-xa)^2+(yc-ya)^2)->b
...

Maintenant, les conditions deviennent beaucoup plus simples à écrire

Code: Select all

if a^2=b^2+c^2 then
disp "Le triangle ABC est rectangle en A."
endif
...

[edwin]

Code: Select all

Define trirecb(xa,ya,xb,yb,xc,yc)=
Prgm
:If xa*(xb-xc)-xb^(2)+xb*xc+(ya-yb)*(yb-yc)=0 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 un triangle rectangle"
:EndIf
:EndPrgm