精易论坛

标题: 删数组重复数据，只留一个 [打印本页]
作者: 陌白宝宝    时间: 2018-4-5 12:34
标题: 删数组重复数据，只留一个

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


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



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



QQ图片20180405123206.png (20.93 KB, 下载次数: 1)

QQ图片20180405123206.png

删数组重复_只留一个.e

2.83 KB, 下载次数: 30, 下载积分: 精币 -2 枚

作者: Conquer    时间: 2018-4-5 12:41
作者: 神女软件定制    时间: 2018-4-5 12:49
bug反馈
  1. .版本 2
  2. .支持库 spec

  4. .子程序 __启动窗口_创建完毕
  5. .局部变量 Test, 整数型, , "0"

  7. Test ＝ { 1, 2, 1 }
  8. 数组删重复_留一个 (Test)
  9. 调试输出 (Test)

  11. .子程序 数组删重复_留一个
  12. .参数 list, 整数型, 数组
  13. .局部变量 number, 整数型

  15. ' 如果是删重复的数组的文本，把参数list类型改成文本型就可以
  16. .计次循环首 (取数组成员数 (list) － 1, number)  ' 数组里面的每两个数挨个对比
  17.     .如果真 (list [number] ＝ list [number ＋ 1])  ' 如果两个数相等
  18.         删除成员 (list, number, )  ' 删掉一个
  19.         数组删重复_留一个 (list)  ' 在调用自己删一个重复的数，如果没有重复的了，就挨个结束
  20.         跳出循环 ()  ' 结束循环
  21.     .如果真结束

  23. .计次循环尾 ()
复制代码
作者: 陌白宝宝    时间: 2018-4-5 12:56
排完序的情况下
作者: 陌白宝宝    时间: 2018-4-5 13:14
神一样的女人 发表于 2018-4-5 12:49
bug反馈

嗯嗯  排序情况下可以 晚上再发个任意位置的
作者: htxzy    时间: 2018-4-5 22:46
111111111111111111111111
作者: coolfire1983    时间: 2018-4-9 15:21
楼主只能删除相邻重复的情况吧  比如 {1,2,3,2}这样的就删不掉重复的吧
作者: 陌白宝宝    时间: 2018-4-9 16:14
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    时间: 2018-4-10 00:20
还是节点的 简单实用
作者: 张传铭    时间: 2018-4-10 17:27
还是节点的 简单实用



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4