如果要编一个算平均数的程序，怎么
我没学过jade，但是这个看上去很好懂，所以……我试着解释一下。
ars 变量定义
num:RealArray; 定义num为实数数组
index:Integer; 定义index为整数型
value:Real; 定义value为实数型
begin ...全部
我没学过jade，但是这个看上去很好懂，所以……我试着解释一下。
ars 变量定义
num:RealArray; 定义num为实数数组
index:Integer; 定义index为整数型
value:Real; 定义value为实数型
begin 程序开始
creat num transient; （不知道！）
index:=1; 给index赋值1
write"please input a number that is not 0"; 输出“请输入一个不是0的数字”
read value; 读入数据到value
while value<>0 do; 当value不是0时：
num[index]:=value; 给num的第index个元素赋值；value
index:=index+1; index自加1；
read value; 读入数据到value
endwhile; 。
end; 程序结束
不过这个程序里面好像没有相除的代码啊。而且没有输出。
这个…不对吧？
相应的vb代码(其实在Basic里面也可以运行，稍微改一改输入的函数就可以了)：
Dim num As Double, Index as Integer, value as Double
index = 1
value=InputBox("请输入一个不是0的数字")
While value <> 0
num = num + value
index = index + 1
value=InputBox("请输入一个不是0的数字")
Wend
index = index - 1
msgbox value/index
最后msgbox中的数字就是这些数的平均数。收起
