求示例，5个坐标，按照离人物距离排序

qq909003566

求示例，5个坐标，按照离人物距离排序。

人物坐标：100.100

物品1：105.100

物品2：110.120

物品3：80.75

物品4：107.100

物品5：110.122

请求大佬给予简单示例，按最近距离到最远排序。

zainex

排序的时候按照两点间距离公式 √(|x2-x1|²＋|y2-y1|²) 来判断大小就行了：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
取两点距离	整数型
参数名	类 型	参考	可空	数组	备 注
文本1	文本型
文本2	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式
搜索结果	搜索结果
坐标1	整数型		2
坐标2	整数型		2
结果	整数型

正则.创建 (“([0-9]+)\.([0-9]+)”, )
搜索结果 ＝ 正则.搜索 (文本1, 1, )
坐标1 [1] ＝ 到整数 (搜索结果.取子匹配文本 (文本1, 1, ))
坐标1 [2] ＝ 到整数 (搜索结果.取子匹配文本 (文本1, 2, ))
搜索结果 ＝ 正则.搜索 (文本2, 1, )
坐标2 [1] ＝ 到整数 (搜索结果.取子匹配文本 (文本2, 1, ))
坐标2 [2] ＝ 到整数 (搜索结果.取子匹配文本 (文本2, 2, ))
结果 ＝ 求次方 (取绝对值 (坐标2 [1] － 坐标1 [1]), 2) ＋ 求次方 (取绝对值 (坐标2 [2] － 坐标1 [2]), 2)
返回 (求平方根 (结果))

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
人物坐标	文本型
数组	文本型		0
数	整数型
值	整数型

人物坐标 ＝ “人物坐标：100.100”
加入成员 (数组, “物品1：105.100”)
加入成员 (数组, “物品2：110.120”)
加入成员 (数组, “物品3：80.75”)
加入成员 (数组, “物品4：107.100”)
加入成员 (数组, “物品5：110.122”)
调试输出 (数组)
计次循环首 (取数组成员数 (数组), 数)
计次循环首 (取数组成员数 (数组) － 数, 值)
如果真 (取两点距离 (人物坐标, 数组 [值]) ＞ 取两点距离 (人物坐标, 数组 [值 ＋ 1]))
交换变量 (数组 [值], 数组 [值 ＋ 1])

计次循环尾 ()
计次循环尾 ()
调试输出 (数组)
计次循环首 (取数组成员数 (数组), 数)
调试输出 (数组 [数], 取两点距离 (人物坐标, 数组 [数]))
计次循环尾 ()

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 取两点距离, 整数型<br /> .参数 文本1, 文本型<br /> .参数 文本2, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 搜索结果, 搜索结果<br /> .局部变量 坐标1, 整数型, , "2"<br /> .局部变量 坐标2, 整数型, , "2"<br /> .局部变量 结果, 整数型<br /> <br /> 正则.创建 (“([0-9]+)\.([0-9]+)”, )<br /> 搜索结果 ＝ 正则.搜索 (文本1, 1, )<br /> 坐标1 [1] ＝ 到整数 (搜索结果.取子匹配文本 (文本1, 1, ))<br /> 坐标1 [2] ＝ 到整数 (搜索结果.取子匹配文本 (文本1, 2, ))<br /> 搜索结果 ＝ 正则.搜索 (文本2, 1, )<br /> 坐标2 [1] ＝ 到整数 (搜索结果.取子匹配文本 (文本2, 1, ))<br /> 坐标2 [2] ＝ 到整数 (搜索结果.取子匹配文本 (文本2, 2, ))<br /> 结果 ＝ 求次方 (取绝对值 (坐标2 [1] － 坐标1 [1]), 2) ＋ 求次方 (取绝对值 (坐标2 [2] － 坐标1 [2]), 2)<br /> 返回 (求平方根 (结果))<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 人物坐标, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 值, 整数型<br /> <br /> 人物坐标 ＝ “人物坐标：100.100”<br /> 加入成员 (数组, “物品1：105.100”)<br /> 加入成员 (数组, “物品2：110.120”)<br /> 加入成员 (数组, “物品3：80.75”)<br /> 加入成员 (数组, “物品4：107.100”)<br /> 加入成员 (数组, “物品5：110.122”)<br /> 调试输出 (数组)<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     .计次循环首 (取数组成员数 (数组) － 数, 值)<br />         .如果真 (取两点距离 (人物坐标, 数组 [值]) ＞ 取两点距离 (人物坐标, 数组 [值 ＋ 1]))<br />             交换变量 (数组 [值], 数组 [值 ＋ 1])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (数组)<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     调试输出 (数组 [数], 取两点距离 (人物坐标, 数组 [数]))<br /> .计次循环尾 ()

另外，将上面第二个循环中的 ＞ 改为 ＜ 就能变成从远到近的顺序。

秀才遇到兵

两个 加起来  减去人物坐标加起来，  然后再取绝对值  就出来

zzdd2215415

https://bbs.125.la/forum.php?mod=viewthread&tid=14702516 三角函数啊

Ls60

勾股定理啊，
设人物坐标(x0，y0)
距离的平方：s²=(x-x0)²+(y-y0)²
用s²判断也行，开个方也行

zzdd2215415

先判断物品的x是否等于人物的x,如果存在则距离就是 y之间的距离，反之y相等x相减的绝对值就是距离，
如果都不相等 就用上面发的三角函数求c斜边 就是距离 ，然后依次排序即可

Ls60

自定义类型数组

  

数据类型名	公开	备 注
物品坐标
成员名	类 型	传址	数组	备 注
文本	文本型			x，y
距离	双精度小数型

.版本 2<br /> <br /> .数据类型 物品坐标<br />     .成员 文本, 文本型, , , x，y<br />     .成员 距离, 双精度小数型

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
坐标	物品坐标	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
人物坐标	文本型
局_计次	整数型
交换	逻辑型
交换变量	物品坐标
sum	整数型

重定义数组 (坐标, 假, 5)
人物坐标 ＝ “100,100”
坐标 [1].文本 ＝ “105,100”
坐标 [2].文本 ＝ “110,120”
坐标 [3].文本 ＝ “80,75”
坐标 [4].文本 ＝ “107,100”
坐标 [5].文本 ＝ “110,122”
计次循环首 (取数组成员数 (坐标), 局_计次)
坐标 [局_计次].距离 ＝ 求距离 (人物坐标, 坐标 [局_计次].文本, , )
计次循环尾 ()
' 自定义类型数组排序，根据距离，由小到大排序
交换 ＝ 真
sum ＝ 取数组成员数 (坐标)
判断循环首 (交换 ＝ 真)
交换 ＝ 假
变量循环首 (1, sum － 1, 1, 局_计次)
如果真 (坐标 [局_计次 ＋ 1].距离 ＜ 坐标 [局_计次].距离)
交换变量 ＝ 坐标 [局_计次]
坐标 [局_计次] ＝ 坐标 [局_计次 ＋ 1]
坐标 [局_计次 ＋ 1] ＝ 交换变量
交换 ＝ 真

变量循环尾 ()
sum ＝ sum － 1
判断循环尾 ()
计次循环首 (取数组成员数 (坐标), 局_计次)
调试输出 (坐标 [局_计次].距离)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
求距离	双精度小数型
参数名	类 型	参考	可空	数组	备 注
人物	文本型
物品	文本型

变量名	类 型	静态	数组	备 注
子坐标1	文本型		0
子坐标2	文本型		0

子坐标1 ＝ 分割文本 (人物, “,”, )
子坐标2 ＝ 分割文本 (物品, “,”, )
返回 (求平方根 (求次方 (子坐标2 [1] － 子坐标1 [1], 2) ＋ 求次方 (子坐标2 [2] － 子坐标1 [2], 2)))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 坐标, 物品坐标, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 人物坐标, 文本型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 交换, 逻辑型<br /> .局部变量 交换变量, 物品坐标<br /> .局部变量 sum, 整数型<br /> <br /> 重定义数组 (坐标, 假, 5)<br /> 人物坐标 ＝ “100,100”<br /> 坐标 [1].文本 ＝ “105,100”<br /> 坐标 [2].文本 ＝ “110,120”<br /> 坐标 [3].文本 ＝ “80,75”<br /> 坐标 [4].文本 ＝ “107,100”<br /> 坐标 [5].文本 ＝ “110,122”<br /> <br /> .计次循环首 (取数组成员数 (坐标), 局_计次)<br />     坐标 [局_计次].距离 ＝ 求距离 (人物坐标, 坐标 [局_计次].文本, , )<br /> .计次循环尾 ()<br /> <br /> ' 自定义类型数组排序，根据距离，由小到大排序<br /> 交换 ＝ 真<br /> sum ＝ 取数组成员数 (坐标)<br /> .判断循环首 (交换 ＝ 真)<br />     交换 ＝ 假<br />     .变量循环首 (1, sum － 1, 1, 局_计次)<br />         .如果真 (坐标 [局_计次 ＋ 1].距离 ＜ 坐标 [局_计次].距离)<br />             交换变量 ＝ 坐标 [局_计次]<br />             坐标 [局_计次] ＝ 坐标 [局_计次 ＋ 1]<br />             坐标 [局_计次 ＋ 1] ＝ 交换变量<br />             交换 ＝ 真<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br />     sum ＝ sum － 1<br /> .判断循环尾 ()<br /> <br /> .计次循环首 (取数组成员数 (坐标), 局_计次)<br />     调试输出 (坐标 [局_计次].距离)<br /> .计次循环尾 ()<br /> <br /> .子程序 求距离, 双精度小数型<br /> .参数 人物, 文本型<br /> .参数 物品, 文本型<br /> .局部变量 子坐标1, 文本型, , "0"<br /> .局部变量 子坐标2, 文本型, , "0"<br /> <br /> 子坐标1 ＝ 分割文本 (人物, “,”, )<br /> 子坐标2 ＝ 分割文本 (物品, “,”, )<br /> 返回 (求平方根 (求次方 (子坐标2 [1] － 子坐标1 [1], 2) ＋ 求次方 (子坐标2 [2] － 子坐标1 [2], 2)))

Ls60

刚刚上传的有问题，修改了一下用的是自定义类型数组排序
demo.e (4.64 KB, 下载次数: 10)

2022-3-29 13:38 上传

点击文件名下载附件
不知道你的坐标文本是怎么个样子的，像上面那位老哥用正则来筛会更通用一些

黄福寿

求平方根 (求次方 (人物x坐标 - 物品x坐标, 2) ＋ 求次方 (人物y坐标 - 物品y坐标, 2))，得到的结果放到数组里面，再来个数组排序就可以了，从小到大就是从近到远的距离

Suky

不会出错的方案就是逐一求距离、距离与坐标关联     然后所有距离排序   取排序结果坐标