aa = 0 (slider from 0 to fin, step 0.01)
h = 8 (slider from 1 to 9, step 0.1)
r = 3 (slider from 1 to 4, step 0.1)
B: (0, h, r)
BB': B + (aa, 0, 0)
D: BB' - (0, 0, r)
CC: BB' - (0, h, 0)
m = Line(CC, BB')
D' = Rotate(D, aa / r, m)
E: D' - (0, h, 0)
O: (0, 0, 0)
g_1: sqrt(h^(2) + r^(2))
A: (g_1, 0, 0)
xB: (h^(2) - r^(2) + g_1^(2)) / ((2 * g_1))
e = Plane(B, xOyPlane)
C = Intersect(zAxis, e)
polígono1, l, n, p, q = Polygon(BB', CC, E, D')
base: (π * r^(2))
bb, c, d, b = Cylinder(BB', CC, r)
j = Segment(E, D')
F: (0, h, 0)
G: F - (0, h, 0)
H: F + (aa, 0, 0)
I: G + (aa, 0, 0)
polígono2, f, g, i, h_1 = Polygon(F, G, I, H)
texto2: "Área base = " + base + " cm²"
texto1: "Área lateral = " + ((((2 * π) * r) * h)) + " cm²"
k = Segment(CC, E)
fin: ((2 * π) * r)