%% This file is generated by preprocessor!
%% Do not edit it by hand.
%% Edit the source file cpp/eqconst.cpp.

\language{fr}
\author{Gang XIAO}
\email{xiao@unice.fr}
\computeanswer{no}
\format{html}
\precision{10000}
\title{Egaligé constituée 10}
\integer{cnt=10}
\text{mulist=1,2,3,4,5,6,8,10}
\integer{mucnt=items(\mulist)}
\text{data=1/2,3/2,5/2,1/3,2/3,4/3,5/3,
1/4,3/4,5/4,1/5,2/5,3/5,4/5,6/5,1/6,5/6}
\text{all=}
\for{f in \data}{
 \text{ff=wims(translate / to , in \f)}
 \text{nums=wims(values \ff[1]*x for x in \mulist)}
 \text{dens=wims(values \ff[2]*x for x in \mulist)}
 \text{this=}
 \for{F=1 to \mucnt}{
  \text{this=wims(append item \nums[\F]/\dens[\F] to \this)}
 }
 \matrix{all=\all
shuffle(\this)}
}
\text{data=randomrow(\all)}
\text{f1=wims(translate internal / to , in \data[1])}
\text{f2=wims(translate internal / to , in \data[2])}
\text{all=wims(translate internal / to , in \all)}
\text{all=wims(lines2items wims(rows2lines \all))}
\text{all=wims(listuniq \all)}
\text{all=wims(listcomplement \f1,\f2 in \all)}
\text{hr=<HR noshade size=2>}
\text{big1=<font size=+2>}
\text{big2=</font>}
\if{\cnt>4}{
 \text{all=,item(1..\cnt-4,shuffle(\all))}
 \text{all=wims(replace internal , by \big2,\big1 in \big1\all\big2)}
}{
 \text{all=}
}
\text{size=50x40x1}
\statement{Constituez deux fractions égales à partir des nombres donnés en
bas.
<p><center><table border=0>
<tr>
<td align=center>\embed{reply 1,\size}</td>
<td align=center rowspan=3>\big1&nbsp;&nbsp;=&nbsp;&nbsp;\big2</td>
<td align=center>\embed{reply 3,\size}</td>
</tr><tr>
<td align=center width=\fw>\hr</td>
<td align=center width=\fw>\hr</td>
</tr><tr>
<td align=center>\embed{reply 2,\size}</td>
<td align=center>\embed{reply 4,\size}</td>
</tr></table></center>
}
\answer{Numérateur 1}{\r1;\big1\f1[1]\big2 \all}{type=dragfill}
\answer{Dénominateur 1}{\r2;\big1\f1[2]\big2}{type=dragfill}
\answer{Numérateur 2}{\r3;\big1\f2[1]\big2}{type=dragfill}
\answer{Dénominateur 2}{\r4;\big1\f2[2]\big2}{type=dragfill}
\text{rr=wims(replace internal \big1 by in \r1,\r2,\r3,\r4)}
\text{rr=wims(replace internal \big2 by in \rr)}
\integer{text=\rr[1]*\rr[4]-\rr[2]*\rr[3]}
\condition{\(\rr[1]/(\rr[2]) = \rr[3]/(\rr[4]))}
{? notin \rr and \rr[1]*\rr[2]*\rr[3]*\rr[4]>0 and \text issametext 0}
