1 \, cm^2

Area

L = (0, 10)
M = (0, 9)
N = (1, 9)
O = (1, 10)
poli2, l, o, n, m = Polygon(L, O, N, M)
b = 1 (slider from 0 to 10, step 1)
A = (0, 4)
B = Point(Circle[A, b])
r = Segment(A, B)
h = 6 (slider from 0 to 10, step 1)
D = Point(Circle[A, h])
s = Segment(A, D)
C = Point(Circle[D, b])
t = Segment(D, C)
a_1 = Segment(C, B)
poli3, a_2, b_1, d_1, c_1 = Polygon(A, B, C, D)
distanzaAB = Distance(A, B)
distanzaAC = Distance(A, D)
"\overline{" + (Nome[A]) + (Nome[C]) + "} \, = \, " + distanzaAC: "\overline{" + (Name[A]) + "" + (Name[D]) + "} \, = \, " + (LaTeX[distanzaAC]) + "\,cm"
u = false
Testopoli3: "Area \,di \, " + (Name[A]) + "" + (Name[B]) + "" + (Name[C]) + "" + (Name[D]) + " =" + (LaTeX[b]) + "·" + (LaTeX[h]) + "= " + (LaTeX[poli3]) + "\, cm^2"
L_1 = (8, 10)
M_1 = (8, 9)
N_1 = (9, 9)
O_1 = (9, 10)
L_2 = (-5, 9)
M_2 = (-5, 8)
N_2 = (-4, 8)
O_2 = (-4, 9)
poli2_2, l_2, o_2, n_2, m_2 = Polygon(L_2, O_2, N_2, M_2)
TestoAB: "b\, = \, " + (LaTeX[distanzaAB]) + "\, cm"
TestoAC: "h\, = \, " + (LaTeX[distanzaAC]) + "\,cm"