\title{Trajet en voiture}
\language{fr}
\range{-5..5}
\author{Bernadette PERRIN-RIOU}
\email{bpr@math.u-psud.fr}
\computeanswer{no}
\format{html}
\precision{10000}

\integer{temps1= randint(2..3)}
\real{pause1=randint(1..2)/randint(2,4)}
\real{temps2=randint(1..2)}
\real{pause2=randint(1..2)/randint(2,4)}
\real{temps3=randint(1..2)}
\real{heure1=randint(7..9)}
\real{heure2=\heure1+\temps1}
\real{heure3=\heure2+\pause1}
\real{heure4=\heure3+\temps2}
\real{heure5=\heure4+\pause2}
\real{heure6=\heure5+\temps3}
\integer{v1= 10*randint(9..12)}
\integer{v2= 10*randint(6..9)}
\integer{v3=10*randint(9..12)}
\real{d1=\v1*\temps1}
\text{dessin= }
\for{i=0 to 20}{
\integer{h=\i+\heure1}
\integer{k=\i*100}
\text{dessin=\dessin
text  black, \heure1+\i,-0.5,medium,\h h
text black,\heure1-1.5,\i*100,medium,\k km
}}
\real{d2=\v1*\temps1+\v2*\temps2}
\real{dfinal=\d2+\v3*\temps3}

\real{tfinal=\temps1+\pause1+\temps2+\pause2+\temps3}
\real{vfinal=ceil(\dfinal/\tfinal)}
\real{maxy=\dfinal+2}
\real{rep1=\pause1+\pause2}
\text{choix=random(1,2)}
\text{prem=randitem(première,seconde)}
\real{rep2=p isin \prem? \temps1:\temps1+\pause1+\temps2}
\text{rep3=p isin \prem? \d1:\d2}
\real{rep4=\choix=1 ? \heure6:\v3}
\text{hk=\choix=1 ? h:km/h}

\real{rep5=\vfinal}
\text{heuv=\choix=1? Heure:Vitesse}
\steps{reply1,reply2, reply3
reply4
reply5} 
\statement{ Anne doit parcourir la distance de \dfinal km selon le graphique suivant :
<center> \draw{500,250}{
xrange \heure1-2,\heure6+1
yrange -40,\maxy+1
\dessin
hline  \heure1,0, black
vline  \heure1,0, black
parallel \heure1-0.1,0,\heure1+0.1,0,0,10,100,blue
parallel \heure1-0.5,0,\heure1+0.5,0,0,100,10,black
parallel \heure1,-1,\heure1,1,1,0,10,black
parallel \heure1,-12,\heure1,12,1,0,20,black
parallel \heure1,-5,\heure1,5,0.25,0,80,blue
linewidth 2
lines red, \heure1,0,\heure2,\d1,\heure3,\d1,\heure4,\d2, \heure5,\d2, \heure5+\temps3, \dfinal
arrow \heure5,\d2,\heure5+\temps3, \dfinal,10, red
linewidth 1
dline \heure2,\d1,\heure2,0,black
dline \heure3,\d1,\heure3,0,black
dline \heure4,\d2,\heure4,0,black
dline \heure5,\d2,\heure5,0,black
dline \heure2,\d1,\heure1,\d1,black
dline \heure4,\d2,\heure1,\d2,black
}</center>
<p>
\if{\step=1}{Lire le diagramme :
<ul><li>
Combien de temps s'arrête-t-elle en cours de route ?\embed{reply 1,8}
</li><li> Combien de temps après son départ fait-elle la \prem pause ?
\embed{reply 2,8} 
</li><li>
Combien de km a-t-elle fait alors ?
\embed{reply 3,8} 
</li></ul>}
\if{\step=2}{
\if{\choix=1}{Elle a parcouru la fin du trajet (après la deuxième pause) à la vitesse moyenne horaire de
\v3 km/h. A quelle heure arrive-t-elle ?}{Elle arrive à \heure6 heures. A quelle vitesse moyenne horaire a-t-elle parcouru la fin du trajet (après la deuxième pause) ?}
 \embed{reply 4, 8}}
\if{\step=3}{Elle arrive donc à \heure6 h avec une vitesse moyenne horaire sur le dernier tronçon de \v3 km/h.  Quelle est sa vitesse moyenne horaire sur l'ensemble du parcours ? \embed{reply 5,8}}

<p> On arrondira les vitesses à 1 par excès (en km/h). 
On écrira les unités (les temps seront écrits en heures et en minutes par exemple 120 min ou 2h 30 min). 
}
\answer{Temps de pause :}{\rep1 h}{type=units}
\answer{\prem pause  }{\rep2 h}{type =units}
\answer{Nombre de km}{\rep3 km}{type=units}
\answer{\heuv}{\rep4 \hk}{type=units}
\answer{ }{\rep5 km/h}{type=units}
