p 112

1   VARIABLES
2     R EST_DU_TYPE NOMBRE
3     T EST_DU_TYPE NOMBRE
4     Q EST_DU_TYPE NOMBRE
5   DEBUT_ALGORITHME
6     LIRE R
7     T PREND_LA_VALEUR 0
8     Q PREND_LA_VALEUR 1.8
9     TANT_QUE (Q>R) FAIRE
10      DEBUT_TANT_QUE
11      T PREND_LA_VALEUR T+0.01
12      Q PREND_LA_VALEUR 1.8*exp(-1.2*T)
13      FIN_TANT_QUE
14    AFFICHER T
15  FIN_ALGORITHME