$\Large周长:%vcm$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large%v$

$\Large\bf显示面积$

 探索长方形面积变化规律 

请试着拖动

c = 26 (slider from 12 to 26, step 2)
A1: (0, 0)
A2: (x(A1 + c / 2 + 1), 0)
A3: (x(A2 + c / 2 + 1), 0)
A4: (x(A3 + c / 2 + 1), 0)
A5: (x(A4 + c / 2 + 1), 0)
A6: (x(A5 + c / 2 + 1), 0)
B1, C1, D1, E1, F1, G1, H1, I1, J1, K1, L1 = 定周长矩形(A1, c)
B2, C2, D2, E2, F2, G2, H2, I2, J2, K2, L2 = 定周长矩形(A2, c)
B3, C3, D3, E3, F3, G3, H3, I3, J3, K3, L3 = 定周长矩形(A3, c)
B4, C4, D4, E4, F4, G4, H4, I4, J4, K4, L4 = 定周长矩形(A4, c)
B5, C5, D5, E5, F5, G5, H5, I5, J5, K5, L5 = 定周长矩形(A5, c)
B6, C6, D6, E6, F6, G6, H6, I6, J6, K6, L6 = 定周长矩形(A6, c)
a = false
l = Append("长方形", 1…(floor(c / 4)))
l0 = Append("周长(cm)", Sequence["\textcolor{red}{" + c + "}", k, 1, floor(c / 4)])
l1 = Append("长(cm)", Take[{G1, G2, G3, G4, G5, G6}, 1, floor(c / 4)])
l2 = Append("宽(cm)", Take[{H1, H2, H3, H4, H5, H6}, 1, floor(c / 4)])
l3 = Append("面积(cm^2)", If[a, Take[{L1, L2, L3, L4, L5, L6}, 1, floor(c / 4)], {}])
text1 = TableText(l, l0, l1, l2, l3, "vc_|")
A = (74.12501836185741, -16.697641106504207)
B = (75.30075938599204, -29.00477955641988)
C = (86.85996819914978, -29.00477955641988)

Tool: 定周长矩形
请输入：起点、周长
Input: A0, c
Output: A, A0', B, C, D, a, b, c_1, d, l1, q1

$\Large%v$

$\Large%v$

A0: (0, 0)
A0': A0 + (1, 0)
A = Point(Segment[A0, A0'], 0)
l1 = Sequence((k, y(A)), k, x(A) + ceil(c / 4), x(A) + c / 2 - 1)
B = Point(l1)
C: B + (0, c / 2 - abs(x(A) - x(B)))
D: A + (0, c / 2 - abs(x(A) - x(B)))
q1, a, b, c_1, d = Polygon(A, B, C, D)