Cliquer sur Exécuter pour suivre la construction

A = (0, 0)
B = (8, 0)
D = (0, 4)
C = (4, 4)
a = Segment(A, B)
b = Segment(B, C)
c = Segment(C, D)
d = Segment(D, A)
E = Point(d)
e = Line(E, a)
F = Intersect(e, b)
poly1, a_1, b_1, f, e_1 = Polygon(A, B, F, E)
poly2, e_2, f_1, c_1, d_1 = Polygon(E, F, C, D)
Textepoly2: "Aire " + (Name[E]) + (Name[F]) + (Name[C]) + (Name[D]) + " = " + poly2
Textepoly1: "Aire " + (Name[A]) + (Name[B]) + (Name[F]) + (Name[E]) + " = " + poly1
distanceAE = Distance(A, E)
TexteAE: Name[A] + (Name[E]) + " \, = \, " + distanceAE