Déplacer le curseur pour choisir le nombre n
dont on veut connaître la racine carrée.

n = 7 (slider from 1 to 10, step 1)
O = Intersect(xAxis, yAxis)
c = Circle(O, n / 2)
A, B = Intersect(c, xAxis)
b = Segment(A, O)
C = Point(Circle[A, 1])
d = Segment(A, C)
e = OrthogonalLine(C, b)
E, D = Intersect(c, e)
f = Segment(C, D)
g = Segment(A, D)
text1: "la racine carrée de   " + n + "  est  environ  " + g
a = Segment(D, O)
text3: "Construction de la racine carrée de  " + n + "
- Tracer le cercle de diamètre AB  =  " + n + "
- Marquer C tel que AC = 1.
- La perpendiculaire à (AB) passant par C
  coupe le cercle en D.
- [AD] est un segment qui mesure environ   " + (sqrt(n)) + ""