【XP】求一个平均数的算法

幻耶

判断$a1~$a6六个变量，如果其中有某个变量值等于0就排除在外，值大于0的就全部加起来求平均数。，比如如果$a1，$a2，$a4都等于0，那么平均数就是($a3+$a5+$a6)/3

希望写法简短一些，

rainfly

1. count = 0 # 不为零的个数
   
2. sum = 0 # 平均数之和
   
3. array1 = [$a1,$a2,$a3,$a4,$a5,$a6] # 把要计算的数加入数组
   
4. for i in 0...array1.size
   
5.   if array1[i]  == 0
   
6.     next
   
7.   end
   
8.   count += 1
   
9.   sum += array1[i]
   
10. end
    
11. ave = sum/count # 平均数

复制代码

亿万星辰

这又是要放在事件的脚本里吧。。。

1. a=[];6.times{|i|eval("a.push($a#{i+1})")}
   
2. a.delete(0);s=0;a.each{|i|s+=i};s/=a.size

复制代码

是按你的要求做的哦~  $a1~$a6  算法自然还是和以往一样很糙……

幻耶

只能评分不能认可了吗？