初中数据分析计算软件

龘譶飍靐 · 发表于 2017-4-3 16:20:37

本程序可以一键计算一组数据的总和、平均数、中位数、众数、方差、标准差。

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

数据框.插入列 (0, “数据”, 191, 1, , )
数据框.插入列 (1, “权”, 191, 1, , )

子程序名	返回值类型	公开	备注
_确认添加_被单击

如果真 (到数值 (修改权.内容) ＞ 0 且数据添加.内容 ≠ “”)

索引＝数据框.插入表项 (, , , , , )

数据框.置标题 (索引, 0, 数据添加.内容)

数据框.置标题 (索引, 1, 修改权.内容)

如果 (数据框.取表项数 () ≠ 0)

一键计算.禁止＝假

一键计算.禁止＝真
数据添加.获取焦点 ()
数据添加.内容＝ “”
修改权.内容＝ “1”

子程序名	返回值类型	公开	备注
_修改权_获得焦点

修改权.内容＝ “”

子程序名	返回值类型	公开	备注
_修改权_失去焦点

如果真 (到数值 (修改权.内容) ≤ 0)

修改权.内容＝ “1”

子程序名	返回值类型	公开	备注
_数据添加_放开某键	逻辑型
参数名	类型	参考	可空	数组	备注
键代码	整数型
功能键状态	整数型

如果 (键代码＝ #回车键且功能键状态＝ #Ctrl键状态 )

_一键计算_被单击 ()

如果真 (键代码＝ #回车键 )

_确认添加_被单击 ()

子程序名	返回值类型	公开	备注
_修改权_放开某键	逻辑型
参数名	类型	参考	可空	数组	备注
键代码	整数型
功能键状态	整数型

如果 (键代码＝ #回车键且功能键状态＝ #Ctrl键状态 )

_一键计算_被单击 ()

如果真 (键代码＝ #回车键 )

_确认添加_被单击 ()

子程序名	返回值类型	公开	备注
_清空数据_鼠标左键被放开	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果真 (信息框 (“确认清空数据？” ＋ #换行符＋ “清空后无法找回！”, 1, “警告”) ＝ #确认钮 )

清除结果 ()

子程序名	返回值类型	公开	备注
_一键计算_被单击

清除结果 ()
重定义数组 (数据, 真, 3000000)
重定义数组 (众数, 真, 3000000)

计次循环首 (数据框.取表项数 (), i)

总权＝总权＋到数值 (数据框.取标题 (i － 1, 1))

计次循环首 (到数值 (数据框.取标题 (i － 1, 1)), j)

k ＝ k ＋ 1

总和＝总和＋到数值 (数据框.取标题 (i － 1, 0))

数据 [k] ＝到数值 (数据框.取标题 (i － 1, 0))

计次循环尾 ()

计次循环尾 ()
数组排序 (数据, 真)
ans.标题＝ “总和：” ＋到文本 (总和)
NoD.标题＝ “数据个数：” ＋到文本 (总权)
平均数＝总和 ÷ 总权
mean.标题＝ “平均数：” ＋到文本 (平均数)

如果 (总权％ 2 ＝ 0)

中位数＝ (数据 [总权＼ 2] ＋数据 [总权＼ 2 ＋ 1]) ÷ 2

中位数＝数据 [总权＼ 2 ＋ 1]
median.标题＝ “中位数：” ＋到文本 (中位数)

计次循环首 (数据框.取表项数 (), i)

如果真 (到数值 (数据框.取标题 (i － 1, 1)) ≥ 待比较权)

如果真 (到数值 (数据框.取标题 (i － 1, 1)) ＝待比较权)

t ＝ t ＋ 1

众数 [t] ＝到数值 (数据框.取标题 (i － 1, 0))

如果真 (到数值 (数据框.取标题 (i － 1, 1)) ＞待比较权)

众数 [t] ＝到数值 (数据框.取标题 (i － 1, 0))

待比较权＝到数值 (数据框.取标题 (i － 1, 1))

如果真 (到数值 (数据框.取标题 (i － 1, 1)) ≠ 待比较权且待比较权 ≠ -2147483646)

是否有不同权＝真

计次循环尾 ()
数组排序 (众数, 真)

计次循环首 (总权, i)

如果真 (是否有不同权＝假)

mode.标题＝ “众数：无”

跳出循环 ()

如果真 (众数 [i] ≠ 2147483647)

如果 (是否首个众数)

mode.标题＝ mode.标题＋到文本 (众数 [i])

mode.标题＝ mode.标题＋ “和” ＋到文本 (众数 [i])

是否首个众数＝假

计次循环尾 ()

计次循环首 (总权, i)

平方和＝平方和＋求次方 (数据 [i] －平均数, 2)

计次循环尾 ()
方差＝平方和 ÷ 总权
variance.标题＝ “方差：” ＋到文本 (方差)
标准差＝求平方根 (方差)
std.标题＝ “标准差：” ＋到文本 (标准差)
极差＝数据 [总权] －数据 [1]
range.标题＝ “极差：” ＋到文本 (极差)
数据添加.获取焦点 ()

子程序名	返回值类型	公开	备注
清除结果

待比较权＝ -2147483646
t ＝ 1
总和＝ 0
总权＝ 0
平均数＝ 0
中位数＝ 0

计次循环首 (3000000, i)

数据 [i] ＝ 2147483647

计次循环尾 ()

计次循环首 (3000000, i)

众数 [i] ＝ 2147483647

计次循环尾 ()
平方和＝ 0
方差＝ 0
标准差＝ 0
是否首个众数＝真
是否有不同权＝假
ans.标题＝ “总和：”
NoD.标题＝ “数据个数：”
mean.标题＝ “平均数：”
median.标题＝ “中位数：”
mode.标题＝ “众数：”
variance.标题＝ “方差：”
std.标题＝ “标准差：”
range.标题＝ “极差：”

子程序名	返回值类型	公开	备注
_重置数据_鼠标左键被放开	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果真 (信息框 (“确定重置？” ＋ #换行符＋ “所有数据都将被清除！”, 1, “警告”) ＝ #确认钮 )

载入 (保留窗口, , 假)

_启动窗口.销毁 ()

载入 (_启动窗口, , 假)

保留窗口.销毁 ()

子程序名	返回值类型	公开	备注
_删除表项_被单击

数据框.删除表项 (数据框.现行选中项)

如果真 (数据框.取表项数 () ＝ 0)

一键计算.禁止＝真
删除表项.可视＝假

子程序名	返回值类型	公开	备注
_数据框_左键单击表项

如果真 (数据框.取表项数 () ≠ 0)

删除表项.可视＝真

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br />
.支持库 iext<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
数据框.插入列 (0, “数据”, 191, 1, , )<br />
数据框.插入列 (1, “权”, 191, 1, , )<br />
<br />
<br />
.子程序 _确认添加_被单击<br />
<br />
.如果真 (到数值 (修改权.内容) ＞ 0 且 数据添加.内容 ≠ “”)<br />
    索引 ＝ 数据框.插入表项 (, , , , , )<br />
    数据框.置标题 (索引, 0, 数据添加.内容)<br />
    数据框.置标题 (索引, 1, 修改权.内容)<br />
.如果真结束<br />
.如果 (数据框.取表项数 () ≠ 0)<br />
    一键计算.禁止 ＝ 假<br />
.否则<br />
    一键计算.禁止 ＝ 真<br />
.如果结束<br />
数据添加.获取焦点 ()<br />
数据添加.内容 ＝ “”<br />
修改权.内容 ＝ “1”<br />
<br />
<br />
.子程序 _修改权_获得焦点<br />
<br />
修改权.内容 ＝ “”<br />
<br />
<br />
.子程序 _修改权_失去焦点<br />
<br />
.如果真 (到数值 (修改权.内容) ≤ 0)<br />
    修改权.内容 ＝ “1”<br />
.如果真结束<br />
<br />
<br />
.子程序 _数据添加_放开某键, 逻辑型<br />
.参数 键代码, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
.如果 (键代码 ＝ #回车键 且 功能键状态 ＝ #Ctrl键状态)<br />
    _一键计算_被单击 ()<br />
.否则<br />
    .如果真 (键代码 ＝ #回车键)<br />
        _确认添加_被单击 ()<br />
    .如果真结束<br />
<br />
.如果结束<br />
<br />
<br />
.子程序 _修改权_放开某键, 逻辑型<br />
.参数 键代码, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
.如果 (键代码 ＝ #回车键 且 功能键状态 ＝ #Ctrl键状态)<br />
    _一键计算_被单击 ()<br />
.否则<br />
    .如果真 (键代码 ＝ #回车键)<br />
        _确认添加_被单击 ()<br />
    .如果真结束<br />
<br />
.如果结束<br />
<br />
<br />
.子程序 _清空数据_鼠标左键被放开, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
.如果真 (信息框 (“确认清空数据？” ＋ #换行符 ＋ “清空后无法找回！”, 1, “警告”) ＝ #确认钮)<br />
    清除结果 ()<br />
.如果真结束<br />
<br />
<br />
.子程序 _一键计算_被单击<br />
<br />
清除结果 ()<br />
重定义数组 (数据, 真, 3000000)<br />
重定义数组 (众数, 真, 3000000)<br />
.计次循环首 (数据框.取表项数 (), i)<br />
    总权 ＝ 总权 ＋ 到数值 (数据框.取标题 (i － 1, 1))<br />
    .计次循环首 (到数值 (数据框.取标题 (i － 1, 1)), j)<br />
        k ＝ k ＋ 1<br />
        总和 ＝ 总和 ＋ 到数值 (数据框.取标题 (i － 1, 0))<br />
        数据 [k] ＝ 到数值 (数据框.取标题 (i － 1, 0))<br />
    .计次循环尾 ()<br />
.计次循环尾 ()<br />
数组排序 (数据, 真)<br />
ans.标题 ＝ “总和：” ＋ 到文本 (总和)<br />
<br />
NoD.标题 ＝ “数据个数：” ＋ 到文本 (总权)<br />
<br />
平均数 ＝ 总和 ÷ 总权<br />
mean.标题 ＝ “平均数：” ＋ 到文本 (平均数)<br />
<br />
.如果 (总权 ％ 2 ＝ 0)<br />
    中位数 ＝ (数据 [总权 ＼ 2] ＋ 数据 [总权 ＼ 2 ＋ 1]) ÷ 2<br />
.否则<br />
    中位数 ＝ 数据 [总权 ＼ 2 ＋ 1]<br />
.如果结束<br />
median.标题 ＝ “中位数：” ＋ 到文本 (中位数)<br />
<br />
.计次循环首 (数据框.取表项数 (), i)<br />
    .如果真 (到数值 (数据框.取标题 (i － 1, 1)) ≥ 待比较权)<br />
        .如果真 (到数值 (数据框.取标题 (i － 1, 1)) ＝ 待比较权)<br />
            t ＝ t ＋ 1<br />
            众数 [t] ＝ 到数值 (数据框.取标题 (i － 1, 0))<br />
        .如果真结束<br />
        .如果真 (到数值 (数据框.取标题 (i － 1, 1)) ＞ 待比较权)<br />
            众数 [t] ＝ 到数值 (数据框.取标题 (i － 1, 0))<br />
        .如果真结束<br />
        待比较权 ＝ 到数值 (数据框.取标题 (i － 1, 1))<br />
    .如果真结束<br />
    .如果真 (到数值 (数据框.取标题 (i － 1, 1)) ≠ 待比较权 且 待比较权 ≠ -2147483646)<br />
        是否有不同权 ＝ 真<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
数组排序 (众数, 真)<br />
.计次循环首 (总权, i)<br />
    .如果真 (是否有不同权 ＝ 假)<br />
        mode.标题 ＝ “众数：无”<br />
        跳出循环 ()<br />
    .如果真结束<br />
    .如果真 (众数 <i> ≠ 2147483647)<br />
        .如果 (是否首个众数)<br />
            mode.标题 ＝ mode.标题 ＋ 到文本 (众数 <i>)<br />
        .否则<br />
            mode.标题 ＝ mode.标题 ＋ “和” ＋ 到文本 (众数 <i>)<br />
        .如果结束<br />
        是否首个众数 ＝ 假<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
.计次循环首 (总权, i)<br />
    平方和 ＝ 平方和 ＋ 求次方 (数据 <i> － 平均数, 2)<br />
.计次循环尾 ()<br />
方差 ＝ 平方和 ÷ 总权<br />
variance.标题 ＝ “方差：” ＋ 到文本 (方差)<br />
<br />
标准差 ＝ 求平方根 (方差)<br />
std.标题 ＝ “标准差：” ＋ 到文本 (标准差)<br />
<br />
极差 ＝ 数据 [总权] － 数据 [1]<br />
range.标题 ＝ “极差：” ＋ 到文本 (极差)<br />
<br />
数据添加.获取焦点 ()<br />
<br />
<br />
.子程序 清除结果<br />
<br />
待比较权 ＝ -2147483646<br />
t ＝ 1<br />
总和 ＝ 0<br />
总权 ＝ 0<br />
平均数 ＝ 0<br />
中位数 ＝ 0<br />
.计次循环首 (3000000, i)<br />
    数据 <i> ＝ 2147483647<br />
.计次循环尾 ()<br />
.计次循环首 (3000000, i)<br />
    众数 <i> ＝ 2147483647<br />
.计次循环尾 ()<br />
平方和 ＝ 0<br />
方差 ＝ 0<br />
标准差 ＝ 0<br />
是否首个众数 ＝ 真<br />
是否有不同权 ＝ 假<br />
ans.标题 ＝ “总和：”<br />
NoD.标题 ＝ “数据个数：”<br />
mean.标题 ＝ “平均数：”<br />
median.标题 ＝ “中位数：”<br />
mode.标题 ＝ “众数：”<br />
variance.标题 ＝ “方差：”<br />
std.标题 ＝ “标准差：”<br />
range.标题 ＝ “极差：”<br />
<br />
.子程序 _重置数据_鼠标左键被放开, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
.如果真 (信息框 (“确定重置？” ＋ #换行符 ＋ “所有数据都将被清除！”, 1, “警告”) ＝ #确认钮)<br />
    载入 (保留窗口, , 假)<br />
    _启动窗口.销毁 ()<br />
    载入 (_启动窗口, , 假)<br />
    保留窗口.销毁 ()<br />
.如果真结束<br />
<br />
<br />
.子程序 _删除表项_被单击<br />
<br />
数据框.删除表项 (数据框.现行选中项)<br />
.如果真 (数据框.取表项数 () ＝ 0)<br />
    一键计算.禁止 ＝ 真<br />
.如果真结束<br />
删除表项.可视 ＝ 假<br />
<br />
<br />
.子程序 _数据框_左键单击表项<br />
<br />
.如果真 (数据框.取表项数 () ≠ 0)<br />
    删除表项.可视 ＝ 真<br />
.如果真结束