删数组重复数据，只留一个

陌白宝宝

如题；例：数组[1]=1  数组[2]=2  数组[3]=2   数组[4]=3


结果为： 数组[1]=1 数组[2]=2  数组[3]=3



供小白学习，不喜勿喷...

Conquer

神女软件定制

bug反馈

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 __启动窗口_创建完毕
   
5. .局部变量 Test, 整数型, , "0"
   
6. 
   
7. Test ＝ { 1, 2, 1 }
   
8. 数组删重复_留一个 (Test)
   
9. 调试输出 (Test)
   
10. 
    
11. .子程序 数组删重复_留一个
    
12. .参数 list, 整数型, 数组
    
13. .局部变量 number, 整数型
    
14. 
    
15. ' 如果是删重复的数组的文本，把参数list类型改成文本型就可以
    
16. .计次循环首 (取数组成员数 (list) － 1, number)  ' 数组里面的每两个数挨个对比
    
17.     .如果真 (list [number] ＝ list [number ＋ 1])  ' 如果两个数相等
    
18.         删除成员 (list, number, )  ' 删掉一个
    
19.         数组删重复_留一个 (list)  ' 在调用自己删一个重复的数，如果没有重复的了，就挨个结束
    
20.         跳出循环 ()  ' 结束循环
    
21.     .如果真结束
    
22. 
    
23. .计次循环尾 ()
    

复制代码

陌白宝宝

排完序的情况下

陌白宝宝

神一样的女人 发表于 2018-4-5 12:49
bug反馈

嗯嗯  排序情况下可以 晚上再发个任意位置的

htxzy

111111111111111111111111

coolfire1983

楼主只能删除相邻重复的情况吧  比如 {1,2,3,2}这样的就删不掉重复的吧

陌白宝宝

coolfire1983 发表于 2018-4-9 15:21
楼主只能删除相邻重复的情况吧  比如 {1,2,3,2}这样的就删不掉重复的吧

这个是删排序之后的，任意位置帖子在这https://125.confly.eu.org/forum.php?mod=viewthread&tid=14147798&page=1&ordertype=1#pid12910634

bs80119514

还是节点的 简单实用

张传铭

还是节点的 简单实用