2点間の距離を求める

平面上に与えられた２つの点の距離を求めましょう。

\sqrt

である。

正解

ax = Random(-3, 1)
ay = Random(-1, 3)
px = Random(2, 5)
py = Random(1, 5)
bx: ax + px
by: ay + py
d2: (px * px) + (py * py)
k = If(Mod[d2, 25] ≟ 0, 5, If[Mod[d2, 16] ≟ 0, 4, If[Mod[d2, 9] ≟ 0, 3, If[Mod[d2, 4] ≟ 0, 2, 1]]])
d1: d2 / k / k
text1: "A(" + ax + "," + ay + "), B(" + bx + "," + by + ")の距離は"
d0 = 0
k0 = 0
入力ボックス1 = Textfield(k0)
入力ボックス2 = Textfield(d0)
cond1 = If(d1 > 1, d1 ≟ d0, true)
cond2 = If(k > 1, k ≟ k0, true)
A = (-1.58, 4.74)
B = (0.6, 4.76)
a = Segment(A, B)