Subversion Repositories wimsdev

Rev

Rev 6509 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
6509 bpr 1 
\title{Deux lettres de l'alphabet (plusieurs essais)}
184 bpr 2 
\text{alphabet = 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}
3 
\integer{n = randint(1..20)}
4 
 
6509 bpr 5 
\text{NETAPE = r1,r2}
6 
\nextstep{\NETAPE}
7 
\integer{try = 1}
8 
\text{ordinal = Premier essai : , Deuxième essai : , Troisième essai : }
9 
\text{REP=}
10 
\statement{
11 
<p>
8514 bpr 12 
  Écrire les deux lettres de l'alphabet suivant la lettre \alphabet[\n] :
6509 bpr 13 
</p>
8514 bpr 14 
\ordinal[\try]
184 bpr 15 
 
6509 bpr 16 
<div class="wimscenter" style="font-size:20px;">
8514 bpr 17 
  <span style="margin:50px;">\alphabet[\n]
6509 bpr 18 
 \for{a = 1 to 2}{
19 
     \if{ r\a isitemof \NETAPE}{
20 
        \embed{r\a,5
8514 bpr 21 
          default}
6509 bpr 22 
         <span class="oef_indbad">\REP[\a]</span>
8514 bpr 23 
      }{
6509 bpr 24 
      <span class="oef_indgood">\alphabet[\n + \a]</span>
25 
     }
184 bpr 26 
 }
6509 bpr 27 
</div>
184 bpr 28 
}
29 
 
6509 bpr 30 
\answer{suivant de \alphabet[\n]}{\A}{type=raw}
31 
\answer{suivant de \alphabet[\n+1]}{\B}{type=raw}
32 
\condition{Le suivant de \alphabet[\n] est \A ? }{
33 
          \A issametext \alphabet[\n + 1]}
34 
\condition{Il y a ensuite \B}{\B issametext \alphabet[\n + 2]}
184 bpr 35 
 
6509 bpr 36 
\text{REP = \reply1,\reply2}
37 
\text{NETAPE = }
8514 bpr 38 
\for{b = 1 to 2}{
6509 bpr 39 
  \text{NETAPE = \REP[\b] notsametext \alphabet[\n+\b] and \try < 3 ?
40 
      wims(append item r\b to \NETAPE)}
184 bpr 41 
}
6509 bpr 42 
\integer{try1 = \try -1}
43 
\feedback{\try1 > 1}{Vous avez fait \try1 essais}
184 bpr 44 
\integer{try = \try + 1}