易语言删除数组重复成员的代码

删除数组重复成员的代码

.版本 2 .支持库 spec .程序集 窗口程序集1 .程序集变量 数组, 整数型, , “0” .子程序 __启动窗口_创建完毕 置随机数种子 () .计次循环首 (10, ) 加入成员 (数组, 取随机数 (1, 5)) .计次循环尾 () 调试输出 (数组) .子程序 _去重按钮_被单击 .局部变量 计次1, 整数型 .局部变量 计次2, 整数型 .计次循环首 (取数组成员数 (数组), 计次1) .如果真 (计次1 ＞ 取数组成员数 (数组)) 跳出循环 () .如果真结束 .计次循环首 (取数组成员数 (数组) － 计次1, ) 计次2 ＝ 计次2 ＋ 1 .如果真 (数组 [计次1] ＝ 数组 [计次1 ＋ 计次2]) 删除成员 (数组, 计次1 ＋ 计次2, ) 计次2 ＝ 计次2 － 1 .如果真结束 .如果真 (计次1 ＋ 计次2 ＝ 取数组成员数 (数组)) 计次2 ＝ 0 跳出循环 () .如果真结束 .计次循环尾 () .计次循环尾 () 调试输出 (数组)