M : ex 28.
Author: Frédéric Chanez

Vérification :

A_1 = (1.2696790000553118, -4.565465235895837)
B_1 = (10.931215007916574, -0.8004542967498988)
a = Line(A_1, B_1)
H = (-2.9933492590834723, -0.1032300487599104)
b = Line(H, a)
A = Point(a)
B = Point(a)
c = Segment(A, B)
G = Point(b)
d = Segment(A, G)
e = Line(B, d)
F = Intersect(b, e)
poly1, d_1, e_1, g, f = Polygon(A, B, F, G)
h_2 = OrthogonalLine(A, a)
i = OrthogonalLine(B, a)
D = Intersect(b, i)
E = Intersect(b, h_2)
poly2, d_2, e_2, h_1, i_1 = Polygon(A, B, D, E)
C = Point(b)
poly3, j, d_3, e_3 = Polygon(A, B, C)
I = Point(a)
k = OrthogonalLine(I, a)
J = Intersect(b, k)
h = Segment(I, J)
texte1: "Aire ABFG = " + poly1 + " cm²"
texte2: "Aire ABDE = " + poly2 + " cm²"
texte3: "Aire ABC = " + poly3 + " cm²"
l = false