Subversion Repositories wimsdev

type=select

textarea="data instruction instruction2"

iEdit="instruction instruction2"

:Seleccionar una paraula i, tot seguit, proporcionar informació sobre aquesta paraula.

En el primer pas, es demana marcar paraules; en el segon pas,

es fa una pregunta sobre aquestes paraules (text per respondre).

<div class="small">

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. Per això,

simplement ompliu el camp \text{file=} posant el nom del fitxer

(una vegada que l'exercici s'ha transferit a un mòdul OEF d'un compte de Modtool).

Existeix un exercici més complet del mateix tipus a Quicktool.

</div>

<p class="wims_credits">

  Autor del model: <a href="mailto:bernadette.m.riou@orange.fr">Bernadette Perrin-Riou</a>

</p>

:%%%%%%%%%%%%%%%%%      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{Preguntes sobre paraules seleccionades primer}

:\author{Bernadette, Perrin-Riou}

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

:\credits{}

:Enunciat per a la primera pregunta

\text{instruction= Marquer les verbes conjugués.}

:Enunciat per a la segona pregunta

\text{instruction2=Quels sont leurs infinitifs ?}

:Anàlisi de les respostes a la segona pregunta

Les possibilitats són <span class="tt">case</span>, <span class="tt">nocase</span> (no té en compte la diferència entre majúscules/minúscules ni els accents).

Si no es posa res, no es fa una segona pregunta.

\text{format=case}

:Nombre de línies de dades

\text{M=3}

:Mida dels camps de resposta de la segona pregunta

\text{size=15}

:Dades

Un text per línia. Posem entre dobles signes d'interrogació la paraula a marcar

seguida del text per respondre la segona pregunta, separada pel símbol

<span class="tt wims_code_words">|</span>.

$embraced_randitem

\text{data= Le chat ??mange|manger?? la souris.

Vous ??{avez bu,buvez}|boire?? du {thé,café}.

Nous ??tournons|tourner?? les pages du livre une à une.

Les randonneurs ??{feront,font}|faire?? un feu.

Il ??{a déménagé,déménage}|déménager?? pendant les vacances.

Les navires ??{ont quitté,quittent}|quitter?? le port aujourd'hui.

Mon chien ??remue|remuer?? {la queue,les oreilles}.

Tu ??{prépareras,as préparé,prépares}|préparer?? un cadeau pour tes {parents,grands-parents}.

Je ??suis arrivé|arriver?? {en retard,en avance} à mon rendez-vous.

{Christian,Paul} et moi ??regardons|regarder?? un film d'aventure.

}

:S'accepta text aleatori posat entre claus

$embraced_randitem

\text{accolade=item(1,1 sí,

2 no)}

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

\text{accolade=wims(word 1 of \accolade)}

\text{file=}

\text{partialscore=split}

\text{first_step=1}

\text{alea=yes}

\css{<style>

  .reponse {border-left-color: var(--wims_ref_color)}

  .verbe{color:blue;font-size:large;}

</style>}

\text{paste=yes}

\text{pos_rep=outside}

\text{second_step=\format notsametext ? yes:no}

#####################

\text{format0=mark}

\if{\file notsametext}{

  \text{file0=randitem(\file)}

  \integer{cnt_question= wims(recordcnt \file0)}

  \text{battage=\alea issametext yes ? shuffle(\cnt_question):

wims(makelist x for x = 1 to \cnt_question)}

  \text{texte=wims(record \battage[1] of \file0)}

}{

  \integer{cnt_question=rows(\data)}

  \integer{N=min(\cnt_question,\M)}

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

  \text{liste=shuffle(\cnt_question)}

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

  \matrix{data=\data}

  \text{texte=\data[\liste;]}

  \text{texte=wims(replace internal ; by  <br> in \texte)}

}

\text{autocompletion=\format iswordof case ? autocomplete="off"}

\integer{first_step=\first_step notwordof 0 ? 1}

\text{option_reaccent=\reaccent!=yes ? noreaccent:}

\text{nopaste=\paste issametext no ? slib(utilities/nopaste )}

\text{size=\format iswordof dragfill clickfill ? \size x 1}

\text{texte=wims(\texte)}

\text{texte=\accolade=1 ?wims(embraced randitem \texte)}

\text{texte=wims(replace internal ??| by ?? | in \texte)}

\text{texte=wims(replace internal ?? | by ?? | in \texte)}

\text{texte = wims(replace internal <br> by <br> _newline_  in \texte)}

\matrix{texte=slib(text/markgroup \texte)}

\matrix{numero=\texte[1..-4;]}

\text{traduction=\texte[-2;]}

\text{traduction=wims(replace internal || by | in \traduction)}

\text{cnt_mot = rows(\numero)}

\text{Numero = wims(rows2lines \numero)}

\text{Numero = wims(lines2items \Numero)}

\text{prem_numero=wims(column 1 of \numero)}

\text{texte = \texte[-3;]}

\text{texte = wims(replace internal _newline_ by  in \texte)}

\text{cnt = items(\texte)}

\text{Texte=wims(items2words \texte)}

\text{rep_compose = }

\for{ i = 1 to \cnt_mot}{

  \text{nom_compose= \texte[\numero[\i;]]}

  \text{nom_compose =wims(items2words \nom_compose)}

  \text{rep_compose = \rep_compose,\nom_compose}

}

\text{rep_compose= wims(nonempty items \rep_compose)}

\text{STEP = wims(makelist r x for x = 2 to \cnt_mot+1)}

\text{labels = wims(makelist x for x = 2 to \cnt_mot+1)}

\text{position=}

\integer{a=0}

\for{t = 1 to \cnt}{

  \if{\t isitemof \prem_numero}{

    \integer{a =\a+1}

    \text{position=\position,\a}

  }{

    \text{position=\position,0}

  }

 }

\text{position=wims(nonempty items \position)}

\text{STEP1=\first_step=1?r1}

\text{STEP1=\second_step issametext yes ? \STEP1

\STEP

}

\steps{\STEP1}

\integer{reste=\cnt%\coupure}

\integer{quo=(\cnt-\reste)/\coupure}

\integer{quo=\reste=0? \quo-1}

\text{nombre=wims(makelist x for x = 1 to \cnt)}

%%%%%%%%%%%

\statement{

  \nopaste <div class="instruction">\instruction</div>

  \preliminaire

  \if{\reading notsametext }{\special{help reading,[à lire]}}

  \if{\image notsametext }{\special{help image,[à regarder]}}

  \audio\video

  \if{\step=\first_step}{

    <div class="wims_question">

      \if{\format iswordof flashcard}{

        <p> \for{h=1 to \cnt}{\texte[\h] }</p>}

      \for{h=1 to \cnt}{

        \embed{reply 1,\h}

      }

    </div>

  }

  \if{\step >=1+\first_step}{

    \if{\pos_rep=outside}{

      <div class="wims_question reponse">

        \for{s = 1 to \cnt}{

          \if{\s notitemof \Numero}{

            \texte[\s]

          }{

            \if{\s isitemof \Numero}{

              <span class="verbe">\texte[\s]</span>

            }

          }

        }

      </div>

      <p>\instruction2</p>

      <div class="wims_question">

          \for{s= 1 to \cnt_mot}{

            <div class="field">

              <label for="reply\labels[\s]">\rep_compose[\s] :</label>

              \embed{\STEP[\s],\size

                \autocompletion}

            </div>

          }

      </div>

    }

    \if{\pos_rep=inside}{

      <p>\instruction2</p>

      <div class="wims_question">

        \for{s = 1 to \cnt}{

          \if{\s notitemof \Numero}{

            \texte[\s]

          }{

            \if{\s isitemof \prem_numero}{

              \embed{\STEP[\position[\s]], \size

                \autocompletion}

            }

            <span class="smaller" style="color:blue;">\texte[\s]</span>

          }

        }

      </div>

    }

    \if{\pos_rep=under}{

      <div class="wims_question">

        \for{u = 0 to \quo}{

          <table style="border:none">

            <tr>

            \for{ v = 1 to \coupure}{

              <td style="text-align:center">

                \if{\coupure*\u+\v <= \cnt}{

                  \if{\nombre[\coupure*\u+\v] isitemof \Numero}{<span style="color:blue;">}

                  \texte[\coupure*\u+\v]

                }{ }

                \if{\nombre[\coupure*\u+\v] isitemof \Numero}{</span>}

              </td>

            }

            </tr><tr>

            \for{ v = 1 to \coupure}{

              <td style="text-align:center">

                \if{\nombre[\coupure*\u+\v] isitemof \prem_numero}{

                  \embed{\STEP[\position[\nombre[\coupure*\u+\v]]], \size

                         \autocompletion}

                }{ }

              </td>

            }

            </tr><tr><td colspan="\coupure"><hr></td></tr>

          </table>

        }

      </div>

    }

  }

}

\answer{}{\Numero;\texte}{type=\format0}{option=\partialscore \option}

\answer{\rep_compose[1]}{\traduction[1]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[2]}{\traduction[2]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[3]}{\traduction[3]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[4]}{\traduction[4]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[5]}{\traduction[5]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[6]}{\traduction[6]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[7]}{\traduction[7]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[8]}{\traduction[8]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[9]}{\traduction[9]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[10]}{\traduction[10]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[11]}{\traduction[11]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[12]}{\traduction[12]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[13]}{\traduction[13]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[14]}{\traduction[14]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[15]}{\traduction[15]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[16]}{\traduction[16]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[17]}{\traduction[17]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[18]}{\traduction[18]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[19]}{\traduction[19]}{type=\format}{option=\option_reaccent}

\answer{\rep_compose[20]}{\traduction[20]}{type=\format}{option=\option_reaccent}