!set titb=Source QCM 1
!set keyw=
!set datm=20050429
!set prev=
!set next=
!set upbl=qcm
!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; 

<pre class="fichier">
<div class="variable">
$m_title{QCM sans feedback (toutes les questions en même temps)}
<tt class="d">nombre de questions</tt>
$m_text{N = 3}
<p>
<tt class="d">Nom du fichier appelé</tt>
$m_text{data = data1}
<p>
$m_integer{cnt_question = $m_wims($m_recordcnt \data)}
$m_text{bat = $m_shuffle($m_cnt_question)}
<p>
$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 \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_steps{\STEP}
</div>
<div class="statement">
$m_statement{
Répondre aux questions
&lt;ol>
 <tt class="comm">\for</tt>{h = 1 <tt class="w">to</tt> \N}{
   &lt;li>\question[\h;]
     &lt;ul>
     <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{}{\rep[1;];\CHOIX[1;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\rep[2;];\CHOIX[2;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\rep[3;];\CHOIX[3;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\rep[4;];\CHOIX[4;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\rep[5;];\CHOIX[5;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\rep[6;];\CHOIX[6;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\rep[7;];\CHOIX[7;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\rep[8;];\CHOIX[8;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\rep[9;];\CHOIX[9;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\rep[10;];\CHOIX[10;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\rep[11;];\CHOIX[11;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\rep[12;];\CHOIX[12;]}{<tt class="type">type=radio</tt>}
$m_answer{}{\rep[13;];\CHOIX[13;]}{<tt class="type">type=radio</tt>}
</div>
</pre>

