Calcul de l'aire d'un trapèze

\title{Aire d'un trapèze}
\range{-5..5}
\author{Odile Bénassy}
\email{obenassy@free.fr}
\license{GNU GPL}
\computeanswer{no}
\format{html}
\precision{10000}
 
\integer{a=random(30..80)}
\integer{h=random(30..80)}
\integer{r=random(10..70)}
\integer{s=random(\r+5..90)}
\integer{gb=\a}
\integer{pb=\a*(\s-\r)/100}
\integer{aire=(\gb + \pb)*\h/0.2}
\text{unit=randomitem(mm,cm,cm,cm,m,m,dm)}
 
\integer{b=sqrt(\h*\h + \a*\a*(1-\r/100)*(1-\r/100))}
\integer{c=sqrt(\h*\h + \a*\a*(\r/100)*(\r/100))}
 
\real{x=\a/10}
\real{y=\b/10}
\real{z=\c/10}
\real{t=\h/10}
\real{u=\x*\r/100}
\real{v=\x*\s/100}
\real{gdbase=\gb/10}
\real{ptbase=\pb/10}
\real{res=\aire/1000}
\text{sunit=\unit²}
 
\integer{scale=\x*400/40}
 
\matrix{Xcoord=\u,\t}
\real{Xx=\scale*item(1,\Xcoord)}
\real{Xy=\scale*item(2,\Xcoord)}
\matrix{Ycoord=\v,\t}
\real{Yx=\scale*item(1,\Ycoord)}
\real{Yy=\scale*item(2,\Ycoord)}
\matrix{Zcoord=\x,0}
\real{Zx=\scale*item(1,\Zcoord)}
\real{Zy=\scale*item(2,\Zcoord)}
\matrix{Tcoord=0,0}
\real{Tx=\scale*item(1,\Tcoord)}
\real{Ty=\scale*item(2,\Tcoord)}

\text{color1=black}
                                                                              
\statement{
<p>Calculer l'aire du trapèze
<br><i><font size=-2 color=green>Ne pas oublier de noter l'unité d'aire</font></i>
<p><center>
\draw{500,500}{
xrange -200,800
yrange -200,800
                                                                              
polygon \color1, \Xx,\Xy,\Yx,\Yy,\Zx,\Zy,\Tx,\Ty
fill 100,5,wheat
                                                                              
text black,\Xx - 50,\Xy + 20,large,A
text black,\Yx + 30,\Yy + 20,large,B
text black,\Zx+30,\Zy - 10,large,C
text black,\Tx-50,\Ty - 10,large,D
                                                                              
text black, (\Tx + \Zx)/2 - 20, -20, normal, \gdbase \unit
text black, (\Xx + \Yx)/2 - 20, \Yy + 30, normal, \ptbase \unit
dline \Yx, \Xy, \Zx + 70, \Xy, \color1
dline \Zx, 0, \Zx + 70, 0, \color1
arrow \Zx + 70,\Xy/2 - 35,\Zx + 70,0,8,\color1
arrow \Zx + 70,\Xy/2 + 35,\Zx + 70,\Xy,8,\color1
text black, \Zx + 50, \Xy/2, normal,\t \unit
                                                                              
                                                                                                                                                           
}</center>
L'aire du trapèze est \embed{reply 1,5} \embed{reply 2,3}
                                                                              
}
                                                                              
\answer{}{\res}{type=numeric}
\answer{}{\sunit}{type=litexp}
                                                                              
\hint{Ajouter la petite base et la grande base, puis diviser par 2, et enfin multiplier par la hauteur.}