Calcul de l'aire d'un losange

\title{Aire d'un losange}
\language{fr}
\range{-5..5}
\author{Odile Bénassy}
\email{obenassy@free.fr}
\license{GNU GPL}
\computeanswer{no}
\format{html}
\precision{10000}
 
\integer{questionitem=2}
\integer{a1=random(11..48)}
\integer{b1=random(11..48)}
\integer{c1=sqrt(\a1^2+\b1^2)}
\real{a=\a1/10}
\real{b=\b1/10}
\real{c=\c1/10}
\text{unit=randomitem(mm,cm,cm,cm,m,m,dm)}
 
\real{P= 4*\c}
\real{A=(\a*\b)/2}
\text{questions=Quel est le périmètre, Quelle est l'aire}
\text{question=item(\questionitem, \questions)}
\text{afaires=Périmètre,Aire}
\text{afaire=item(\questionitem, \afaires)}
\real{res= \questionitem=1 ? \P:\A}
 \text{sunit=\unit²}
 
\statement{
<p>\question du losange ABCD ?
<br><i><font size=-2 color=green>Ne pas oublier de noter l'unité d'aire</font></i>
<p><center>
\draw{350,350}{
xrange -100,100
yrange -100,100
polygon black,-16*\a,0, 0,16*\b, 16*\a,0, 0,-16*\b, -16*\a,0
fill 0,0,seashell
 arrow -15,16*\b+15,-16*\a,16*\b+15,8,black
arrow 15,16*\b+15,16*\a,16*\b+15,8,black
dline -16*\a,0,-16*\a,16*\b+15, black
dline 16*\a,0,16*\a,16*\b+15, black
 
arrow 16*\a + 15,10,16*\a + 15,16*\b,8,black
arrow 16 * \a + 15,-10,16*\a + 15,-16*\b,8,black
dline 0,-16*\b,16*\a + 15,-16*\b, black
dline 0, 16*\b,16*\a + 15,16*\b, black
                                                                              
line - 8*\a + 2, 8*\b - 2, -8*\a - 2, 8*\b + 2, red
line 8*\a - 2, 8*\b - 2, 8*\a + 2, 8*\b + 2, red
line 8*\a - 2, - 8*\b + 2, 8*\a + 2, - 8*\b - 2, red
line - 8*\a + 2, - 8*\b + 2, -8*\a - 2, - 8*\b - 2, red
                                                                              
text black,-16*\a - 10, 5,large,A
text black,-2, 16*\b + 12,large,B
text black,16*\a + 2,0,large,C
text black,-2,-16*\b - 4,large,D
text black,-10,16*\b+20,normal,\a \unit
text black,16*\a + 12, 5,normal, \b \unit
text black,-8*\a - 17, -8*\b - 2,normal, \c \unit
}
</center>
                                                                              
<br><br>
Réponse : \embed{reply 1,5} \embed{reply 2,3}
}
                                                                              
\answer{\afaire du losange}{\res}{type=numeric}
\answer{}{\sunit}{type=litexp}
                                                                              
\hint{Multiplier la longueur d'une diagonale par la longueur de l'autre diagonale, puis diviser par 2.}