!set titb=Insertion d'un formulaire
!set keyw=
!set datm=20110321
!set prev=vieux
!set next=solution
!set upbl=main
!set dat1=19000101
!set dat2=24000101

!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif

!exit

:content
Le code suivant permet l'insertion de formulaires.
<pre class = "ccc">
  \form{.}{ancre}{
    Entrez votre expression &#58; 
    &lt;input size="30" name="parm1" value="\parm1">
    &lt;input type="submit" value = "OK">
    }
  \def{real N = \parm1}
    L'expression vaut \N.
</pre>
<div class = "aide">
Exemple avec Une idée pour mettre des valeurs par défaut en entrée si le lecteur 
est trop paresseux &#58; soit on clique sur l'étoile soit on rentre ses valeurs.
</div>
<p>

!set tmp0=!randint 2, 9

!set m_n=$(tmp0)



!set tmp0=!randint 2, 5

!set m_m=$(tmp0)


<a name="ancre"></a>
Choix aléatoire de deux entiers n et m 

!read primitives.phtml 1, reload, <img src = "gifs/doc/etoile.gif" alt = "rechargez"	  width = "20" height = "20">, ancre2 

<p>
ou 
!read primitives.phtml 2, form, ., ancre, choisissez n inférieur à 9 <input size = "6" name = "parm1"	value = "\parm1">	<br>	 et choisissez m inférieur à 5 <input size = "6" name = "parm2"	value = "\parm2">	  <input type = "submit" value = "OK"> 


!set m_n1=$[rint($m_parm1)]


!set m_m2=$[rint($m_parm2)]


!ifval $m_n1 notitemof 1,2,3,4,5,6,7,8,9  
!set m_n=$[rint( $m_n )]
!else
!set m_n=$[rint(min($m_n1,9))]
!endif


!ifval $m_m2 notwordof 1 2 3 4 5  
!set m_m=$[rint( $m_m )]
!else
!set m_m=$[rint(min($m_m2,5))]
!endif

Voici n = $m_n et m = $m_m.
<p>
<pre class = "ccc">
\def{text n = randint(2..9)}
\def{text m = randint(2..5)}
&#60;a name="ancre">&#60;/a&gt;
Choix aléatoire de deux entiers n et m 
\reload{&lt;img src = "gifs/doc/etoile.gif" alt = "rechargez"
           width = "20" height = "20"&gt;}{ancre}
<p>
ou 
\form{.}{ancre}{
  choisissez n inférieur à 9 
      &#60;input size = "6" name = "parm1" value = "\parm1"&gt;
&#60;br&gt;
 et choisissez m inférieur à 5 
      &#60;input size = "6" name = "parm2" value = "\parm2"&gt;
      &#60;input type = "submit" value = "OK"&gt;
}
<p>
\def{integer n1 = \parm1}
\def{integer m2 = \parm2}
\def{integer n = \n1 notitemof 1,2,3,4,5,6,7,8,9 ? $m_n &#58;min(\n1,9)}
\def{integer m = \m2 notwordof 1 2 3 4 5 ? \m &#58;min(\m2,5)}
<p>
Voici n = \n et m = \m.
</pre>
