Programme Points alignes et moyenne

[edwin]

Bonjour à tous,

Voila j'ai un programme avec le programme de ma ti, je narrive pas a les faire fonctionner,
le premier concerne l'alignement de 3 points et me mets en erreur nom de fonction ou de variable invalide:

Code: Select all

Define alpoints()=
Prgm
Request "xa=",xa
Request "ya=",ya
Request "xb=",xb
Request "yb=",yb
Request "xc=",xc
Request "yc=",yc
xb-xa→x
yb-ya→y
xc-xa→x'
yc-ya→y'
xy'-x'y→d
If d=0 Then
Disp "Les trois points sont alignés"
Else
Disp "Les trois points ne sont pas alignés" 
EndIf
EndPrgm

La deuxime question est comment faire un programme avec devant ecrit : Define LibPub alpoints()=

Merci pour toutes les réponses apportées a ce sujet

[Excale]

Tu ne peux pas appeler une variable x' ou y' . Le nom doit commencer par une lettre et ensuite du peux mettre des caractères alphanumériques.

[edwin]

merci, exale je te vai essayer et te di

EDIT: Ca ne sert à rien de faire deux sujets pour le même programme

j'ai ce programme:

Code: Select all

Define alpoints()=
Prgm
:Request "xa=",xa
:Request "ya=",ya
:Request "xb=",xb
:Request "yb=",yb
:Request "xc=",xc
:Request "yc=",yc
:xb-xa→x
:yb-ya→y
:xc-xa→o
:yc-ya→p
:xy'-x'y→d
:If d=0 Then
:Disp "Les trois points sont alignés"
:Else
:Disp "Les trois points ne sont pas alignés" 
:EndIf
:EndPrgm

et quand je le lance, (nomduprogramme(), puis appuie sur enter) , il me met terminer .

Comment faire pour le lancer??? normalement

Merci d'avance pour vos réponses

[Excale]

Résultat de la suite qui s'est passé sur le chat:
-Utiliser les arguments en début de programme c'est mieux
-Simplification c'est mieux
-Ne pas oublier d'enregistrer le programme (Ctrl-B)

Code: Select all

Define alpoints(xa,ya,xb,yb,xc,yc)=
Prgm
:If (xb-xa)*(xc-xa)=(yc-ya)*(yb-ya) Then
:Disp "Les trois points sont alignés"
:Else
:Disp "Les trois points ne sont pas alignés"
:EndIf
:EndPrgm