Missing

\title{Périmètre et aire d'un disque}
\language{fr}
\range{-5..5}
\author{Odile Bénassy}
\email{obenassy@free.fr}
\computeanswer{no}
\format{html}
\precision{10000}

\integer{questionitem=random(1,2)}
\integer{a1=random(11..48)}
\real{a=\a1/10}
\real{b=2*\a}

\real{d=16*\b}
\real{r=16*\a}

\real{P=2 * pi * \a}
\real{A=pi * (\a)^2}

\integer{rd=random(1,2)}
\text{dimensions=rayon, diamètre}
\text{dims=\a,\b}
\text{nomdims=r,}
\text{dimension = item(\rd, \dimensions)}
\text{dim = item(\rd, \dims)}
\text{nomdim = item(\rd, \nomdims)}
\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{color=skyblue}

\statement{
<p><center>

\if{\rd=1}{

\draw{350,350}{
xrange -100,100
yrange -100,100

fellipse 0,0,\d,\d,\color
ellipse 0,0,\d,\d,black
line -3,-3,3,3,black
line -3,3,3,-3, black
line 0,0,\r,0,black
text black, -1,10,normal, O
text black, \r/2,10,normal, r
text black, -\r, \r/2 + 20, large, D
}}

{

\draw{350,350}{
xrange -100,100
yrange -100,100

fellipse 0,0,\d,\d,\color
ellipse 0,0,\d,\d,black
line 0,-3,0,3,black
line -\r,0,\r,0,black
text black, -1,10,normal, O
text black, -\r, \r/2 + 20, large, D
}}

</center> 
<p>Sachant que son \dimension \nomdim vaut \dim, \question du disque \(\mathcal{D}) ?
<br><i>(calculer le résultat)</i>
}

\answer{\afaire du disque}{\res}{type=numeric}