Rev 13749 | Blame | Compare with Previous | Last modification | View Log | RSS feed
type=question datalist
textarea="datatrue datafalse explain"
iEdit="explain"
asis="explain"
:ÔÚ±íÖÐÑ¡ÔñÕýÈ·µÄ¾ä×Ó
¸ø³öһЩ¾ä×Ó, ÐèÒªÅжÏÄÄЩÊÇÕýÈ·µÄ.
ÿ´Î³öÏÖµÄÕýÈ·¾ä×Ó¸öÊý²»±ØÏàͬ.
<p>
¾ä×ÓÔ½¶à, Ëæ»úÐԺͿÉÖظ´ÐÔÔ½ºÃ.
µ±È»ÄãÒ²¿ÉÒÔÑ¡µÃÇ¡µ½ºÃ´¦.
Èçͬһ¸öÓкü¸¸öÕýÈ·´ð°¸µÄ¶àÖØÑ¡ÔñÌâ.</p>
<p class="wims_credits">Ä£¿é×÷Õß: <a href="mailto:qualite@wimsedu.info">Gang Xiao</a></p>
:%%%%%%%%%%%%%%%%% ×¢ Òâ %%%%%%%%%%%%%%%%%%%%
Èç¹ûÄãɾȥÁ˱¾·¶ÀýÖеıêÇ© (¼´¸úËæÔÚðºÅ ':' ºóÃæµÄÄǼ¸ÐÐ),
ÄÇôҲÇëɾȥÕâ¸öÍ·²¿, ·ñÔòÓпÉÄܻز»µ½ Createxo.
:%%%%%%%%%%%%%%%%% ±»ÖØж¨ÒåµÄ²ÎÊýʾÀý %%%%%%%%%%%%%%%%%%
:\title{¶à¸öÊÇ·ÇÌâ}
:\author{XIAO Gang}
:\email{qualite@wimsedu.info}
:³öÏֵľä×ÓÊý
\integer{tot=4}
:ÿ¸öÁ·Ï°ÖÐÕýÈ·¾ä×ÓµÄ×îС¸öÊý. ÖÁÉÙÊÇ 1
\integer{mintrue=1}
:ÿ¸öÁ·Ï°ÖдíÎó¾ä×ÓµÄ×îС¸öÊý. ÖÁÉÙÊÇ 1
\integer{minfalse=1}
:ÕýÈ·µÄ¾ä×Ó. Ò»ÐÐÒ»¾ä, ²»ÄÜÓзֺŠ';'
±ÜÃâÌ«³¤µÄ¾ä×Ó !
$embraced_randitem
\matrix{datatrue=
µçѹ¹Ì¶¨Ê±, ͨ¹ýµç×èÆ÷µÄµçÁ÷ÓëËüµÄµç×è³É·´±È.
µçÁ÷¹Ì¶¨Ê±, µç×èÆ÷µÄµçѹÓëËüµÄµç×è³ÉÕý±È.
ͨ¹ýµç×èÆ÷µÄµçÁ÷ÓëÆäÁ½¶ËµÄµçѹ³ÉÕý±È.
µç×èÆ÷ÉÏÏûºÄµÄµçÄÜÓëÆäÁ½¶ËµÄµçѹƽ·½³ÉÕý±È.
µç×èÆ÷ÉÏÏûºÄµÄµçÄÜÓëͨ¹ýµçÁ÷µÄƽ·½³ÉÕý±È.
µ±½»Á÷µçѹ¹Ì¶¨Ê±, ͨ¹ýµçÈÝÆ÷µÄµçÁ÷ÓëËüµÄµçÈݳÉÕý±È.
µçÁ÷Ïàͬʱ, ¼ÓÓÚµçÈÝÆ÷ÉϵĽ»Á÷µçѹÓëµçÈݳɷ´±È.
µ±½»Á÷µçѹ¹Ì¶¨Ê±, ͨ¹ýÏßȦµÄµçÁ÷ÓëËüµÄµç¸Ð³É·´±È.
µçÁ÷Ïàͬʱ, ¼ÓÓÚÏßȦÉϵĽ»Á÷µçѹÓëµç¸Ð³ÉÕý±È.
µçÈÝÆ÷²»ÏûºÄµçÄÜ.
ÏßȦ²»ÏûºÄµçÄÜ.
}
:´íÎóµÄ¾ä×Ó. Ò»ÐÐÒ»¾ä, ²»ÄÜÓзֺŠ';'
±ÜÃâÌ«³¤µÄ¾ä×Ó !
$embraced_randitem
\matrix{datafalse=
µçѹ¹Ì¶¨Ê±, ͨ¹ýµç×èÆ÷µÄµçÁ÷ÓëËüµÄµç×è³ÉÕý±È.
µçÁ÷¹Ì¶¨Ê±, µç×èÆ÷µÄµçѹÓëËüµÄµç×è³É·´±È.
µçÁ÷¹Ì¶¨Ê±, µç×èÆ÷µÄµçѹÓëËüµÄµç×èÎÞ¹Ø.
µçѹ¹Ì¶¨Ê±, ͨ¹ýµç×èÆ÷µÄµçÁ÷ÓëËüµÄµç×èÎÞ¹Ø.
ͨ¹ý¶þ¼«¹ÜµÄµçÁ÷ÓëËù¼Óµçѹ³ÉÕý±È.
µç×èÆ÷ÉÏÏûºÄµÄÄÜÁ¿ÓëÆäÁ½¶ËµÄµçѹ³ÉÕý±È.
µç×èÆ÷ÉÏÏûºÄµÄÄÜÁ¿Óëͨ¹ýµÄµçÁ÷³ÉÕý±È.
µ±½»Á÷µçѹ¹Ì¶¨Ê±, ͨ¹ýµçÈÝÆ÷µÄµçÁ÷ÓëËüµÄµçÈݳɷ´±È.
µçÁ÷Ïàͬʱ, ¼ÓÓÚµçÈÝÆ÷ÉϵĽ»Á÷µçѹÓëµçÈݳÉÕý±È.
µ±Ö±Á÷µçѹ¹Ì¶¨Ê±, ͨ¹ýµçÈÝÆ÷µÄµçÁ÷ÓëËüµÄµçÈݳÉÕý±È.
µ±µçÁ÷¹Ì¶¨Ê±, ¼ÓÓÚµçÈÝÆ÷µÄÖ±Á÷µçѹÓëËüµÄµçÈݳɷ´±È.
µ±µçÁ÷¹Ì¶¨Ê±, ¼ÓÓÚµçÈÝÆ÷µÄ½»Á÷µçѹÓëËüµÄµçÈÝÎÞ¹Ø.
µ±½»Á÷µçѹ¹Ì¶¨Ê±, ͨ¹ýÏßȦµÄµçÁ÷ÓëËüµÄµç¸Ð³ÉÕý±È.
µçÁ÷Ïàͬʱ, ¼ÓÓÚÏßȦÉϵĽ»Á÷µçѹÓëµç¸Ð³É·´±È.
µçÈÝÆ÷ÉÏÏûºÄµÄÄÜÁ¿ÓëÆäÉϵÄ{µçѹ,µçѹƽ·½}³ÉÕý±È.
µçÈÝÆ÷ÉÏÏûºÄµÄÄÜÁ¿Óëͨ¹ýµÄ{µçÁ÷,µçÁ÷ƽ·½}³ÉÕý±È.
ÀíÏëÏßȦÉÏÏûºÄµÄÄÜÁ¿ÓëÆäÉϵÄ{µçѹ,µçѹƽ·½}³ÉÕý±È.
ÀíÏëÏßȦÉÏÏûºÄµÄÄÜÁ¿Óëͨ¹ýµÄ{µçÁ÷,µçÁ÷ƽ·½}³ÉÕý±È.
}
:Ñ¡Ïî
Èç¹ûÏëʹ²¿·ÖÕýÈ·µÄ»Ø´ðÒ²Äܵ÷Ö, ¿ÉÒÔ¼ÓÉÏÑ¡Ïî "split".
\text{option=split}
:Instructions
$embraced_randitem
\text{explain=asis(ÏÂÁÐÅжÏÖÐÄÄЩÊÇÕýÈ·µÄ ? °ÑËüÃDZê¼Ç³öÀ´.)}
:%%%%%%%%%%%%%% ²»Òª¸Ä¶¯ÏÂÃæÕâ¶ÎÃüÁî %%%%%%%%%%%%%%%%
\text{datatrue=wims(nonempty rows \datatrue)}
\text{datafalse=wims(nonempty rows \datafalse)}
\integer{truecnt=rows(\datatrue)}
\integer{falsecnt=rows(\datafalse)}
\integer{tot=\tot > min(\truecnt,\falsecnt)?min(\truecnt,\falsecnt)}
\integer{mintrue=\mintrue<1?1}
\integer{minfalse=\minfalse<1?1}
\integer{mintrue=\mintrue>\tot-1?\tot-1}
\integer{minfalse=\minfalse>\tot-1?\tot-1}
\integer{tot<\mintrue+\minfalse?\mintrue+\minfalse}
\text{tsh=shuffle(\truecnt)}
\text{fsh=shuffle(\falsecnt)}
\text{true=row(\tsh,\datatrue)}
\text{false=row(\fsh,\datafalse)}
\integer{truepick=randint(\mintrue..\tot-\minfalse)}
\text{pick=row(1..\truepick,\true);row(1..\tot-\truepick,\false)}
\text{ind=wims(makelist 1 for x=1 to \truepick),wims(makelist 0 for x=1 to \tot-\truepick)}
\text{sh=shuffle(\tot)}
\text{ind=item(\sh,\ind)}
\text{pick=row(\sh,\pick)}
\text{pick=wims(embraced randitem \pick)}
\text{ans=positionof(1,\ind)}
\text{list=wims(values x for x=1 to \tot)}
\text{explain=wims(embraced randitem \explain)}
:%%%%%%%%%%%%% ÏÖÔÚ¿ÉÒÔÓà html ¸ñʽÌîÈëÎÊÌâµÄ³ÂÊö %%%%%%%%%%%%%%%%%%%%%%%%%
::Ò»°ãÇé¿öÏÂûÓбØÒª¸Ä¶¯Ëü
\statement{\explain
<table class="wimsnoborder wimscenter">
\for{i=1 to \tot}{
<tr><td nowrap>\embed{reply 1,\i}.</td>
<td>\pick[\i;]</td></tr>
}
</table>
}
:%%%%%%%%%%%%% ²»Òª¸Ä¶¯ÒÔϵÄÃüÁî %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\answer{The reply}{\ans;\list}{type=checkbox}{option=\option}