Entrez xA,yA,xB,yB,xC,yC,xD,yD
xI <- (xA+xC)/2
yI<- (yA+yC)/2
xJ <- (xB+xD)/2
yJ<- (yB+yD)/2
si (xI==xJ) ET (yI==yJ) alors afficher "parallélogramme"
Entrez xH,yH,xI,yI,xJ,yJ
x1=(xI-xH)
y1=(yI-yH)
x2=(xJ-xH)
y2=(yJ-yH)
si x1*y2==x2*y1 alors afficher "alignés"
