Insérer un décimal

A l'aide de la règle graduée, insérer un décimal à l'intérieur d'un intervalle (comme [234.5,234.6] par exemple)

\title{Insérer un décimal}
\language{fr}
\range{-5..5}
\author{Odile Bénassy}
\email{obenassy@free.fr}
\license{GNU GPL}
\computeanswer{no}
\format{html}
\precision{10000}
 
\integer{a = random(1001..9999)}
\text{aa = \a}
\integer {b = \a + 1}
\integer{exp = random(-7..1)}
 
\real{x = \a * 10^\exp}
\real{y = \b * 10^\exp}
 
\text{min = wims(char 1 to -2 of \aa)}
\integer{min = 10 * \min}
\integer{decalage=0}
\if{wims(char -1 of \aa) isin 56789}{\integer{decalage=5}}
\integer{min = \min + \decalage}
\real{min = \min * 10^\exp}
\real{pas = 1 * 10^\exp}
 
\text{dessin=}
\for{i=-1 to 5}{
\real{grad=\min + \i*\pas}
\integer{s=\i}
\text{dessin=\dessin
text  black, \s-0.2,-1,  medium,\grad}}
 
\real{apos = wims(char -1 of \aa) - \decalage}
\real{bpos = \apos + 1}
 

\statement{
 
<p>Trouver un décimal qui s'insère entre \x et \y
 
<p><center>
\draw{600,60}{
xrange -1-0.3,5+0.5
yrange -2,2.2
hline black,0,0
arrow  2.5,0,\m,0,10,green
parallel  -1,-0.8,-1,0.4,1/2,0, 40, blue
parallel  -1,-0.3,-1,0.3,1/10,0, 200, blue
parallel  -1.2,-0.3,-1.2,0.3,1/10,0, 2, blue
parallel  -1,-0.8,-1,0.6,1,0, 40, black
\dessin
arrow \apos,2,\apos,0, 8, red
arrow \bpos,2,\bpos,0, 8, red
}
</center>
}
                                                                             
\hint{Le nombre recherché doit être plus grand que \x, et plus petit que \y}
\answer{Ma réponse :}{\reply1}{type=numeric}
\condition{\reply1 est-il plus grand que \x ?}{\x<\reply1}
\condition{\reply1 est-il plus petit que \y ?}{\reply1<\y}