Programme algo

[edwin]

Bonsoir a tous,

J'ai le programme suivant et quand on veur vérifier la syntaxe, l'erreur nom de fonction ou de variable invalide apparait:

Code: Select all

Define trirecenb()=
Prgm
:Request "xa=",xa
:Request "ya=",ya
:Request "xb=",xb
:Request "yb=",yb
:Request "xc=",xc
:Request "yc=",yc
:xb-xa→xab
:yb-ya→yab
:Disp "ab(xab;yab)"
:xc-xa→xac
:yc-ya→yac
:Disp "ac(xac;yac)"
:xc-xb→xbc
:yc-yb→ybc
:Disp "bc(xbc;ybc)"
:(xab)^(2)+(yab)^(2)→f
:(xac)^(2)+(yac)^(2)→g
:(xbc)^(2)+(ybc)^(2)→h
:Disp "f"
:Disp "g"
:Disp "h"
:√f)→ab
:√g)→ac
:√h→bc
:Disp "ab"
:Disp "ac"
:Disp "bc"
:If f+h)=g 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

Quel est le probleme ???

Merci pour vos réponses.

[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