方差计算

冷战

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
数据列表	文本型		0
a	整数型
和	小数型
b	整数型
平均数	小数型
k	小数型
中位数	小数型
k2	整数型
rrrr	小数型		0
yu	整数型
众数	小数型		0
uio	整数型
众数显示	文本型
op	小数型		0
q	整数型
q1	整数型
q2	整数型
总和1	小数型
S2	小数型

l结果 ＝ “”
如果真 (数据.内容 ＝ “”)
信息框 (“请输入数据!”, 0, )
返回 ()
数据列表 ＝ 分割文本 (数据.内容, “,”, )
a ＝ 取数组成员数 (数据列表)
重定义数组 (数据列表, 真, a)
' 平均数---------------------------------------------------------------------------------------------------
l结果 ＝ l结果 ＋ “数据个数:” ＋ 到文本 (a) ＋ #换行符
和 ＝ 0
计次循环首 (a, b)
和 ＝ 和 ＋ 到数值 (数据列表 [b])
计次循环尾 ()
平均数 ＝ 和 ÷ a
' 中位数---------------------------------------------------------------------------------------------------
l结果 ＝ l结果 ＋ “平均数=” ＋ 到文本 (平均数) ＋ #换行符
k ＝ 四舍五入 (a ÷ 2, )
重定义数组 (rrrr, 假, 取数组成员数 (数据列表))
计次循环首 (取数组成员数 (数据列表), yu)
rrrr [yu] ＝ 到数值 (数据列表 [yu])
计次循环尾 ()
数组排序 (rrrr, 真)
判断 (k × 2 ＝ a)
中位数 ＝ (到数值 (rrrr [k]) ＋ 到数值 (rrrr [k ＋ 1])) ÷ 2
k2 ＝ (a ＋ 1) ÷ 2
中位数 ＝ 到数值 (rrrr [k2])
l结果 ＝ l结果 ＋ “中位数=” ＋ 到文本 (中位数) ＋ #换行符
' 众数-----------------------------------------------------------------------------------------------------
判断 (a ＝ 1)
众数显示 ＝ 数据.内容
l结果 ＝ l结果 ＋ “众数=” ＋ 众数显示 ＋ #换行符
求众数 (数据列表, 众数)
重定义数组 (众数, 真, 取数组成员数 (众数))
计次循环首 (取数组成员数 (众数), uio)
众数显示 ＝ 众数显示 ＋ 到文本 (众数 [uio]) ＋ “；”
计次循环尾 ()
l结果 ＝ l结果 ＋ “众数=” ＋ 众数显示 ＋ #换行符
' 方差-----------------------------------------------------------------------------------------------------
重定义数组 (op, 假, 取数组成员数 (数据列表))
计次循环首 (取数组成员数 (op), q)
op [q] ＝ 到数值 (数据列表 [q])
计次循环尾 ()
计次循环首 (取数组成员数 (op), q1)
op [q1] ＝ 求次方 (op [q1] － 平均数, 2)
计次循环尾 ()
计次循环首 (取数组成员数 (op), q2)
总和1 ＝ 总和1 ＋ op [q2]
计次循环尾 ()
S2 ＝ 总和1 ÷ 取数组成员数 (op)
l结果 ＝ l结果 ＋ “方差=” ＋ 到文本 (S2)
' 输出结果-------------------------------------------------------------------------------------------------
结果.内容 ＝ l结果

子程序名	返回值类型	公开	备 注
求众数
参数名	类 型	参考	可空	数组	备 注
文本	文本型
众数	小数型				返回值

变量名	类 型	静态	数组	备 注
r	整数型
数字	小数型		0
t	整数型
p	小数型		0
y	整数型
pp3	小数型		0
r2	整数型
众数1	小数型		0
o	整数型

重定义数组 (数字, 假, 取数组成员数 (文本))
计次循环首 (取数组成员数 (文本), r)
数字 [r] ＝ 到数值 (文本 [r])
计次循环尾 ()
数组排序 (数字, 真) ' 排列
重定义数组 (p, 假, 取数组成员数 (数字))
计次循环首 (取数组成员数 (数字), y)
p [y] ＝ 1
计次循环尾 () ' 初始化数字所对应的个数
t ＝ t ＋ 1
计次循环首 (取数组成员数 (数字), )
如果真 (数字 [t] ＝ 数字 [t ＋ 1])
p [t] ＝ p [t] ＋ 1
删除成员 (数字, t, 1)
t ＝ t － 1
如果真 (t ＋ 1 ≥ 取数组成员数 (数字))
跳出循环 ()
t ＝ t ＋ 1
计次循环尾 () ' 写入个数
重定义数组 (数字, 真, 取数组成员数 (数字))
重定义数组 (p, 真, 取数组成员数 (数字))
重定义数组 (pp3, 假, 取数组成员数 (p))
pp3 ＝ p
数组排序 (pp3, 假)
o ＝ 1
计次循环首 (取数组成员数 (p), r2)
如果真 (p [r2] ＝ pp3 [1])
重定义数组 (众数1, 真, o)
众数1 [o] ＝ 数字 [r2]
o ＝ o ＋ 1

计次循环尾 ()
众数 ＝ 众数1

子程序名	返回值类型	公开	备 注
_按钮2_被单击

纪录 ＝ 纪录 ＋ 结果.内容 ＋ #换行符

子程序名	返回值类型	公开	备 注
_按钮3_被单击

纪录 ＝ “”

子程序名	返回值类型	公开	备 注
_按钮4_被单击

结果.内容 ＝ 纪录[/b]
[b].版本 2[/b]
[b].全局变量 l结果, 文本型, 公开

全局变量名	类 型	数组	公开	备 注
tt	文本型		√
t2	文本型		√
纪录	文本型		√

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数据列表, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 和, 小数型<br /> .局部变量 b, 整数型<br /> .局部变量 平均数, 小数型<br /> .局部变量 k, 小数型<br /> .局部变量 中位数, 小数型<br /> .局部变量 k2, 整数型<br /> .局部变量 rrrr, 小数型, , "0"<br /> .局部变量 yu, 整数型<br /> .局部变量 众数, 小数型, , "0"<br /> .局部变量 uio, 整数型<br /> .局部变量 众数显示, 文本型<br /> .局部变量 op, 小数型, , "0"<br /> .局部变量 q, 整数型<br /> .局部变量 q1, 整数型<br /> .局部变量 q2, 整数型<br /> .局部变量 总和1, 小数型<br /> .局部变量 S2, 小数型<br /> <br /> l结果 ＝ “”<br /> .如果真 (数据.内容 ＝ “”)<br /> 信息框 (“请输入数据!”, 0, )<br /> 返回 ()<br /> .如果真结束<br /> 数据列表 ＝ 分割文本 (数据.内容, “,”, )<br /> a ＝ 取数组成员数 (数据列表)<br /> 重定义数组 (数据列表, 真, a)<br /> ' 平均数---------------------------------------------------------------------------------------------------<br /> l结果 ＝ l结果 ＋ “数据个数:” ＋ 到文本 (a) ＋ #换行符<br /> 和 ＝ 0<br /> .计次循环首 (a, b)<br /> 和 ＝ 和 ＋ 到数值 (数据列表 <strong>)<br /> .计次循环尾 ()<br /> 平均数 ＝ 和 ÷ a<br /> ' 中位数---------------------------------------------------------------------------------------------------<br /> l结果 ＝ l结果 ＋ “平均数=” ＋ 到文本 (平均数) ＋ #换行符<br /> k ＝ 四舍五入 (a ÷ 2, )<br /> 重定义数组 (rrrr, 假, 取数组成员数 (数据列表))<br /> .计次循环首 (取数组成员数 (数据列表), yu)<br /> rrrr [yu] ＝ 到数值 (数据列表 [yu])<br /> .计次循环尾 ()<br /> 数组排序 (rrrr, 真)<br /> .判断开始 (k × 2 ＝ a)<br /> 中位数 ＝ (到数值 (rrrr [k]) ＋ 到数值 (rrrr [k ＋ 1])) ÷ 2<br /> .默认<br /> k2 ＝ (a ＋ 1) ÷ 2<br /> 中位数 ＝ 到数值 (rrrr [k2])<br /> .判断结束<br /> l结果 ＝ l结果 ＋ “中位数=” ＋ 到文本 (中位数) ＋ #换行符<br /> ' 众数-----------------------------------------------------------------------------------------------------<br /> .判断开始 (a ＝ 1)<br /> 众数显示 ＝ 数据.内容<br /> l结果 ＝ l结果 ＋ “众数=” ＋ 众数显示 ＋ #换行符<br /> .默认<br /> 求众数 (数据列表, 众数)<br /> 重定义数组 (众数, 真, 取数组成员数 (众数))<br /> .计次循环首 (取数组成员数 (众数), uio)<br /> 众数显示 ＝ 众数显示 ＋ 到文本 (众数 [uio]) ＋ “；”<br /> .计次循环尾 ()<br /> l结果 ＝ l结果 ＋ “众数=” ＋ 众数显示 ＋ #换行符<br /> .判断结束<br /> ' 方差-----------------------------------------------------------------------------------------------------<br /> 重定义数组 (op, 假, 取数组成员数 (数据列表))<br /> .计次循环首 (取数组成员数 (op), q)<br /> op [q] ＝ 到数值 (数据列表 [q])<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (op), q1)<br /> op [q1] ＝ 求次方 (op [q1] － 平均数, 2)<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (op), q2)<br /> 总和1 ＝ 总和1 ＋ op [q2]<br /> .计次循环尾 ()<br /> S2 ＝ 总和1 ÷ 取数组成员数 (op)<br /> l结果 ＝ l结果 ＋ “方差=” ＋ 到文本 (S2)<br /> ' 输出结果-------------------------------------------------------------------------------------------------<br /> 结果.内容 ＝ l结果<br /> <br /> .子程序 求众数<br /> .参数 文本, 文本型, 数组<br /> .参数 众数, 小数型, 数组, 返回值<br /> .局部变量 r, 整数型<br /> .局部变量 数字, 小数型, , "0"<br /> .局部变量 t, 整数型<br /> .局部变量 p, 小数型, , "0"<br /> .局部变量 y, 整数型<br /> .局部变量 pp3, 小数型, , "0"<br /> .局部变量 r2, 整数型<br /> .局部变量 众数1, 小数型, , "0"<br /> .局部变量 o, 整数型<br /> <br /> 重定义数组 (数字, 假, 取数组成员数 (文本))<br /> .计次循环首 (取数组成员数 (文本), r)<br /> 数字 [r] ＝ 到数值 (文本 [r])<br /> .计次循环尾 ()<br /> 数组排序 (数字, 真) ' 排列<br /> 重定义数组 (p, 假, 取数组成员数 (数字))<br /> .计次循环首 (取数组成员数 (数字), y)<br /> p [y] ＝ 1<br /> .计次循环尾 () ' 初始化数字所对应的个数<br /> t ＝ t ＋ 1<br /> .计次循环首 (取数组成员数 (数字), )<br /> .如果真 (数字 [t] ＝ 数字 [t ＋ 1])<br /> p [t] ＝ p [t] ＋ 1<br /> 删除成员 (数字, t, 1)<br /> t ＝ t － 1<br /> .如果真结束<br /> .如果真 (t ＋ 1 ≥ 取数组成员数 (数字))<br /> 跳出循环 ()<br /> .如果真结束<br /> t ＝ t ＋ 1<br /> .计次循环尾 () ' 写入个数<br /> 重定义数组 (数字, 真, 取数组成员数 (数字))<br /> 重定义数组 (p, 真, 取数组成员数 (数字))<br /> 重定义数组 (pp3, 假, 取数组成员数 (p))<br /> pp3 ＝ p<br /> 数组排序 (pp3, 假)<br /> o ＝ 1<br /> .计次循环首 (取数组成员数 (p), r2)<br /> .如果真 (p [r2] ＝ pp3 [1])<br /> 重定义数组 (众数1, 真, o)<br /> 众数1 [o] ＝ 数字 [r2]<br /> o ＝ o ＋ 1<br /> .如果真结束<br /> <br /> .计次循环尾 ()<br /> 众数 ＝ 众数1<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 纪录 ＝ 纪录 ＋ 结果.内容 ＋ #换行符<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 纪录 ＝ “”<br /> <br /> .子程序 _按钮4_被单击<br /> <br /> 结果.内容 ＝ 纪录</strong><br /> <strong>.版本 2</strong><br /> <strong>.全局变量 l结果, 文本型, 公开<br /> .全局变量 tt, 文本型, 公开<br /> .全局变量 t2, 文本型, 公开<br /> .全局变量 纪录, 文本型, 公开

界面自己去做把

冷战

新建 WinRAR 压缩文件.rar (3.51 KB, 下载次数: 2)

2014-6-7 20:21 上传

点击文件名下载附件
下载积分: 精币 -2 枚

我去。好吧。不会搞怎么分享给你们下载。不需要金币。。那位教下我