constante reel EPSILON <- 0.0000001
  
{ Recherche de la racine carree d'un reel       }
{ compris entre 0.0 et 100.0                    }
{ Utilisation d'une methode dichotomique        }
{ v : Valeur dont on recherche la racine carree }
{     (comprise entre 0.0 et 100.0)             }

reel fonction racine(-> reel v)
  reel ai <- 0.0
  reel af <- 10.0
  reel mid
  faire
    mid <- (af+ai)/2.0
    si mid*mid > v alors
      af <- mid
      sinon
      ai <- mid
    fsi
  tant que ( af-ai > EPSILON )
  retourner mid
fin fonction