|
楼主 |
发表于 2024-11-8 09:44:44
|
显示全部楼层
河南省南阳市
.版本 2
.支持库 spec
偏移量 = 10
.变量循环首 (1, 取数组成员数 (数组), 1, a)
.变量循环首 (取数组成员数 (数组), a + 1, -1, b)
.如果 (数组 [a].x - 偏移量 ≤ 数组 .x 且 数组 .x ≤ 数组 [a].x + 偏移量)
.如果 (数组 [a].y - 偏移量 ≤ 数组 .y 且 数组 .y ≤ 数组 [a].y + 偏移量)
前边 = a
后边 = b
调试输出 (“找到”, 前边, 后边, a, b)
跳出循环 ()
.否则
.如果结束
.否则
.如果结束
.变量循环尾 ()
.如果 (BB ≠ -1)
跳出循环 ()
.否则
.如果结束
.变量循环尾 ()
.计次循环首 (前边, )
删除成员 (数组, 1, 1)
.计次循环尾 ()
.计次循环首 (取数组成员数 (数组) - 后边, )
删除成员 (数组, 取数组成员数 (数组), 1)
.计次循环尾 ()
画板1.清除 (, , , )
.计次循环首 (取数组成员数 (数组), a)
画板1.画点 (数组 [a].x, 数组 [a].y, 0)
.计次循环尾 ()
|
|