|
- .版本 2
- .支持库 spec
- .程序集 逻辑型数组编解码
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- .局部变量 逻辑型数组, 逻辑型, , "0"
- ' 编解码规则:两个真或两个假表示真,一个真或一个假表示假,有几个连续的真或假并做计数,遇到跳变则清零,超过2则无效。
- 逻辑型数组 = { 真, 假, 真, 真, 假, 真, 真, 假, 真, 真, 真, 假, 假, 假 }
- 逻辑型数组编码 (逻辑型数组)
- 调试输出 (“编码后”, 逻辑型数组)
- 检查 (逻辑型数组解码 (逻辑型数组))
- 调试输出 (“解码后”, 逻辑型数组)
- .子程序 逻辑型数组编码, , 公开
- .参数 逻辑数组, 逻辑型, 参考 数组
- .局部变量 数组副本, 逻辑型, , "0"
- .局部变量 位置, 整数型
- .局部变量 逻辑态, 逻辑型
- .计次循环首 (取数组成员数 (逻辑数组), 位置)
- 加入成员 (数组副本, 逻辑态)
- .如果真 (逻辑数组 [位置])
- 加入成员 (数组副本, 逻辑态)
- .如果真结束
- 逻辑态 = 取反 (逻辑态)
- .计次循环尾 ()
- 逻辑数组 = 数组副本
- .子程序 逻辑型数组解码, 逻辑型, 公开
- .参数 逻辑数组, 逻辑型, 数组
- .局部变量 位置, 整数型
- .局部变量 旧逻辑态, 逻辑型
- .局部变量 连续数, 字节型
- .局部变量 数组副本, 逻辑型, , "0"
- .计次循环首 (取数组成员数 (逻辑数组), 位置)
- .如果 (旧逻辑态 ≠ 逻辑数组 [位置] 且 位置 > 1)
- 加入成员 (数组副本, 连续数 = 2)
- 连续数 = 1
- .否则
- 连续数 = 连续数 + 1
- .如果真 (连续数 > 2)
- 重定义数组 (逻辑数组, 假, 0)
- 返回 (假)
- .如果真结束
- .如果结束
- 旧逻辑态 = 逻辑数组 [位置]
- .计次循环尾 ()
- 加入成员 (数组副本, 连续数 = 2)
- 逻辑数组 = 数组副本
- 返回 (真)
复制代码
|
评分
-
1
查看全部评分
-
|