Subversion Repositories wimsdev

Rev

Rev 184 | Rev 8514 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
6509 bpr 1 
\title{Lettre de l'alphabet}
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)}
6509 bpr 4 
\integer{try = 0}
5 
\text{REP=}
6 
\text{NETAPE = r1}
7 
\nextstep{\NETAPE}
184 bpr 8 
 
6509 bpr 9 
\statement{Ecrire la lettre de l'alphabet qui suit  la lettre \alphabet[\n] :
10 
<p style="text-align:center;">
11 
     \if{ r1 isitemof \NETAPE}{
12 
        \embed{r1,5} <span class="oef_indbad">\REP</span>
184 bpr 13 
      }{
6509 bpr 14 
      <span class="oef_indgood">\alphabet[\n + 1]</span>
184 bpr 15 
     }
6509 bpr 16 
 </p>
184 bpr 17 
}
18 
 
6509 bpr 19 
\answer{lettre suivant \alphabet[\n]}{\A}{type=nocase}
20 
\condition{}{\A issametext \alphabet[\n + 1]}
21 
\text{REP = \reply1}
22 
\text{NETAPE=}
23 
\text{NETAPE = \reply1 notsametext \alphabet[\n + 1] and \try < 3 ? r1}
184 bpr 24 
 
6509 bpr 25 
\feedback{\try > 1}{Vous avez fait \try essais}
26 
\integer{try = \try + 1}