{ Test de l'inclusion d'un point dans un cercle }
{ Les coordonnees du point sont donnees         }
{ ainsi que le rayon et les coordonnees         }
{ du centre du cercle                           }

booleen fonction testInclusion(-> reel x,-> reel y,-> reel rayon,-> reel cx,-> reel cy)
  booleen inclus
  reel distance
  distance <- sqrt((x-cx)*(x-cx)+(y-cy)*(y-cy))
  si distance < rayon alors
    inclus <- vrai
    sinon
    inclus <- faux
  fsi
  retourner inclus
fin fonction