1   VARIABLES
2     i EST_DU_TYPE NOMBRE
3     p EST_DU_TYPE NOMBRE
4     a EST_DU_TYPE LISTE
5     b EST_DU_TYPE LISTE
6   DEBUT_ALGORITHME
7     a[0] PREND_LA_VALEUR 1
8     b[0] PREND_LA_VALEUR 7
9     i PREND_LA_VALEUR 0
10    LIRE p
11    TANT_QUE (b[i]-a[i]>p) FAIRE
12      DEBUT_TANT_QUE
13      TRACER_POINT (a[i],0)
14      TRACER_POINT (b[i],0)
15      a[i+1] PREND_LA_VALEUR (2*a[i]+b[i])/3
16      b[i+1] PREND_LA_VALEUR (a[i]+2*b[i])/3
17      i PREND_LA_VALEUR i+1
18      FIN_TANT_QUE
19    AFFICHER "L'entier cherché est "
20    AFFICHER i
21  FIN_ALGORITHME