数组问题求助

13410717515

一个数组如：一单，三大，三小，四大，五小，六单，六双，七双，八小，九单，十大
求组当出现类似这种大小单双前面的大写数字是一样的情况下，把两个成员同时删除，这组数组中有四个成员：三大，三小；六单，六双，删除后的数组为：一单，四大，五小，七双，八小，九单，十大，请大神写个示例文件，谢谢

神女软件定制

  

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

变量名	类 型	静态	数组	备 注
arr	文本型		0
nPos	整数型
str	文本型
bRemove	逻辑型
j	整数型

arr ＝ { “一单”, “三大”, “三小”, “四大”, “五小”, “六单”, “六双”, “七双”, “八小”, “九单”, “十大” }
nPos ＝ 取数组成员数 (arr)
判断循环首 (nPos ＞ 0)
str ＝ 取文本左边 (arr [nPos], 2)
bRemove ＝ 假
变量循环首 (nPos － 1, 1, -1, j)
如果真 (取文本左边 (arr [j], 2) ＝ str)
如果真 (bRemove ＝ 假)
bRemove ＝ 真
删除成员 (arr, nPos, )
删除成员 (arr, j, )
nPos ＝ nPos － 1

变量循环尾 ()
nPos ＝ nPos － 1
判断循环尾 ()
调试输出 (arr)
' * 数组:7{“一单”,“四大”,“五小”,“七双”,“八小”,“九单”,“十大”}

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 nPos, 整数型<br /> .局部变量 str, 文本型<br /> .局部变量 bRemove, 逻辑型<br /> .局部变量 j, 整数型<br /> <br /> arr ＝ { “一单”, “三大”, “三小”, “四大”, “五小”, “六单”, “六双”, “七双”, “八小”, “九单”, “十大” }<br /> nPos ＝ 取数组成员数 (arr)<br /> .判断循环首 (nPos ＞ 0)<br />     str ＝ 取文本左边 (arr [nPos], 2)<br />     bRemove ＝ 假<br />     .变量循环首 (nPos － 1, 1, -1, j)<br />         .如果真 (取文本左边 (arr [j], 2) ＝ str)<br />             .如果真 (bRemove ＝ 假)<br />                 bRemove ＝ 真<br />                 删除成员 (arr, nPos, )<br />             .如果真结束<br />             删除成员 (arr, j, )<br />             nPos ＝ nPos － 1<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br />     nPos ＝ nPos － 1<br /> .判断循环尾 ()<br /> 调试输出 (arr)<br /> ' * 数组:7{“一单”,“四大”,“五小”,“七双”,“八小”,“九单”,“十大”}

zm520

按照lz说的例子，技术不精，高手看到可指出不足之处

ku2017

神女软件定制

  

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

变量名	类 型	静态	数组	备 注
arr	文本型		0
nPos	整数型
str	文本型
bRemove	逻辑型
j	整数型

arr ＝ { “一单”, “三大”, “三小”, “四大”, “五小”, “六单”, “六双”, “七双”, “八小”, “九单”, “十大”, “十大” }
nPos ＝ 取数组成员数 (arr)
判断循环首 (nPos ＞ 0)
str ＝ 取文本左边 (arr [nPos], 2)
bRemove ＝ 假
变量循环首 (nPos － 1, 1, -1, j)
如果真 (取文本左边 (arr [j], 2) ＝ str)
如果真 (bRemove ＝ 假)
bRemove ＝ 真
删除成员 (arr, nPos, )
删除成员 (arr, j, )
nPos ＝ nPos － 1

变量循环尾 ()
nPos ＝ nPos － 1
判断循环尾 ()
调试输出 (arr)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 nPos, 整数型<br /> .局部变量 str, 文本型<br /> .局部变量 bRemove, 逻辑型<br /> .局部变量 j, 整数型<br /> <br /> arr ＝ { “一单”, “三大”, “三小”, “四大”, “五小”, “六单”, “六双”, “七双”, “八小”, “九单”, “十大”, “十大” }<br /> nPos ＝ 取数组成员数 (arr)<br /> .判断循环首 (nPos ＞ 0)<br />     str ＝ 取文本左边 (arr [nPos], 2)<br />     bRemove ＝ 假<br />     .变量循环首 (nPos － 1, 1, -1, j)<br />         .如果真 (取文本左边 (arr [j], 2) ＝ str)<br />             .如果真 (bRemove ＝ 假)<br />                 bRemove ＝ 真<br />                 删除成员 (arr, nPos, )<br />             .如果真结束<br />             删除成员 (arr, j, )<br />             nPos ＝ nPos － 1<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br />     nPos ＝ nPos － 1<br /> .判断循环尾 ()<br /> 调试输出 (arr)

补充内容 (2020-9-13 22:27):
* 数组:6{“一单”,“四大”,“五小”,“七双”,“八小”,“九单”}