数组排列问题

柳叶飞

kingsee 发表于 2013-9-28 23:26
我上面这个是对于两个组合的做法，肯定是没有重复的，三个的你自己研究下

2个组合其实和九九乘法表一样，问题就在于3个以上时

kingsee

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. .程序集变量 生肖数组, 文本型, , "12"
   
5. 
   
6. .子程序 _按钮1_被单击
   
7. .局部变量 i, 整数型
   
8. .局部变量 组合数目, 整数型
   
9. .局部变量 n, 整数型
   
10. 
    
11. 编辑框_结果.内容 ＝ “”
    
12. 子程序1 ()
    
13. 组合数目 ＝ 到整数 (编辑框_组合数目.内容)
    
14. .循环判断首 ()
    
15.     .变量循环首 (2, 取数组成员数 (生肖数组) － 组合数目 ＋ 2, 1, i)
    
16.         编辑框_结果.加入文本 (生肖数组 [1])
    
17.         .计次循环首 (组合数目 － 1, n)
    
18.             编辑框_结果.加入文本 (生肖数组 [i － 1 ＋ n])
    
19.         .计次循环尾 ()
    
20.         编辑框_结果.加入文本 (#换行符)
    
21.     .变量循环尾 ()
    
22.     删除成员 (生肖数组, 1, )
    
23. .循环判断尾 (取数组成员数 (生肖数组) ＞ 组合数目 － 1)
    
24. 
    
25. .子程序 子程序1
    
26. .局部变量 i, 整数型
    
27. 
    
28. 重定义数组 (生肖数组, 假, 12)
    
29. .计次循环首 (12, i)
    
30.     生肖数组 [i] ＝ 多项选择 (i, “鼠”, “牛”, “虎”, “兔”, “龙”, “蛇”, “马”, “羊”, “猴”, “鸡”, “狗”, “猪”)
    
31. .计次循环尾 ()
    
32. 
    

复制代码

这个你测试下，我测试过了，任何组合都没重复的

kingsee

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. .程序集变量 生肖数组, 文本型, , "12"
   
5. 
   
6. .子程序 _按钮1_被单击
   
7. .局部变量 i, 整数型
   
8. .局部变量 组合数目, 整数型
   
9. .局部变量 n, 整数型
   
10. 
    
11. 编辑框_结果.内容 ＝ “”
    
12. 子程序1 ()
    
13. 组合数目 ＝ 到整数 (编辑框_组合数目.内容)
    
14. .循环判断首 ()
    
15.     .变量循环首 (2, 取数组成员数 (生肖数组) － 组合数目 ＋ 2, 1, i)
    
16.         编辑框_结果.加入文本 (生肖数组 [1])
    
17.         .计次循环首 (组合数目 － 1, n)
    
18.             编辑框_结果.加入文本 (生肖数组 [i － 1 ＋ n])
    
19.         .计次循环尾 ()
    
20.         编辑框_结果.加入文本 (#换行符)
    
21.     .变量循环尾 ()
    
22.     删除成员 (生肖数组, 1, )
    
23. .循环判断尾 (取数组成员数 (生肖数组) ＞ 组合数目 － 1)
    
24. 
    
25. .子程序 子程序1
    
26. .局部变量 i, 整数型
    
27. 
    
28. 重定义数组 (生肖数组, 假, 12)
    
29. .计次循环首 (12, i)
    
30.     生肖数组 [i] ＝ 多项选择 (i, “鼠”, “牛”, “虎”, “兔”, “龙”, “蛇”, “马”, “羊”, “猴”, “鸡”, “狗”, “猪”)
    
31. .计次循环尾 ()
    
32. 
    

复制代码