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       }

reel fonction racine(v)
  Données
    v : réel
  Locales
    ai : réel
    af : réel
    mid : réel
  ai <- 0.0
  af <- 10.0
  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