!set titb=QCM à questions successives ne s'arrêtant pas
!set keyw=
!set datm=20060629
!set prev=
!set next=
!set upbl=main
!set dat1=19000101
!set dat2=24000101

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

!exit

:content

!read primitives.phtml 1, embed, definition, &nbsp; 

Voici un QCM où les réponses sont analysées à la fin de toutes les questions. 
Le nombre de questions peut être variable (<tt class="cc">N</tt>), 
seules les conditions utiles servent.  Le fichier de données correspondant est le même que pour les deux types de QCM précédents
<pre class="cc">
<div class="variable">
$m_title{QCM &#58; question une par une}
$m_text{N = <font color="green">3</font>}
$m_text{data = <font color="green">data1</font>}
$m_integer{cnt_question = $m_wims($m_recordcnt $m_data) }
$m_text{bat = $m_shuffle($m_cnt_question)}
$m_matrix{question = }
$m_matrix{rep = }
$m_text{CNT_choix = }
$m_matrix{CHOIX = }
<tt class="comm">\for</tt>{i = 1 <tt class="w">to</tt> \N  }{
  $m_matrix{QUEST = $m_wims($m_record \bat[\i] of $m_data)}
  $m_matrix{question = \question
  \QUEST[1;]}
  $m_integer{cnt_choix = $m_rows(\QUEST)-2}
  $m_text{CNT_choix = \CNT_choix,\cnt_choix}
   $m_text{Choix = }
   $m_text{mix = $m_shuffle(\cnt_choix)}
   <tt class="comm">\for</tt>{ j = 3 <tt class="w">to</tt> \cnt_choix + 2}{
     $m_text{choix = \QUEST[\j;]}
     $m_matrix{Choix = \Choix, \choix[1;]}
   }
   $m_text{Choix = $m_wims($m_nonempty <tt class="w">items</tt> \Choix)}
   $m_text{Choix = \Choix[\mix]}
   $m_matrix{CHOIX = \CHOIX
     \Choix}
   $m_text{H = $m_wims($m_nospace \QUEST[2;])}
   $m_text{pos = }
   <tt class="comm">\for</tt>{r <tt class="w">in</tt> \H}{ $m_text{pos = \pos,$m_position(\r,\mix)} }
   $m_text{pos = $m_wims($m_nonempty <tt class="w">items</tt> \pos)}
   $m_matrix{rep = \rep
   \pos}
}
<p>
$m_text{CNT_choix = $m_wims($m_nonempty <tt class="w">items</tt> \CNT_choix)}
<p>
$m_text{STEP = $m_wims($m_makelist r x <tt class="w">for</tt> x = 1 <tt class="w">to</tt> \N)}
$m_text{STEP = $m_wims($m_replace $m_internal , $m_by ; in \STEP)}
$m_text{CONDITION = $m_wims($m_makelist x <tt class="w">for</tt> x = 1 <tt class="w">to</tt> \cnt_question)}
$m_steps{\STEP}
$m_conditions{\CONDITION}
</div>
</pre>
<div class="aide">Ici <tt class="c">STEP</tt> est de la forme
<tt class="c"><tt class="reply">r1</tt>;<tt class="reply">r2</tt>;<tt class="reply">r3</tt></tt>, à chaque étape, il y a une question 
supplémentaire. La réponse est analysée grâce aux conditions 
(il y en a une par question)
</div>
<pre class="cc">
<div class="statement">
$m_statement{
 <tt class="comm">\for</tt>{h = 1 <tt class="w">to</tt> \step}{
  &lt;p>
  \question[\h;]
  <tt class="comm">\if</tt>{\h &lt; \step}{
    &lt;font color=green>\CHOIX[\h;\rep[\h;]]&lt;/font>
 &lt;/p>}
  {&lt;/p>&lt;ol>
   <tt class="comm">\for</tt>{s = 1 <tt class="w">to</tt> \CNT_choix[\h]}{
   &lt;li><tt class="comm">\embed</tt>{reply \h , \s }&lt;/li>
   }
   &lt;/ul>&lt;/li>
 }
&lt;/ol>
 }
}
</div>
<div class="variable">
$m_answer{}{\REP1;\CHOIX[1;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\REP2;\CHOIX[2;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\REP3;\CHOIX[3;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\REP4;\CHOIX[4;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\REP5;\CHOIX[5;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\REP6;\CHOIX[6;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\REP7;\CHOIX[7;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\REP8;\CHOIX[8;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\REP9;\CHOIX[9;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\REP10;\CHOIX[10;]}{<tt class="type">type=radio</tt>}
<p>
$m_condition{Question 1 &#58; \REP1}{\REP1 $m_issametext \CHOIX[1;\rep[1;]]}
$m_condition{Question 2 &#58; \REP2}{\REP2 $m_issametext \CHOIX[2;\rep[2;]]}
$m_condition{Question 3 &#58; \REP3}{\REP3 $m_issametext \CHOIX[3;\rep[3;]]}
$m_condition{Question 4 &#58; \REP4}{\REP4 $m_issametext \CHOIX[4;\rep[4;]]}
$m_condition{Question 5 &#58; \REP5}{\REP5 $m_issametext \CHOIX[5;\rep[5;]]}
$m_condition{Question 6 &#58; \REP6}{\REP6 $m_issametext \CHOIX[6;\rep[6;]]}
$m_condition{Question 7 &#58; \REP7}{\REP7 $m_issametext \CHOIX[7;\rep[7;]]}
$m_condition{Question 8 &#58; \REP8}{\REP8 $m_issametext \CHOIX[8;\rep[8;]]}
$m_condition{Question 9 &#58; \REP9}{\REP9 $m_issametext \CHOIX[9;\rep[9;]]}
$m_condition{Question 10 &#58; \REP10}{\REP10 $m_issametext \CHOIX[10;\rep[10;]]}
<p>
</div>
</pre>
