精易论坛

标题: 建议加入 取数组成员出现次数（参数_数组，参数_某成员） [打印本页]
作者: C盘是头猪    时间: 2014-11-30 09:18
标题: 建议加入 取数组成员出现次数（参数_数组，参数_某成员）
本帖最后由 萧阳天 于 2014-12-1 13:40 编辑

建议加入    取数组成员出现次数（参数_数组，参数_某成员）

这个功能被遗忘，真的不应该啊
作者: C盘是头猪    时间: 2014-11-30 10:11
  1. [code].版本 2

  3. .子程序 子_取数组成员出现次数, 整数型
  4. .参数 参数_数组, 文本型, 数组
  5. .参数 参数_成员, 文本型
  6. .局部变量 局_新数据, 自定义_新数据
  7. .局部变量 局_n, 整数型
  8. .局部变量 局_i, 整数型
  9. .局部变量 集_数组二, 自定义_新数据, , "0"

  11. .计次循环首 (取数组成员数 (参数_数组) － 1, 局_i)
  12.     .如果 (参数_数组 [局_i] ＝ 参数_数组 [局_i ＋ 1])
  13.         局_n ＝ 局_n ＋ 1
  14.     .否则
  15.         .如果真 (局_n ＞ 0)
  16.             局_新数据.当前值 ＝ 参数_数组 [局_i]
  17.             局_新数据.重复次数 ＝ 局_n ＋ 1
  18.             加入成员 (集_数组二, 局_新数据)
  19.             局_n ＝ 0
  20.         .如果真结束

  22.     .如果结束

  24. .计次循环尾 ()

  26. .计次循环首 (取数组成员数 (集_数组二), 局_i)

  28.     .如果真 (集_数组二 [局_i].当前值 ＝ 参数_成员)
  29.         返回 (集_数组二 [局_i].重复次数)
  30.     .如果真结束

  32. .计次循环尾 ()
  33. 返回 (0)
复制代码



[/code]
作者: C盘是头猪    时间: 2014-11-30 10:13
.版本 2
.数据类型 自定义_新数据, 公开
    .成员 当前值, 文本型
    .成员 重复次数, 整数型

作者: C盘是头猪    时间: 2014-11-30 14:00
上述代码太复杂，而且执行起来有问题。
建议用下面这个，简单
  1. .版本 2

  3. .子程序 子_取数组成员出现次数, 整数型
  4. .参数 参数_数组, 文本型, 数组
  5. .参数 参数_成员, 文本型
  6. .局部变量 局_n, 整数型
  7. .局部变量 局_i, 整数型

  9. .计次循环首 (取数组成员数 (参数_数组), 局_i)
  10.     .如果 (参数_数组 [局_i] ＝ 参数_成员)
  11.         局_n ＝ 局_n ＋ 1
  12.     .否则

  14.     .如果结束

  16. .计次循环尾 ()
  17. 返回 (局_n)
复制代码
作者: C盘是头猪    时间: 2014-11-30 14:01
上述代码太复杂，而且执行起来有问题。
建议用下面这个，简单
  1. .版本 2

  3. .子程序 子_取数组成员出现次数, 整数型
  4. .参数 参数_数组, 文本型, 数组
  5. .参数 参数_成员, 文本型
  6. .局部变量 局_n, 整数型
  7. .局部变量 局_i, 整数型

  9. .计次循环首 (取数组成员数 (参数_数组), 局_i)
  10.     .如果 (参数_数组 [局_i] ＝ 参数_成员)
  11.         局_n ＝ 局_n ＋ 1
  12.     .否则

  14.     .如果结束

  16. .计次循环尾 ()
  17. 返回 (局_n)
复制代码
作者: lu2423    时间: 2014-12-1 12:16
这玩意貌似没多大用途
作者: C盘是头猪    时间: 2014-12-1 12:22
lu2423 发表于 2014-12-1 12:16
这玩意貌似没多大用途

你还没用到过，当然这样觉得



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