Calcul de l'aire d'un parallélogramme

\title{Aire d'un parallélogramme}
\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{aire=\a*\h}
\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=\u + \x}
\real{res=\aire/100}
\text{sunit=\unit<B2>}
  
\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 parallélogramme
<br><i><font size=-2 color=green>Ne pas oublier l'unité</font></i>
<p><center>
\draw{700,500}{
xrange -200,1000
yrange -200,800
                                                                              
polygon \color1, \Xx,\Xy,\Yx,\Yy,\Zx,\Zy,\Tx,\Ty
fill \Xx + 1,5,bisque
                                                                              
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, \x \unit
arrow \Xx + 20,\Xy/2 - 35,\Xx + 20,0,8,\color1
arrow \Xx + 20,\Xy/2 + 35,\Xx + 20,\Xy,8,\color1
text black, \Xx - 10, \Xy/2, normal,\t \unit
line \Xx + 35, 0, \Xx + 35, 15, red
line \Xx + 35, 15, \Xx + 20, 15, red
                                                                              
                                                                              
}</center>
L'aire du parallélogramme est \embed{reply 1,5} \embed{reply 2,3}
                                                                              
}
                                                                              
\answer{}{\res}{type=numeric}
\answer{}{\sunit}{type=litexp}
                                                                              
\hint{Il suffit de multiplier la base par la hauteur.}