Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
184 bpr 1
\
2
 
3
\title{Disque 2}
4
\language{fr}
5
\computeanswer{no}
6
\precision{1000}
7
\real{r = randint(100..500)/100}
8
\real{c = 2*pi*\r}
9
 
10
\statement{Déterminer la circonférence d'un disque de rayon \r.}
11
 
12
\answer{Circonférence}{\var}{type=numeric}
13
\feedback{1 = 1}{\reply1}
14
\real{ec1 = (1 + 0.001)*\c}
15
\real{ec2 = (1 - 0.001)*\c}
16
\condition{Bonne précision}{\var <= \ec1 and \var >= \ec2 }{option=hide}
17
\feedback{\var < \ec2}{Vous avez donné la circonférence d'un disque dont
18
  le rayon est plus petit que \r. }
19
\feedback{\var > \ec1}{Vous avez donné la circonférence d'un disque dont
20
  le rayon est plus grand que \r. }
21
 
22