Commande point

[albenic]

Bonjour,

le programme suivant a pour vocation à calculer les coordonnées du milieu d'un segment défini par deux points. Je sais que cette commande existe mais l'objectif et de concevoir quelques sous-programmes pour tester les natures de différents quadrilatères et autres triangles.

Code : Tout sélectionner

mil(A,B):={
  local xI,yI;
  xI:=(abscisse(A)+abscisse(B))/2;
  yI:=(ordonnee(A)+ordonnee(B))/2;
retourne(point(xI,yI));
}:;

Le programme est fonctionnel mais la commande

Code : Tout sélectionner

afficher(mil(point(0,0),point(4,0)))

retourne

Code : Tout sélectionner

pnt(pnt[2,[536870968]])

qui n'est pas des plus lisibles.

Après vérification, il y a le même souci avec la commande

Code : Tout sélectionner

milieu

. Est-ce possible et comment faire pour obtenir un affichage correct ?

Par avance merci, Benoît.

[alb]

salut,
Je ne comprends pas ce qu'apporte de plus la fonction mil ?
Cela dit A:=point(0,0);B:=point(4,0);I:=mil(A,B); affiche les 3 points.

[albenic]

salut,
Je ne comprends pas ce qu'apporte de plus la fonction mil ?
Cela dit A:=point(0,0);B:=point(4,0);I:=mil(A,B); affiche les 3 points.

Elle n'apporte rien certes mais l'idée est de la construire pour s'en servir pour un autre programme qui teste si un quadrilatère est un parallélogramme. Le programme contient la commande

Code : Tout sélectionner

afficher("c'est un parallélogramme car les diagonales ont même milieu "+mil(A,B))

.

Le problème est qu'à l’affichage je n'obtiens pas les coordonnées du milieu.

[parisse]

C'est parce que vous calculez le mileu vu comme objet géométrique, alors que vous voulez afficher ses coordonnées, il faut donc ajouter la commande coordonees, afficher(coordonnees(...)) devrait répondre à vos souhaits.