Estudo da área do retângulo e do quadrado

Desenvolvido por PPGECIM/ULBRA

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
C = Point(yAxis)
lista1 = Sequence(Sequence[Polygon[(i, j), (i + 1, j), 4], i, 0, x(B) - 1], j, 0, y(C) - 1)
texto3: "" + (x(B)) + ""
texto4: "" + (y(C)) + ""
texto5: "Número de quadrados = Área = " + ((x(B) * y(C))) + ""