有关实时判断屏幕任两点坐标的问题,在线等

Question

假设屏幕上随机产生100个点,每个点都会随机移动,我想判断各点之间的距离,
如果任两点的距离小于某一值时(例:10),则用红颜色标出这两个点,该如何判断
速度才最快?  

Answer 1

for i := 99 downto 0 do
  for j := 0 to i do
  begin
    if p[i] 到 p[j] < 10 then
      设置颜色
  end;

Answer 2

for i := 99 downto 0 do
  for j := 0 to i - 1 do
  begin
    if p[i] 到 p[j] < 10 then
      设置颜色
  end;

Answer 3

for i := 99 downto 1 do
  for j := 0 to i do
  begin
    if p[i] 到 p[j] < 10 then
      设置颜色
  end;