Commande point
Publié : dim. févr. 10, 2013 12:45 pm
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.
Le programme est fonctionnel mais la commande retourne qui n'est pas des plus lisibles.
Après vérification, il y a le même souci avec la commande. Est-ce possible et comment faire pour obtenir un affichage correct ?
Par avance merci, Benoît.
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));
}:;
Code : Tout sélectionner
afficher(mil(point(0,0),point(4,0)))
Code : Tout sélectionner
pnt(pnt[2,[536870968]])
Après vérification, il y a le même souci avec la commande
Code : Tout sélectionner
milieu
Par avance merci, Benoît.