关于水果分配的逻辑问题，大牛进来 分配一下水果

sd3970566

环境：我有很多种水果： 香蕉   桃子  梨子   
要分配给的工人人数也是1-4人不等 有时候1人有时候4人。分配给的水果有时少于四个，有时大于
假如0:我要分1个香蕉给4个人      工人甲=1    工人乙=0    工人丙=0   工人丁=0
假如1:我要分4个香蕉给4个人      工人甲=1    工人乙=1    工人丙=1   工人丁=1
假如2:我要分5个香蕉给4个人      工人甲=2    工人乙=1    工人丙=1   工人丁=1
假如3:我要分6个香蕉给4个人      工人甲=2    工人乙=2    工人丙=1   工人丁=1

求大神写个程序      把多种水果作为参数一     把工人数 作为参数二      

通过程序计算后  直接得出    每个工人所分配的水果以及数量


补充内容 (2015-5-17 19:22):
假如水果  香蕉10   桃子4  梨子3     有四个工人分
得出这样的结果
工人甲“香蕉|3，桃子|1，梨子|1  ”
工人乙“香蕉|3，桃子|1，梨子|1  ”
工人丙“香蕉|2，桃子|1，梨子|1  ”
工人丁“香蕉|3，桃...

爱家的小懒虫

上面的是随机分配方式

这里更新了下,你的分配方式.


分配水果.rar (108.35 KB, 下载次数: 12)

2015-5-17 20:29 上传

点击文件名下载附件

爱家的小懒虫

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 窗口程序集1
   
5. .程序集变量 水果种类, 文本型, , "0"
   
6. 
   
7. .子程序 __启动窗口_创建完毕
   
8. 
   
9. 水果种类 ＝ { “香蕉”, “桃子”, “梨子” }
   
10. 置随机数种子 ()
    
11. 
    
12. .子程序 _按钮1_被单击
    
13. .局部变量 多种水果, 整数型, , "0"
    
14. .局部变量 工人, 文本型, , "0"
    
15. 
    
16. 多种水果 ＝ { 10, 4, 3 }
    
17. 工人 ＝ { “工人甲”, “工人乙”, “工人丙”, “工人丁” }
    
18. 给工人分配水果 (多种水果, 工人)
    
19. 
    
20. 
    
21. .子程序 给工人分配水果
    
22. .参数 参_多种水果, 整数型, 数组
    
23. .参数 参_工人, 文本型, 数组
    
24. .局部变量 i, 整数型
    
25. .局部变量 j, 整数型
    
26. .局部变量 剩余水果, 整数型, , "0"
    
27. .局部变量 工人获取水果, 整数型, , "0"
    
28. .局部变量 temp, 文本型
    
29. 
    
30. 剩余水果 ＝ 参_多种水果
    
31. 重定义数组 (工人获取水果, 假, 取数组成员数 (参_多种水果))
    
32. 调试输出 (剩余水果, 参_工人)
    
33. .计次循环首 (取数组成员数 (参_工人), i)  ' 按工人
    
34.     temp ＝ 参_工人 [i]
    
35.     .计次循环首 (取数组成员数 (剩余水果), j)  ' 按水果种类
    
36.         工人获取水果 [j] ＝ 取随机数 (0, 剩余水果 [j])  ' 第一个工人,从每种水果中,分配0-N个水果 这里应该控制工人获取最大数量
    
37.         剩余水果 [j] ＝ 剩余水果 [j] － 工人获取水果 [j]  ' 更新剩余水果
    
38.         temp ＝ temp ＋ “ ” ＋ 水果种类 [j] ＋ “|” ＋ 到文本 (工人获取水果 [j]) ＋ “ ”
    
39.     .计次循环尾 ()
    
40.     调试输出 (temp)
    
41. .计次循环尾 ()
    
42. 
    
43. 
    
44. ' 环境：我有很多种水果： 香蕉   桃子  梨子
    
45. ' 要分配给的工人人数也是1-4人不等 有时候1人有时候4人。分配给的水果有时少于四个，有时大于
    
46. ' 假如0:我要分1个香蕉给4个人      工人甲=1    工人乙=0    工人丙=0   工人丁=0
    
47. ' 假如1:我要分4个香蕉给4个人      工人甲=1    工人乙=1    工人丙=1   工人丁=1
    
48. ' 假如2:我要分5个香蕉给4个人      工人甲=2    工人乙=1    工人丙=1   工人丁=1
    
49. ' 假如3:我要分6个香蕉给4个人      工人甲=2    工人乙=2    工人丙=1   工人丁=1
    
50. 
    
51. ' 求大神写个程序      把多种水果作为参数一     把工人数 作为参数二
    
52. 
    
53. ' 通过程序计算后  直接得出    每个工人所分配的水果以及数量
    
54. 
    
55. ' 补充内容 (2015-5-17 19:22):
    
56. ' 假如水果  香蕉10   桃子4  梨子3     有四个工人分
    
57. ' 得出这样的结果
    
58. ' 工人甲“香蕉|3，桃子|1，梨子|1  ”
    
59. ' 工人乙“香蕉|3，桃子|1，梨子|1  ”
    
60. ' 工人丙“香蕉|2，桃子|1，梨子|1  ”
    
61. ' 工人丁“香蕉|3，桃...
    
62. 
    

复制代码

sd3970566

爱家的小懒虫 发表于 2015-5-17 20:08

大神再帮我修改一下。 因为我不是要求随机分配的。  

类似这样的  
4个人  4个苹果的话   每个人一个  
4个人  5个苹果的话   不够分    甲2个 其他人各一个
4个人  6个苹果的话   不够分    甲2个 乙2个  其他人各一个
4个人  7个苹果的话   不够分    甲2    乙2     丙2   丁1个  

sd3970566

爱家的小懒虫 发表于 2015-5-17 20:29
上面的是随机分配方式

这里更新了下,你的分配方式.

太牛逼了！！！！

sd3970566

爱家的小懒虫 发表于 2015-5-17 20:29
上面的是随机分配方式

这里更新了下,你的分配方式.

我希望把 这句里面的数字    用编辑框的内容来代替  要怎么操作啊。 编辑框1.内容    到   编辑框9.内容   
赋值给多种水果