测试比较 ()| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 行数组 | 文本型 | | 0 |
| i | 整数型 | | |
| 结果 | 整数型 | | |
行数组 ＝
{ “上单右”,
“上单右”,
“上单右”,
“下双右”,
“上双右”,
“下单左”,
“上单右”,
“下单左”,
“下双右”,
“下双左” }
计次循环首 (取数组成员数 (行数组
) － 1, i
)
结果 ＝
比较两行 (行数组
[i
], 行数组
[i ＋ 1
])调试输出 (“第” ＋
到文本 (i
) ＋
“行和第” ＋
到文本 (i ＋ 1
) ＋
“行比较结果：” ＋
到文本 (结果
))
计次循环尾 ()| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 字1 | 文本型 | | 0 |
| 字2 | 文本型 | | 0 |
| i | 整数型 | | |
| 相同数 | 整数型 | | |
文本_逐字分割 (行1, 字1
)文本_逐字分割 (行2, 字2
)
如果真 (取数组成员数 (字1
) ≠
取数组成员数 (字2
))
返回 (0
)
如果 (行1 ＝ 行2
)
返回 (3
)
计次循环首 (取数组成员数 (字1
), i
)如果 (字1
[i
] ＝ 字2
[i
])相同数 ＝ 相同数 ＋ 1
计次循环尾 ()返回 (相同数
)
调试输出 (子程序1 (“上单右”,
“上单右”))
调试输出 (子程序1 (“上单右”,
“下双右”))
调试输出 (子程序1 (“上单右”,
“下双左”))
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| n | 整数型 | | |
| arr | 文本型 | | 0 |
| arr2 | 文本型 | | 0 |
| i | 整数型 | | |
文本_逐字分割 (a, arr
)文本_逐字分割 (b, arr2
)
计次循环首 (取数组成员数 (arr
), i
)
如果真 (arr
[i
] ＝ arr2
[i
])n ＝ n ＋ 1
计次循环尾 ()返回 (n
) 
