Project1

标题: 【XP】求一个平均数的算法 [打印本页]

作者: 幻耶 时间: 2011-12-26 14:48
标题: 【XP】求一个平均数的算法
判断$a1~$a6六个变量，如果其中有某个变量值等于0就排除在外，值大于0的就全部加起来求平均数。，比如如果$a1，$a2，$a4都等于0，那么平均数就是($a3+$a5+$a6)/3

希望写法简短一些，

作者: rainfly 时间: 2011-12-26 18:19
本帖最后由 rainfly 于 2011-12-27 08:47 编辑

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

复制代码

作者: 亿万星辰 时间: 2011-12-26 20:12
本帖最后由亿万星辰于 2011-12-26 20:16 编辑

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

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

复制代码

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

作者: 幻耶 时间: 2011-12-27 08:35
只能评分不能认可了吗？

欢迎光临 Project1 (https://rpg.blue/)