verbatimtex
%&latex
\documentclass{article}
\usepackage[frenchb]{babel}
\begin{document}
etex

input geometriesyr12;
figure(0,0,8u,6u);
pair A,B,C;
B=u*(1,1);
A=u*(7,1);
C=u*(7,4);
remplis codeperp(B,A,C,8)--A--cycle withcolor vert;
trace codeperp(B,A,C,8);
nomme.llft(B);
nomme.lrt(A);
nomme.top(C);
trace appelation(B,C,2mm,btex Hypot\'enuse etex);
trace appelation(B,A,-3mm,btex c\^ot\'e adjacent \`a l'angle $\widehat{CBA}$ etex);
trace marqueangle(A,B,C,0);
trace triangle(A,B,C);
fin;
figure(0,0,8u,6u);
pair O,A,B,C,M,N,M',N';
O=u*(1,1);
M'=u*(5,1);
M=3/5[O,M'];
N'=u*(5,4);
N=3/5[O,N'];
B=7/5[O,M'];
C=7/5[O,N'];
trace marqueangle(M,O,N,0);
remplis codeperp(N,M,O,8)--M--cycle withcolor vert;
trace codeperp(N,M,O,8);
remplis codeperp(N',M',O,8)--M'--cycle withcolor vert;
trace codeperp(N',M',O,8);
trace demidroite(O,M);
trace demidroite(O,N);
trace M--N;
trace M'--N';
nomme.llft(O);
nomme.bot(M);
nomme.bot(M');
nomme.top(N);
nomme.top(N');
label.bot(btex $x$ etex,B);
label.bot(btex $y$ etex,C);
fin;
figure(0,0,6u,5u);
pair R,T,S;
S=u*(1,1);
R=u*(5,1);
T=demidroite(S,rotation(R,S,38)) intersectionpoint perpendiculaire(S,R,R);
remplis codeperp(S,R,T,8)--R--cycle withcolor vert;
trace codeperp(S,R,T,8);
trace appelation(S,T,2mm,btex $6\,cm$ etex);
trace marqueangle(R,S,T,0);
label.rt(btex 38\degres etex,w);
trace triangle(R,S,T);
nomme.llft(S);
nomme.top(T);
nomme.lrt(R);
fin;
figure(0,0,6u,5u);
pair E,F,G;
u:=5mm;
E=u*(1,1);
G=u*(5,1);
F=demidroite(E,rotation(G,E,60)) intersectionpoint perpendiculaire(E,G,G);
remplis codeperp(E,G,F,8)--G--cycle withcolor vert;
trace codeperp(E,G,F,8);
trace appelation(E,G,-2mm,btex $6\,cm$ etex);
trace marqueangle(G,E,F,0);
label.rt(btex 60\degres etex,w);
nomme.llft(E);
nomme.top(F);
nomme.lrt(G);
trace triangle(E,F,G);
fin;
u:=1cm;
figure(0,0,6u,5u);
pair I,J,K;
K=u*(1,1);
J=u*(5,1);
I=u*(5,4);
nomme.llft(K);
nomme.lrt(J);
nomme.top(I);
remplis codeperp(K,J,I,8)--J--cycle withcolor vert;
trace codeperp(I,J,K,8);
trace appelation(K,I,2mm,btex 10 etex);
trace appelation(I,J,2mm,btex 6 etex);
trace marqueangle(K,I,J,0);
label.bot(btex ? etex,w);
trace triangle(I,J,K);
fin;
end