Analogue à Insérer un décimal, mais avec des relatifs.

\title{Insérer un décimal relatif}
\language{fr}
\range{-5..5}
\author{Odile Bénassy}
\email{obenassy@free.fr}
\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{sign = random(+,-)}
\if{\sign=-}{
\real{x = - \b * 10^\exp}
\real{y = - \a * 10^\exp}
}
 
\text{dessin=}
\if{\sign=+}{
\for{i=-1 to 5}{
\real{grad=\min + \i*\pas}
\integer{s=\i}
\text{dessin=\dessin
text  black, \s-0.2,-1,  medium,\grad}}
}{
\for{i=-1 to 5}{
\real{grad= - (\min + \i*\pas)}
\integer{s= 4 - \i}
\text{dessin=\dessin
text  black, \s-0.2,-1,  medium,\grad}}
}

 
\real{apos = wims(char -1 of \aa) - \decalage}
\real{bpos = \apos + 1}
\if{\sign=-}{
\real{apos = 4 - \apos}
\real{bpos = 4 - \bpos}
}
                                                                              
\statement{
                                                                              
\if{debug iswordof \oefenv}{<p>ESSAI : <br>\a et \b<br>\x et \y<br>min=\min, pas=\pas<br>\apos et \bpos}
                                                                              
<p>Trouver un décimal relatif 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}