Simplification des fractions

Simplifier une fraction

\title{Simplification des fractions}
\range{-5..5}
\author{Odile Bénassy}
\email{obenassy@free.fr}
\license{GNU GPL}
\computeanswer{no}
\format{html}
\precision{10000}
 
\integer{a1=random(1,2,3,4,5,6,7,11,13,17,19,23)}
\integer{a2=random(1,2,3,5,6,7,11)}
\integer{a3=random(1,2,3,5)}
\integer{a4=random(1,2,3)}
\integer{a=\a1*\a2*\a3*\a4}
\text{afactors=pari(factor(\a))}
 
\integer{b1=random(1,2,3,4,5,6,7,11,13,17,19,23)}
\integer{b2=random(1,2,3,5,6,7,11)}
\integer{b3=random(1,2,3,5)}
\integer{b4=random(1,2,3,5)}
\integer{b=\b1*\b2*\b3*\b4}
\text{bfactors=pari(factor(\b))}
 
\text{sont=sont, ne sont pas}
\text{good=item(\divisiblepar, \sont)}
 
\integer{gcd=pari(gcd(\a,\b))}
\text{commondiv=pari(divisors(\gcd))}
\integer{n = items(\commondiv)}
\integer{res1=\a/\gcd}
\integer{res2=\b/\gcd}
\integer{gcd2=pari(gcd(\reply1,\reply2))}
  
\statement{
 
<br>Simplifier l'écriture fractionnaire suivante :
 
<table>
<tr><td>\a</td><td></td><td>\embed{reply 1,2}</td></tr>
<tr><td>----</td><td>=</td><td>-----</td></tr>
<tr><td>\b</td><td></td><td>\embed{reply 2,2}</td></tr>
</table>
 
}
 
\answer{}{\res1}{type=numeric}
\answer{}{\res2}{type=numeric}
 
\hint{Commencer par essayer de diviser le numérateur et le dénominateur par 2
autant de fois que c'est possible.
<br>Recommencer ensuite avec 3, 5, 7, 11, 13... }
                                                                              
\feedback{\reply1 > \a and pari(floor(\reply1))=\reply1 and \reply1 * \b = \reply2 * \a}{Vous pouvez encore diviser numérateur et dénominateur par au moins
un autre nombre entier !}