Exercice simple de comparaison de 2 décimaux

Cet exercice met le doigt sur les pièges dans lesquels les jeunes élèves tombent trop souvent.

\title{Comparer 2 nombres décimaux}
\language{fr}
\range{-5..5}
\author{Odile Bénassy}
\email{obenassy@free.fr}
\license{GNU GPL}
\computeanswer{yes}
\format{html}
\precision{10000}
 
\integer{m=6}
\integer{n=6}
\text{a=0}
\text{dessin=}
\for{i=0 to \m}{
\integer{a=\i}
\integer{s=\i}
\text{dessin=\dessin
text  black, \s,-1,  medium,\a}}
 
\real{a=randint(10..\m*10-1)/10}
\text{aa=\a}
\text{first = wims(char 1 of \aa)}
\integer{last=wims(char -1 of \aa)}
 
\integer{numexo=random(1..4)}
\if{\numexo=1}{
\integer{b=\a}
\text{b = wims(nospace \first .0 \last)}
}
\if{\numexo=2}{
\text{b = wims(nospace \first . \last 0)}
}
\if{\numexo=3}{
\text{b = wims(nospace \first . \last 0 \last)}
}
\if{\numexo=4}{
\integer{c=random(11..99)}
\text{a = wims(nospace \first . \last \last)}
\text{b = wims(nospace \first . \last \c)}
}
 
\integer{pos=random(1,2)}
\if{\pos=2}{
\real{c=\a}
\real{a=\b}
\real{b=\c}
}
                                                                                
\text{choix=>,<,=}
                                                                                
\text{rep= \a>\b ? >:<}
\text{rep= \a=\b ? =}
                                                                                
\statement{
                                                                                
<p>\a est-il plus petit ou plus grand que \b ?
<p>Cliquez sur la bonne étiquette  :
<center>
 \a &nbsp; &nbsp;&nbsp;\embed{reply 1,40x40} &nbsp;&nbsp;&nbsp;\b
 </center>
<center>\draw{600,50}
{xrange -0.06,\m + 0.2
yrange -2,2
hline black,0,0
arrow  2.5,0,\m + 0.2,0,10,black
parallel  -\m,-0.8,-\m,0.4,1/2,0, 40, blue
parallel  -\m,-0.3,-\m,0.3,1/10,0, 200, blue
parallel  -\m,-0.8,-\m,0.6,1,0, 40, red
\dessin
}
</center>}
                                                                                
\answer{}{\rep;\choix}{type=clickfill}