|
沙发
发表于 2024-1-13 04:30:15
|
只看该作者
辽宁省沈阳市
.版本 2
.支持库 spec
.子程序 _临时子程序
.局部变量 返回值, 文本型, , "0"
.局部变量 参数, 文本型
' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
参数 = “43,551,268|43,539,302|43,528,323|43,462,326|43,518,336|39,513,352|39,522,354|”
.如果真 (取最小的 (参数, 返回值))
调试输出 (“第一个”, 返回值)
.如果真结束
参数 = “43,551,268|43,539,302|43,528,323|43,462,326|43,518,336|39,513,352”
.如果真 (取最小的 (参数, 返回值))
调试输出 (“第两个”, 返回值)
.版本 2
.子程序 取最小的, 逻辑型, 公开
.参数 参数, 文本型
.参数 返回值, 文本型, 参考 数组
.局部变量 临时文本, 文本型
.局部变量 临时数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 数值数组, 整数型, , "0"
.局部变量 返回数组, 文本型, , "0"
临时数组 = 分割文本 (参数, “|”, )
清除数组 (返回值)
.计次循环首 (取数组成员数 (临时数组), i)
临时文本 = 取文本左边 (临时数组 [i], 寻找文本 (临时数组 [i], “,”, , 假) - 1)
加入成员 (数值数组, 到整数 (临时文本))
.计次循环尾 ()
数组排序 (数值数组, )
.如果 (取数组成员数 (数值数组) > 0)
临时文本 = 到文本 (数值数组 [1])
.否则
返回 (假)
.如果结束
.计次循环首 (取数组成员数 (临时数组), i)
.如果真 (临时文本 = 取文本左边 (临时数组 [i], 寻找文本 (临时数组 [i], “,”, , 假) - 1))
加入成员 (返回值, 临时数组 [i])
.如果真结束
.计次循环尾 ()
返回 (真)
|
|