Traduire un décimal en lettres (I)

Un décimal très simple (1 seul chiffre significatif, par exemple 0.009) est donné en chiffres et l'élève doit le décomposer soit sous la forme "9 x 0.001", soit sous la forme "9 millièmes" (en fonction du tirage aléatoire de la question).

\title{Traduire un décimal en lettres (I)}
\language{fr}
\range{-5..5}
\author{Odile Bénassy}
\email{obenassy@free.fr}
\license{GNU GPL}
\computeanswer{no}
\format{html}
\precision{10000}
 
\integer{exonum=random(1..2)}
 
\integer{a = random(1..9)}
 
\integer{first=-4}
\integer{last=6}
\integer{exp = random(\first..\last)}
\real{x = \a * 10^\exp}
 
\matrix{base1 = 100000000, 10000000, 1000000, 100000, 10000, 1000, 100, 10, 1, 0.1, 0.01, 0.001, 0.0001, 0.00001, 0.000001, 0.0000001, 0.00000001, 0.000000001}
\matrix{base2 = centaine(s) de millions, dizaine(s) de millions, million(s), centaine(s) de milliers, dizaine(s) de milliers, millier(s), centaine(s), dizaine(s), unité(s), dixième(s), centième(s), millième(s), dix-millième(s), cent-millième(s), millionnième(s), dix-millionnième(s), cent-millionnième(s)}
\if{\exonum=1}{\matrix{base=\base1}}{\matrix{base=\base2}}
 
\integer{decalage=9}
 
\text{b = item(\decalage-\exp, \base)}
 
\statement{
 
<p>Traduire le nombre décimal :
 
<p>
 
\x = \embed{reply 1,1} \if{\exonum=1}{x} \embed{choice 1}
 
}
 
\choice{}{\b}{\base}
\answer{}{\a}{type=numeric}