Calcul de l'aire d'un triangle rectangle

\title{Aire d'un triangle rectangle}
\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{x1=-16*\a}
\real{x2=16*\a}
\real{y1=-16*\b}
\real{y2=16*\b}
\integer{rightangle=random(1..4)}
 
\real{P=\a+\b+\c}
\real{A=(\a*\b)/2}
\text{name= \a=\b? triangle rectangle}
\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 triangle rectangle ABC ?
<br><i><font size=-2 color=green>Ne pas oublier de noter l'unité d'aire</font></i>
 
<p><center>
 
\if{\rightangle=1}{
 
\draw{350,350}{
xrange -100,100
yrange -100,100
polygon black, \x1,\y2,\x2,\y2,\x1,\y1
fill \x1+1,\y2-1,skyblue
                                                                              
line \x1+5,\y2,\x1+5,\y2-5, black
line \x1,\y2-5, \x1+5, \y2-5, black
                                                                              
text black,-16*\a - 4, 16*\b + 10,large,A
text black,16*\a + 2, 16*\b + 10,large,B
text black,-16*\a - 4,-16*\b,large,C
text black,-3,16*\b+10,normal,\a \unit
text black,- 16*\a - 12, 5,normal, \b \unit
text black,0,-5,normal,\c \unit
}}
                                                                              
\if{\rightangle=2}{
                                                                              
\draw{350,350}{
xrange -100,100
yrange -100,100
polygon black, \x1,\y2,\x2,\y2,\x2,\y1
fill \x2-1,\y2-1,plum
                                                                              
line \x2-5,\y2,\x2-5,\y2-5, black
line \x2,\y2-5, \x2-5, \y2-5, black
                                                                              
text black,-16*\a - 4, 16*\b + 10,large,A
text black,16*\a + 2, 16*\b + 10,large,B
text black,16*\a + 4,-16*\b,large,C
text black,-5,16*\b+10,normal,\a \unit
text black,16*\a + 4, 0,normal, \b \unit
text black,-12,-8,normal,\c \unit
}}
  \if{\rightangle=3}{
                                                                              
\draw{350,350}{
xrange -100,100
yrange -100,100
polygon black, \x2,\y2,\x2,\y1,\x1,\y1
fill \x2-1,\y1+1,gold
                                                                              
line \x2-5,\y1,\x2-5,\y1+5, black
line \x2,\y1+5, \x2-5, \y1+5, black
                                                                              
text black,16*\a + 2, 16*\b + 10,large,A
text black,16*\a + 2, -16*\b,large,C
text black,-16*\a - 4,-16*\b,large,B
text black,-3,-16*\b - 5,normal,\a \unit
text black,16*\a + 4, 5,normal, \b \unit
text black,-10,10,normal,\c \unit
}}
                                                                              
\if{\rightangle=4}{
                                                                              
\draw{350,350}{
xrange -100,100
yrange -100,100
polygon black, \x1,\y2,\x1,\y1,\x2,\y1
fill \x1+1,\y1+1,aquamarine
                                                                              
line \x1+5,\y1,\x1+5,\y1+5, black
line \x1,\y1+5, \x1+5, \y1+5, black
                                                                              
text black,-16*\a - 4, 16*\b + 10,large,A
text black,- 16*\a - 4, - 16*\b,large,B
text black,16*\a + 4,-16*\b,large,C
text black,-10,- 16*\b - 5,normal,\a \unit
text black,- 16*\a - 15, 0,normal, \b \unit
text black,0,5,normal,\c \unit
}}
                                                                              
</center>
                                                                              
<br><br>Réponse : \embed{reply 1,5} \embed{reply 2,3}
}
                                                                              
\answer{\afaire du triangle}{\res}{type=numeric}
\answer{}{\sunit}{type=litexp}
                                                                              
\hint{C'est la moitié du rectangle...}