之前冒泡排序去重复有些bug换个快排去重复

cf2006a

之前冒泡排序去重复有些不对，在交换变量之后数据错乱 导致可以排序却有些重复数据无法去除，想了半天也没解决就换了个排序方法 快速排序 加去重复，

快排去重复.e (5.72 KB, 下载次数: 40)

2018-7-6 21:09 上传

点击文件名下载附件
因为不能像吃尾那样从尾部删除数组成员只能把数组成员值删成空达到去重复的目的！


过滤下

boomsa

谢谢分享

LBrowser

感谢楼主，学习一下　　　　　　　　　　　　　

cf2006a

万里禅天 发表于 2018-7-7 00:23
这样应该也一样吧

[e=0].版本 2

只要能达到目的什么方法都可以然后再求速度

longsui48

唉 看这个js看的我都晕了

z博士

支持分享         

z博士

学习一下         

走路有点憨

这样应该也一样吧

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	文本型		0
i	整数型

a ＝ 分割文本 (编辑框1.内容, “,”, )
编辑框2.内容 ＝ 快速排序_易_去重复 (a)

子程序名	返回值类型	公开	备 注
快速排序_易_去重复	文本型
参数名	类 型	参考	可空	数组	备 注
参数_数组	文本型

变量名	类 型	静态	数组	备 注
a	整数型
b	整数型
c	节点
新文本	文本型

计次循环首 (取数组成员数 (参数_数组), a)
计次循环首 (取数组成员数 (参数_数组) － a, b)
如果真 (到数值 (参数_数组 [b]) ＜ 到数值 (参数_数组 [b ＋ 1]))  ' 把最小的调到数组最后
交换变量 (参数_数组 [b], 参数_数组 [b ＋ 1])

计次循环尾 ()
如果真 (c.加入属性 (参数_数组 [b], 真))
新文本 ＝ 新文本 ＋ 参数_数组 [b] ＋ “,”  ' 所以先输出的是最小的，注意这里的b在计次循环尾又加了1

计次循环尾 ()
返回 (新文本)

i支持库列表	支持库注释
EDataStructure	数据结构支持库

.版本 2<br /> .支持库 EDataStructure<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> a ＝ 分割文本 (编辑框1.内容, “,”, )<br /> <br /> 编辑框2.内容 ＝ 快速排序_易_去重复 (a)<br /> <br /> <br /> .子程序 快速排序_易_去重复, 文本型<br /> .参数 参数_数组, 文本型, 数组<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 节点<br /> .局部变量 新文本, 文本型<br /> <br /> .计次循环首 (取数组成员数 (参数_数组), a)<br />     .计次循环首 (取数组成员数 (参数_数组) － a, b)<br />         .如果真 (到数值 (参数_数组 <strong>) ＜ 到数值 (参数_数组 [b ＋ 1]))  ' 把最小的调到数组最后<br />             交换变量 (参数_数组 <strong>, 参数_数组 [b ＋ 1])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (c.加入属性 (参数_数组 <strong>, 真))<br />         新文本 ＝ 新文本 ＋ 参数_数组 <strong> ＋ “,”  ' 所以先输出的是最小的，注意这里的b在计次循环尾又加了1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (新文本)

nn2287

最基础的算法，有利于新手打好基础