Subversion Repositories wimsdev

type=question first
textarea="datatrue datafalse explain"
iEdit="explain"
asis="datatrue datafalse explain"

:´øËæ»úÖû»µÄ¶àÖØÑ¡Ôñ.

¾­µäµÄ¶àÖØÑ¡ÔñÌâ, ÓÐÒ»¸öÓëÎı¾Î޹صÄÕýÈ·Ñ¡Ôñ.
µ«ÊÇչʾµÄÑ¡ÔñÏî¼°Æä´ÎÐò¶¼ÊÇËæ»ú±ä»¯µÄ.
<p class="wims_credits">Ä£¿é×÷Õß: <a href="mailto:qualite@wimsedu.info">Gang Xiao</a></p>

:%%%%%%%%%%%%%%%%%      ×¢       Òâ      %%%%%%%%%%%%%%%%%%%%

Èç¹ûÄãɾȥÁ˱¾·¶ÀýÖеıêÇ© (¼´¸úËæÔÚðºÅ ':' ºóÃæµÄÄǼ¸ÐÐ),
ÄÇôҲÇëɾȥÕâ¸öÍ·²¿, ·ñÔòÓпÉÄܻز»µ½ Createxo.

:%%%%%%%%%%%%%%%%%   ±»ÖØж¨ÒåµÄ²ÎÊýʾÀý   %%%%%%%%%%%%%%%%%%

:\title{¶àÖØÑ¡Ôñ}
:\author{XIAO Gang}
:\email{qualite@wimsedu.info}

:չʾµÄÑ¡ÔñÏî¸öÊý. ÖÁ¶à 10 ¸ö.
ÄãÓ¦¸Ã¶¨Òå×ã¹»¶àµÄÑ¡ÔñÏî,
·ñÔòÁ·Ï°Ö»ÄÜչʾÄÄЩ¿ÉÓõÄÑ¡ÔñÏî.
\integer{tot=5}

:ÿ¸öÁ·Ï°ÖÐÕýÈ·Ñ¡ÔñÏîµÄ¸öÊý. ²»Äܳ¬¹ý×ÜÊý.
\integer{givetrue=2}

:``Ç¿ÖÆÐÔµÄ''´íÎóÑ¡ÔñÏî¸öÊý.
¾ÙÀýÀ´Ëµ, Èç¹ûÉè³É 2,
ÄÇô±íÀïµÄÇ°ÃæÁ½¸ö´íÎóµÄÑ¡ÔñÏʼÖÕ³öÏÖÔÚÉú³ÉµÄÁ·Ï°ÖÐ.
<p>µ±ÄãûÓаÑÎÕʱ, ¿ÉÒÔÉè³É 0.</p>
\integer{minfalse=0}

:ÌâÒâ˵Ã÷.
$embraced_randitem
\text{explain=
ÕâÊÇÒ»¸ö¶àÖØÑ¡ÔñÌâµÄÄ£¿é.
Ñ¡ÔñÏîµÄÌôÑ¡ (Èç¹ûÓÐ×ã¹»¶à¿É¹©ÌôÑ¡µÄ»°) ÒÔ¼°´ÎÐò¶¼ÊÇËæ»úµÄ.
Ö»ÒªÐÞ¸ÄÕâ¶ÎÎÄ×Ö, ¾ÍÄܵõ½Äã×Ô¼ºµÄ¶àÖØÑ¡ÔñÌâ.
<p>
Ìô³öÕýÈ·µÄÑ¡ÔñÏî.
Èç¹ûÓм¸¸öÕýÈ·µÄÑ¡Ôñ, ¿ÉÒÔ´ÓÖÐÈÎÒâÌôÒ»¸ö.
}

:ÕýÈ·µÄÑ¡ÔñÏî, ÿһÐÐдһ¸ö.
Äã¿ÉÒԷźü¸¸ö (Ò»ÐÐÒ»¸ö).
¾ä×Ó²»ÒªÌ«³¤! Öм䲻ҪÓзֺŠ`;'.
$embraced_randitem
\matrix{datatrue=
ÕýÈ·Ñ¡ÔñÏî 1.
ÕýÈ·Ñ¡ÔñÏî 2.
ÕýÈ·Ñ¡ÔñÏî 3.
ÕýÈ·Ñ¡ÔñÏî 4.
}

:´íÎóµÄÑ¡ÔñÏî, ÿһÐÐдһ¸ö.
Äã¿ÉÒԷźü¸¸ö (Ò»ÐÐÒ»¸ö).
¾ä×Ó²»ÒªÌ«³¤! Öм䲻ҪÓзֺŠ`;'.
$embraced_randitem
\matrix{datafalse=
´íÎóÑ¡ÔñÏî 1.
´íÎóÑ¡ÔñÏî 2.
´íÎóÑ¡ÔñÏî 3.
´íÎóÑ¡ÔñÏî 4.
´íÎóÑ¡ÔñÏî 5.
´íÎóÑ¡ÔñÏî 6.
´íÎóÑ¡ÔñÏî 7.
´íÎóÑ¡ÔñÏî 8.
}

:Ñ¡Ïî: "checkbox", "split".
Èç¹ûÓм¸¸öÕýÈ·µÄÑ¡ÔñÏî, ¶øÇÒÒªÇóѧÉúÈ«²¿Ñ¡ÖÐ (¶ø²»ÊÇֻҪѡһ¸öÕýÈ·µÄ),
¿ÉʹÓÃÑ¡Ïî "checkbox". ÔÚÕâÖÖÇéÐÎ, Èç¹ûѧÉúֻѡȡÁËÆäÖÐÒ»²¿·ÖÕýÈ·´ð°¸
Ò²Äܸø·ÖµÄ»°, ÇëÔÙ¼ÓÉÏÑ¡Ïî "split".
\text{option=}

:%%%%%%%%%%%%%%       ²»Òª¸Ä¶¯ÏÂÃæÕâ¶ÎÃüÁî          %%%%%%%%%%%%%%%%

\text{datatrue=wims(nonempty rows \datatrue)}
\text{datafalse=wims(nonempty rows \datafalse)}
\integer{truecnt=rows(\datatrue)}
\integer{falsecnt=rows(\datafalse)}
\integer{givetrue=\givetrue<1?1}
\integer{givetrue=\givetrue>\truecnt?\truecnt}
\integer{tot=\tot > \falsecnt+\givetrue?\falsecnt+\givetrue}
\integer{givetrue=\givetrue>\tot-1?\tot-1}
\integer{minfalse=\minfalse>\tot-\givetrue?\tot-\givetrue}
\text{tsh=shuffle(\truecnt)}
\text{true=row(\tsh,\datatrue)}
\if{\minfalse>0}{
 \text{false1=row(1..\minfalse,\datafalse);}
 \text{false2=row(\minfalse+1..\falsecnt,\datafalse)}
}{
 \integer{minfalse=0}
 \text{false1=}
 \text{false2=\datafalse}
}
\text{fsh=shuffle(\falsecnt)}
\text{false2=row(\fsh,\false2)}
\text{pick=row(1..\givetrue,\true);\false1 row(1..\tot-\givetrue-\minfalse,\false2)}
\text{ind=wims(makelist 1 for x=1 to \givetrue),wims(makelist 0 for x=1 to \tot-\givetrue)}

\text{sh=shuffle(\tot)}
\text{ind=item(\sh,\ind)}
\text{pick=row(\sh,\pick)}
\text{pick=wims(embraced randitem \pick)}
\text{explain=wims(embraced randitem \explain)}
\text{ans=positionof(1,\ind)}
\text{list=item(1..\tot,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)}
\text{anstype=checkbox iswordof \option?checkbox:radio}

:%%%%%%%%%%%%% ÏÖÔÚ¿ÉÒÔÓà html ¸ñʽÌîÈëÎÊÌâµÄ³ÂÊö  %%%%%%%%%%%%%%%%%%%%%%%%%

::Ò»°ãÇé¿öÏÂûÓбØÒª¸Ä¶¯Ëü

\statement{
  <div class="oef_explain">\explain</div>
  \for{i=1 to \tot}
  {<div class="oefreply">\embed{reply 1,\i, \list[\i]&nbsp;: \pick[\i;]}</div>}
}

:%%%%%%%%%%%%%      ²»Òª¸Ä¶¯ÒÔϵÄÃüÁî        %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\answer{The reply}{\ans;\list}{type=\anstype}{option=\option}