Parallélogramme ABCD : codage des côtés

Voici son code :
u :=1cm ; figure (-8u,-8u,10u,8u) ; pair A,B,C,D,V ; A :=(0,0) ; %changer la taille du parallélogramme B :=(6u,0) ; V :=(1u,4u) ; % V = vecteur BC C := B shifted V ; D := A shifted V ; draw A—B--C—D--cycle ; label.llft(btex $A$ etex,A) ; %changer les noms des points de la zone de texte label.lrt(btex $B$ etex,B) ; label.urt(btex $C$ etex,C) ; label.ulft(btex $D$ etex,D) ; trace codesegments(A,B,D,C,1) ; trace codesegments(B,C,A,D,2) ; fin ;
Parallélogramme ABCD : codage des diagonales

Voici son code :
u :=1cm ; figure (-8u,-8u,10u,8u) ; pair A,B,C,D,V,O ; A :=(0,0) ; %changer la taille du parallélogramme B :=(6u,0) ; V :=(1u,4u) ; % V = vecteur BC C := B shifted V ; D := A shifted V ; O :=(A+C)/2 ; draw A—B--C—D--cycle ; draw A—C ; draw B—D ; label.llft(btex $A$ etex,A) ; %changer les noms des points de la zone de texte label.lrt(btex $B$ etex,B) ; label.urt(btex $C$ etex,C) ; label.ulft(btex $D$ etex,D) ; label.top(btex $O$ etex,O) ; trace codesegments(A,O,O,C,1) ; trace codesegments(B,O,O,D,2) ; fin ;
Losange ABCD : codage des côtés

Voici son code :
u :=1cm ; figure (-8u,-8u,10u,8u) ; pair A,B,C,D,V,O ; numeric AC,BD ; AC :=6 ; % diagonale du losange BD :=4 ; A :=(0,0) ; C :=(AC*u,0) ; O :=(A+C)/2 ; B :=(xpart(O),ypart(O)-BD*u/2) ; D :=(xpart(O),ypart(O)+BD*u/2) ; draw A—B--C—D--cycle ; label.lft(btex $A$ etex,A) ; %changer les noms des points de la zone de texte label.bot(btex $B$ etex,B) ; label.rt(btex $C$ etex,C) ; label.top(btex $D$ etex,D) ; trace codesegments(A,B,B,C,2) ; trace codesegments(C,D,D,A,2) ; fin ;
Losange ABCD : codage des diagonales

Voici son code :
u :=1cm ; figure (-8u,-8u,10u,8u) ; pair A,B,C,D,V,O ; numeric AC,BD ; AC :=6 ; % diagonales du losange BD :=4 ; A :=(0,0) ; C :=(AC*u,0) ; O :=(A+C)/2 ; B :=(xpart(O),ypart(O)-BD*u/2) ; D :=(xpart(O),ypart(O)+BD*u/2) ; draw A—B--C—D--cycle ; draw A—C ; draw B—D ; label.lft(btex $A$ etex,A) ; %changer les noms des points de la zone de texte label.bot(btex $B$ etex,B) ; label.rt(btex $C$ etex,C) ; label.top(btex $D$ etex,D) ; label.llft(btex $O$ etex,O) ; trace codesegments(A,O,O,C,1) ; trace codesegments(B,O,O,D,2) ; trace codeperp(C,O,D,5) ; fin ;
Rectangle ABCD : codage des côtés

Voici son code :
u :=1cm ; figure (-8u,-8u,10u,8u) ; pair A,B,C,D ; numeric AB,AD ; AB :=6 ; % changer la taille du rectangle AD :=4 ; A :=(0,0) ; B :=(AB*u,0) ; C :=(AB*u,AD*u) ; D :=(0,AD*u) ; draw A—B--C—D--cycle ; label.llft(btex $A$ etex,A) ; %changer les noms des points de la zone de texte label.lrt(btex $B$ etex,B) ; label.urt(btex $C$ etex,C) ; label.ulft(btex $D$ etex,D) ; trace codesegments(A,B,D,C,1) ; trace codesegments(B,C,A,D,2) ; trace codeperp(B,A,D,5) ; fin ;
Rectangle ABCD : codage des diagonales

Voici son code :
u :=1cm ; figure (-8u,-8u,10u,8u) ; pair A,B,C,D,O ; numeric AB,AD ; AB :=6 ; % changer la taille du rectangle AD :=4 ; A :=(0,0) ; B :=(AB*u,0) ; C :=(AB*u,AD*u) ; D :=(0,AD*u) ; O :=(A+C)/2 ; draw A—B--C—D--cycle ; draw A—C ; draw B—D ; label.llft(btex $A$ etex,A) ; %changer les noms des points de la zone de texte label.lrt(btex $B$ etex,B) ; label.urt(btex $C$ etex,C) ; label.ulft(btex $D$ etex,D) ; label.top(btex $O$ etex,O) ; trace codesegments(A,O,O,C,2) ; trace codesegments(B,O,O,D,2) ; fin ;
Carré ABCD : codage des côtés

Voici son code :
u :=1cm ; figure (-8u,-8u,10u,8u) ; pair A,B,C,D ; numeric AB ; AB :=6 ; % changer la taille du carré A :=(0,0) ; B :=(AB*u,0) ; C :=(AB*u,AB*u) ; D :=(0,AB*u) ; draw A—B--C—D--cycle ; label.llft(btex $A$ etex,A) ; %changer les noms des points de la zone de texte label.lrt(btex $B$ etex,B) ; label.urt(btex $C$ etex,C) ; label.ulft(btex $D$ etex,D) ; trace codesegments(A,B,D,C,2) ; trace codesegments(B,C,A,D,2) ; trace codeperp(B,A,D,5) ; fin ;
Carré ABCD : codage des diagonales

Voici son code :
u :=1cm ; figure (-8u,-8u,10u,8u) ; pair A,B,C,D,O ; numeric AB ; AB :=6 ; % changer la taille du carré A :=(0,0) ; B :=(AB*u,0) ; C :=(AB*u,AB*u) ; D :=(0,AB*u) ; O :=(A+C)/2 ; draw A—B--C—D--cycle ; draw A—C ; draw B—D ; label.llft(btex $A$ etex,A) ; %changer les noms des points de la zone de texte label.lrt(btex $B$ etex,B) ; label.urt(btex $C$ etex,C) ; label.ulft(btex $D$ etex,D) ; label.top(btex $O$ etex,O) ; trace codesegments(A,O,O,C,2) ; trace codesegments(B,O,O,D,2) ; trace codeperp(A,O,B,5) ; fin ;
