1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
!read primitives.phtml 1, embed, definition,
Dans le QCM suivant, les questions sont donnes une par une,
les rponses aux questions prcdentes s'affichent
mais le QCM s'arrte la premire faute.
!read primitives.phtml 2, link, fichierqcm2
<p>
<pre class = "cc">
<div class = "variable">
$m_title{QCM : 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 \data)}
$m_text{bat = $m_shuffle(\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_text{STEP = $m_wims($m_replace $m_internal , $m_by ; <tt class="w">in</tt> \STEP)}
$m_steps{\STEP}
</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
supplmentaire.
</div>
<pre class = "cc">
<div class = "statement">
$m_statement{Read the text above
then answer the questions.
<tt class="comm">\for</tt>{h = 1 <tt class="w">to</tt> \step}{
<p>
\question[\h;]
<tt class="comm">\if</tt>{\h < \step}{
<font color = green>\CHOIX[\h;\rep[\h;]]</font>
</p>}
{</p><ol>
<tt class="comm">\for</tt>{s = 1 <tt class="w">to</tt> \CNT_choix[\h]}{
<li><tt class="comm">\embed</tt>{reply \h , \s }</li>
}
</ol></li>
}
}
}
</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>}
</div>
</pre>
|
