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

C盘是头猪

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

这个功能被遗忘，真的不应该啊

C盘是头猪

lu2423 发表于 2014-12-1 12:16
这玩意貌似没多大用途

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

lu2423

这玩意貌似没多大用途

C盘是头猪

上述代码太复杂，而且执行起来有问题。
建议用下面这个，简单

1. .版本 2
   
2. 
   
3. .子程序 子_取数组成员出现次数, 整数型
   
4. .参数 参数_数组, 文本型, 数组
   
5. .参数 参数_成员, 文本型
   
6. .局部变量 局_n, 整数型
   
7. .局部变量 局_i, 整数型
   
8. 
   
9. .计次循环首 (取数组成员数 (参数_数组), 局_i)
   
10.     .如果 (参数_数组 [局_i] ＝ 参数_成员)
    
11.         局_n ＝ 局_n ＋ 1
    
12.     .否则
    
13. 
    
14.     .如果结束
    
15. 
    
16. .计次循环尾 ()
    
17. 返回 (局_n)
    

复制代码

C盘是头猪

上述代码太复杂，而且执行起来有问题。
建议用下面这个，简单

1. .版本 2
   
2. 
   
3. .子程序 子_取数组成员出现次数, 整数型
   
4. .参数 参数_数组, 文本型, 数组
   
5. .参数 参数_成员, 文本型
   
6. .局部变量 局_n, 整数型
   
7. .局部变量 局_i, 整数型
   
8. 
   
9. .计次循环首 (取数组成员数 (参数_数组), 局_i)
   
10.     .如果 (参数_数组 [局_i] ＝ 参数_成员)
    
11.         局_n ＝ 局_n ＋ 1
    
12.     .否则
    
13. 
    
14.     .如果结束
    
15. 
    
16. .计次循环尾 ()
    
17. 返回 (局_n)
    

复制代码

C盘是头猪

.版本 2
.数据类型 自定义_新数据, 公开
    .成员 当前值, 文本型
    .成员 重复次数, 整数型

C盘是头猪

1. [code].版本 2
   
2. 
   
3. .子程序 子_取数组成员出现次数, 整数型
   
4. .参数 参数_数组, 文本型, 数组
   
5. .参数 参数_成员, 文本型
   
6. .局部变量 局_新数据, 自定义_新数据
   
7. .局部变量 局_n, 整数型
   
8. .局部变量 局_i, 整数型
   
9. .局部变量 集_数组二, 自定义_新数据, , "0"
   
10. 
    
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.         .如果真结束
    
21. 
    
22.     .如果结束
    
23. 
    
24. .计次循环尾 ()
    
25. 
    
26. .计次循环首 (取数组成员数 (集_数组二), 局_i)
    
27. 
    
28.     .如果真 (集_数组二 [局_i].当前值 ＝ 参数_成员)
    
29.         返回 (集_数组二 [局_i].重复次数)
    
30.     .如果真结束
    
31. 
    
32. .计次循环尾 ()
    
33. 返回 (0)
    

复制代码

[/code]