Subversion Repositories wimsdev

type=classify

textarea="data"

:Classificar objectes per les seves propietats en una taula.

Presentem una llista d'objectes i una llista d'atributs (propietats). Heu d'omplir

una taula segons si els objectes verifiquen les propietats o no, marcant o no en el quadre.

<p>

Per construir un exercici amb aquest model, només cal que introduïu la llista

d'atributs i una llista d'objectes on s'indiqui si verifiquen o no

les propietats en el mateix ordre que els atributs (amb un 0 o un 1)

<p>

Aquest exercici es pot transformar fàcilment per ser inclòs en un mòdul OEF

si voleu posar les dades en un fitxer auxiliar.

<p>

Autor del model: Bernadette Perrin-Riou <bpr@math.u-psud.fr>

:%%%%%%%%%%%%%%%%%      ATTENTION      %%%%%%%%%%%%%%%%%%%%

Enlevez l'en-tête ci-dessus si vous détruisez les balises pour le modèle !

(Ce sont les lignes qui commencent par un ':'.)

Sinon l'exercice risque de ne pas pouvoir repasser sous Createxo.

:%%%%%%%% Paramètres d'exemples à redéfinir %%%%%%%%%%%%%%%%%

:\title{Taula per omplir (checkbox)}

:\author{Bernadette, Perrin-Riou}

:\email{bpr@math.u-psud.fr}

:\credits{}

:Enunciat

\text{instruction= Remplir le tableau.}

:Nombre d'objectes triats a l'atzar

\integer{N=3}

:Nom del fitxer

Ompliu només si voleu utilitzar un fitxer de dades (en un mòdul OEF).

\text{file=}

del tipus

<pre>

 poils,plumes,quatre pattes,ailes

 :pie,0,1,0,1

 :boeuf,1,0,1,0

</pre>

En aquest cas, no es tindrà en compte les dades següents.

En cas contrari, ompliu les dades.

:Llista d'atributs

\text{attribut=poils,plumes,quatre pattes,ailes}

:Dades

Una línia per objecte.

\text{data=pie,0,1,0,1

boeuf,1,0,1,0

chat,1,0,1,0

moustique,0,0,0,1}

:Text o imatges per indicar una resposta bona o dolenta

Aquest text es mostra al moment de la resposta, per defecte apareixen les imatges.

\text{nonoui=}

:%%%%%%%%%%%%%% Rien à modifier avant l'énoncé %%%%%%%%%%%%%%%%

\text{size=50,50}

\integer{w=\size[1]+10}

\text{couleur=#FFFFCC}

\css{<style type="text/css">

   .question {background-color: #FFFFCC;margin: 2% 2%;padding: 1%;}

   table.tableau {border:solid 1px;

    border-collapse:collapse;margin-left:auto;margin-right:auto;}

    table.tableau td, th {background-color:#FFFFCC;text-align:left;border:solid 1px;width:55px;

    padding-left:10px;margin-left:20px;}

   ol li {list-style: upper-alpha; }

    table.tableau th { background-color:#CCCFFF;}

    table.tableau tr > th:first-child {width:100px;}

 </style>}

 \text{nonoui=\nonoui issametext ? <img src="scripts/authors/jm.evers/gifs/ok.gif" width="15"/>,<img src="scripts/authors/jm.evers/gifs/nok.gif" width="15"/>}

\if{\file notsametext}{

  \text{file=randitem(\file)}

  \text{attribut=wims(record 0 of \file)}

  \integer{datacnt=wims(recordcnt \file)}

  \integer{N=min(\N,\datacnt)}

  \text{choix=shuffle(\datacnt)}

  \text{choix=\choix[1..\N]}

  \text{data=}

  \for{s in \choix}{

    \text{data=\data

wims(record \s of \file)}

  }

  \matrix{data=\data}

  \text{data=wims(replace internal ;; by ; in \data)}

}{

  \text{objet_cnt=rows(\data)}

  \integer{N=min(\N,\objet_cnt)}

  \text{bat=shuffle(\objet_cnt)}

  \text{bat=\bat[1..\N]}

  \matrix{data=\data}

  \matrix{data=\data[\bat;]}

}

\integer{attribut_cnt=items(\attribut)}

\text{Data=}

\text{R=}

\for{u=1 to \N}{

  \for{v=2 to \attribut_cnt+1}{

    \integer{uu=(\u-1)*\attribut_cnt + \v -1}

    \text{Data=\data[\u;\v]=1? wims(append item \uu to \Data)}

  }

}

\text{C=wims(makelist x for x=1 to \N*\attribut_cnt)}

\text{C1=wims(makelist x for x=1 to \N*\attribut_cnt)}

\text{nstep=r1}

\nextstep{\nstep}

\text{col=1}

\statement{

<div class="question"> \instruction

<table class="tableau"><tr> <th></th>

\for{k=1 to \attribut_cnt}{<th colspan="\col">\attribut[\k]</th>}

</tr>

\for{j=1 to \N}{

  <tr><th>\data[\j;1]</th>

   \for{k=1 to \attribut_cnt}{

    \if{\step=1}{<td style="color:\couleur">\embed{r1,\C[(\attribut_cnt)*(\j-1)+\k]}</td>}{<td>\C[(\attribut_cnt)*(\j-1)+\k]</td>}

    }

  </tr>

}

</table>

</div>

}

\answer{}{\Data;\C1}{type=checkbox}{option=split noanalyzeprint nonstop}

\text{nstep=}

\text{C=}

\text{col=2}

\text{croix=<span style="color:black; font-size:20pt;font-style:bold;">X</span></td>}

\text{nocroix=<span style="color:black; font-size:20pt;font-style:bold;">&nbsp;&nbsp;</span></td>}

\text{croix=X}

\text{nocroix=}

\for{u=1 to \N}{

  \for{v=2 to \attribut_cnt+1}{

    \integer{uu=(\u-1)*\attribut_cnt + \v -1}

    \text{C=\uu isitemof \reply1 and \uu isitemof \Data ? wims(append item  \croix <td>\nonoui[1]  to \C)}

    \text{C=\uu isitemof \reply1 and \uu notitemof \Data ? wims(append item \croix <td>\nonoui[2]  to \C)}

    \text{C=\uu notitemof \reply1 and \uu isitemof \Data ? wims(append item \nocroix <td>\nonoui[2] to \C)}

    \text{C=\uu notitemof \reply1 and \uu notitemof \Data ? wims(append item \nocroix <td>\nonoui[1] to \C)}

  }

}

\feedback{1=1}{\nonoui[1] : bonne réponse, \nonoui[2] : mauvaise réponse

}