有没有无聊的学霸来算算这道题?无聊人士进....这是一道数学题

福仔

               

做成这样的效果,四舍五入保留3位

比如:
我有1个100分 一个90分                   平均数= 95
我有1个90分 一个50分                     平均数=70
我有100个100分 2个90分 3个40分  平均数=97.333

计算器.zip (80.63 KB, 下载次数: 0)

2016-7-25 23:21 上传

点击文件名下载附件 这个是编译好的程序,参考这个计算方式,写出一份效果一样的源码

火眼链接:http://fireeye.ijinshan.com/analyse.html?md5=df9bd63e89f8b98fe421e5263365d510&sha1=4205f1ef9fbd84ff3d57d2475aff91684c3dde5a&type=1

空程序.zip (40.94 KB, 下载次数: 0)

2016-7-25 23:21 上传

点击文件名下载附件 这个是一份空的源码

答案.zip (41.39 KB, 下载次数: 4)

2016-7-25 23:22 上传

点击文件名下载附件   这是我的算法,应该还有其他算法,,,,请自己手动想一下在来看我的算法

如果玩QQ音速这个游戏的话 就会知道,这是一个PD计算器   要是谁无聊的话,可以练练手

这是一道数学题 这是一道数学题 这是一道数学题

福仔

  

子程序名	返回值类型	公开	备 注
计算结果

变量名	类 型	静态	数组	备 注
被除数	整数型
除数	整数型

计算除数和被除数 (除数, 被除数)
标签1.标题 ＝ 到文本 (四舍五入 (除数 ÷ 被除数, 3))

子程序名	返回值类型	公开	备 注
计算除数和被除数
参数名	类 型	参考	可空	数组	备 注
除数	整数型
被除数	整数型

变量名	类 型	静态	数组	备 注
总分	数据类型1

总分._100 ＝ 100 × 到整数 (编辑框100.内容)
总分._90 ＝ 90 × 到整数 (编辑框90.内容)
总分._80 ＝ 80 × 到整数 (编辑框80.内容)
总分._70 ＝ 70 × 到整数 (编辑框70.内容)
总分._60 ＝ 60 × 到整数 (编辑框60.内容)
总分._50 ＝ 50 × 到整数 (编辑框50.内容)
总分._40 ＝ 40 × 到整数 (编辑框40.内容)
除数 ＝ 总分._100 ＋ 总分._90 ＋ 总分._80 ＋ 总分._70 ＋ 总分._60 ＋ 总分._50 ＋ 总分._40
被除数 ＝ 到数值 (编辑框100.内容) ＋ 到数值 (编辑框90.内容) ＋ 到数值 (编辑框80.内容) ＋ 到数值 (编辑框70.内容) ＋ 到数值 (编辑框60.内容) ＋ 到数值 (编辑框50.内容) ＋ 到数值 (编辑框40.内容)

.版本 2<br /> <br /> .子程序 计算结果<br /> .局部变量 被除数, 整数型<br /> .局部变量 除数, 整数型<br /> <br /> 计算除数和被除数 (除数, 被除数)<br /> 标签1.标题 ＝ 到文本 (四舍五入 (除数 ÷ 被除数, 3))<br /> <br /> .子程序 计算除数和被除数<br /> .参数 除数, 整数型, 参考<br /> .参数 被除数, 整数型, 参考<br /> .局部变量 总分, 数据类型1<br /> <br /> 总分._100 ＝ 100 × 到整数 (编辑框100.内容)<br /> 总分._90 ＝ 90 × 到整数 (编辑框90.内容)<br /> 总分._80 ＝ 80 × 到整数 (编辑框80.内容)<br /> 总分._70 ＝ 70 × 到整数 (编辑框70.内容)<br /> 总分._60 ＝ 60 × 到整数 (编辑框60.内容)<br /> 总分._50 ＝ 50 × 到整数 (编辑框50.内容)<br /> 总分._40 ＝ 40 × 到整数 (编辑框40.内容)<br /> 除数 ＝ 总分._100 ＋ 总分._90 ＋ 总分._80 ＋ 总分._70 ＋ 总分._60 ＋ 总分._50 ＋ 总分._40<br /> 被除数 ＝ 到数值 (编辑框100.内容) ＋ 到数值 (编辑框90.内容) ＋ 到数值 (编辑框80.内容) ＋ 到数值 (编辑框70.内容) ＋ 到数值 (编辑框60.内容) ＋ 到数值 (编辑框50.内容) ＋ 到数值 (编辑框40.内容)

这是我目前想到最省代码,比较好理解的算法了,不知道还有没有更省的

@波哥野结衣 @梦寻简单 @415597958 @si515

jokerhuman

选A选A选A选A选A选A选A选A选A选A

猥琐小胖子

yelaizuozuo

路过看看就好，，，

波哥野结衣

复制+枚举。。。简单易懂

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
程序集_编辑框_组件	编辑框	7
程序集_编辑框_事件	编辑框

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

变量名	类 型	静态	数组	备 注
局部_计次	整数型

计次循环首 (取数组成员数 (程序集_编辑框_组件), 局部_计次)
复制窗口组件 (编辑框_响应组件, 程序集_编辑框_组件 [局部_计次])
程序集_编辑框_组件 [局部_计次].顶边 ＝ 编辑框_响应组件.顶边 ��� (局部_计次 － 1) × 30
程序集_编辑框_组件 [局部_计次].可视 ＝ 真
程序集_编辑框_组件 [局部_计次].标记 ＝ 到文本 (100 ��� (局部_计次 － 1) × 10)
事件转移 (程序集_编辑框_组件 [局部_计次], 程序集_编辑框_事件)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_编辑框_响应组件_内容被改变

变量名	类 型	静态	数组	备 注
局部_组件句柄	整数型
局部_组件数目	整数型
局部_编辑框组件	编辑框		0
局部_计次	整数型
局部_加数	整数型
局部_总数	整数型
局部_标记	整数型
局部_个数	整数型
局部_平均数	双精度小数型

程序集_编辑框_事件 ＝ 取事件组件 ()
局部_组件句柄 ＝ 寻找组件 (窗口1, “编辑框”, “编辑框”, , )
局部_组件数目 ＝ 取找到组件数目 (局部_组件句柄) － 1
重定义数组 (局部_编辑框组件, 假, 局部_组件数目)
计次循环首 (局部_组件数目, 局部_计次)
局部_编辑框组件 [局部_计次] ＝ 取所找到组件 (局部_组件句柄, 局部_计次 － 1)
局部_加数 ＝ 到整数 (局部_编辑框组件 [局部_计次].内容)
如果真 (局部_加数 ＞ 0)
局部_标记 ＝ 到整数 (局部_编辑框组件 [局部_计次].标记)
局部_总数 ＝ 局部_总数 ＋ 局部_加数 × 局部_标记
局部_个数 ＝ 局部_个数 ＋ 到整数 (局部_编辑框组件 [局部_计次].内容)
局部_平均数 ＝ 局部_总数 ÷ 局部_个数

计次循环尾 ()
标题 ＝ “平均数：” ＋ 到文本 (四舍五入 (局部_平均数, 3))
清除组件寻找句柄 (局部_组件句柄)

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 程序集_编辑框_组件, 编辑框, , "7"<br /> .程序集变量 程序集_编辑框_事件, 编辑框<br /> <br /> .子程序 _窗口1_创建完毕<br /> .局部变量 局部_计次, 整数型<br /> <br /> .计次循环首 (取数组成员数 (程序集_编辑框_组件), 局部_计次)<br />     复制窗口组件 (编辑框_响应组件, 程序集_编辑框_组件 [局部_计次])<br />     程序集_编辑框_组件 [局部_计次].顶边 ＝ 编辑框_响应组件.顶边 ＋ (局部_计次 － 1) × 30<br />     程序集_编辑框_组件 [局部_计次].可视 ＝ 真<br />     程序集_编辑框_组件 [局部_计次].标记 ＝ 到文本 (100 － (局部_计次 － 1) × 10)<br />     事件转移 (程序集_编辑框_组件 [局部_计次], 程序集_编辑框_事件)<br /> .计次循环尾 ()<br /> <br /> .子程序 _编辑框_响应组件_内容被改变<br /> .局部变量 局部_组件句柄, 整数型<br /> .局部变量 局部_组件数目, 整数型<br /> .局部变量 局部_编辑框组件, 编辑框, , "0"<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 局部_加数, 整数型<br /> .局部变量 局部_总数, 整数型<br /> .局部变量 局部_标记, 整数型<br /> .局部变量 局部_个数, 整数型<br /> .局部变量 局部_平均数, 双精度小数型<br /> <br /> 程序集_编辑框_事件 ＝ 取事件组件 ()<br /> 局部_组件句柄 ＝ 寻找组件 (窗口1, “编辑框”, “编辑框”, , )<br /> 局部_组件数目 ＝ 取找到组件数目 (局部_组件句柄) － 1<br /> 重定义数组 (局部_编辑框组件, 假, 局部_组件数目)<br /> .计次循环首 (局部_组件数目, 局部_计次)<br />     局部_编辑框组件 [局部_计次] ＝ 取所找到组件 (局部_组件句柄, 局部_计次 － 1)<br />     局部_加数 ＝ 到整数 (局部_编辑框组件 [局部_计次].内容)<br />     .如果真 (局部_加数 ＞ 0)<br />         局部_标记 ＝ 到整数 (局部_编辑框组件 [局部_计次].标记)<br />         局部_总数 ＝ 局部_总数 ＋ 局部_加数 × 局部_标记<br />         局部_个数 ＝ 局部_个数 ＋ 到整数 (局部_编辑框组件 [局部_计次].内容)<br />         局部_平均数 ＝ 局部_总数 ÷ 局部_个数<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 标题 ＝ “平均数：” ＋ 到文本 (四舍五入 (局部_平均数, 3))<br /> 清除组件寻找句柄 (局部_组件句柄)

波哥野结衣

复制+枚举。。。简单易懂

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
程序集_编辑框_组件	编辑框	7
程序集_编辑框_事件	编辑框

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

变量名	类 型	静态	数组	备 注
局部_计次	整数型

计次循环首 (取数组成员数 (程序集_编辑框_组件), 局部_计次)
复制窗口组件 (编辑框_响应组件, 程序集_编辑框_组件 [局部_计次])
程序集_编辑框_组件 [局部_计次].顶边 ＝ 编辑框_响应组件.顶边 ��� (局部_计次 － 1) × 30
程序集_编辑框_组件 [局部_计次].可视 ＝ 真
程序集_编辑框_组件 [局部_计次].标记 ＝ 到文本 (100 ��� (局部_计次 － 1) × 10)
事件转移 (程序集_编辑框_组件 [局部_计次], 程序集_编辑框_事件)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_编辑框_响应组件_内容被改变

变量名	类 型	静态	数组	备 注
局部_组件句柄	整数型
局部_组件数目	整数型
局部_编辑框组件	编辑框		0
局部_计次	整数型
局部_加数	整数型
局部_总数	整数型
局部_标记	整数型
局部_个数	整数型
局部_平均数	双精度小数型

程序集_编辑框_事件 ＝ 取事件组件 ()
局部_组件句柄 ＝ 寻找组件 (窗口1, “编辑框”, “编辑框”, , )
局部_组件数目 ＝ 取找到组件数目 (局部_组件句柄) － 1
重定义数组 (局部_编辑框组件, 假, 局部_组件数目)
计次循环首 (局部_组件数目, 局部_计次)
局部_编辑框组件 [局部_计次] ＝ 取所找到组件 (局部_组件句柄, 局部_计次 － 1)
局部_加数 ＝ 到整数 (局部_编辑框组件 [局部_计次].内容)
如果真 (局部_加数 ＞ 0)
局部_标记 ＝ 到整数 (局部_编辑框组件 [局部_计次].标记)
局部_总数 ＝ 局部_总数 ＋ 局部_加数 × 局部_标记
局部_个数 ＝ 局部_个数 ＋ 到整数 (局部_编辑框组件 [局部_计次].内容)
局部_平均数 ＝ 局部_总数 ÷ 局部_个数

计次循环尾 ()
标题 ＝ “平均数：” ＋ 到文本 (四舍五入 (局部_平均数, 3))
清除组件寻找句柄 (局部_组件句柄)

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 程序集_编辑框_组件, 编辑框, , "7"<br /> .程序集变量 程序集_编辑框_事件, 编辑框<br /> <br /> .子程序 _窗口1_创建完毕<br /> .局部变量 局部_计次, 整数型<br /> <br /> .计次循环首 (取数组成员数 (程序集_编辑框_组件), 局部_计次)<br />     复制窗口组件 (编辑框_响应组件, 程序集_编辑框_组件 [局部_计次])<br />     程序集_编辑框_组件 [局部_计次].顶边 ＝ 编辑框_响应组件.顶边 ＋ (局部_计次 － 1) × 30<br />     程序集_编辑框_组件 [局部_计次].可视 ＝ 真<br />     程序集_编辑框_组件 [局部_计次].标记 ＝ 到文本 (100 － (局部_计次 － 1) × 10)<br />     事件转移 (程序集_编辑框_组件 [局部_计次], 程序集_编辑框_事件)<br /> .计次循环尾 ()<br /> <br /> .子程序 _编辑框_响应组件_内容被改变<br /> .局部变量 局部_组件句柄, 整数型<br /> .局部变量 局部_组件数目, 整数型<br /> .局部变量 局部_编辑框组件, 编辑框, , "0"<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 局部_加数, 整数型<br /> .局部变量 局部_总数, 整数型<br /> .局部变量 局部_标记, 整数型<br /> .局部变量 局部_个数, 整数型<br /> .局部变量 局部_平均数, 双精度小数型<br /> <br /> 程序集_编辑框_事件 ＝ 取事件组件 ()<br /> 局部_组件句柄 ＝ 寻找组件 (窗口1, “编辑框”, “编辑框”, , )<br /> 局部_组件数目 ＝ 取找到组件数目 (局部_组件句柄) － 1<br /> 重定义数组 (局部_编辑框组件, 假, 局部_组件数目)<br /> .计次循环首 (局部_组件数目, 局部_计次)<br />     局部_编辑框组件 [局部_计次] ＝ 取所找到组件 (局部_组件句柄, 局部_计次 － 1)<br />     局部_加数 ＝ 到整数 (局部_编辑框组件 [局部_计次].内容)<br />     .如果真 (局部_加数 ＞ 0)<br />         局部_标记 ＝ 到整数 (局部_编辑框组件 [局部_计次].标记)<br />         局部_总数 ＝ 局部_总数 ＋ 局部_加数 × 局部_标记<br />         局部_个数 ＝ 局部_个数 ＋ 到整数 (局部_编辑框组件 [局部_计次].内容)<br />         局部_平均数 ＝ 局部_总数 ÷ 局部_个数<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 标题 ＝ “平均数：” ＋ 到文本 (四舍五入 (局部_平均数, 3))<br /> 清除组件寻找句柄 (局部_组件句柄)

刘海斌

三咲亚子 发表于 2016-7-26 00:32
我的数学微机老师教的。

我的数学亚子教的

梦寻简单

网站卡了。多点了几下。嘿嘿

梦寻简单

附上源码

  

子程序名	返回值类型	公开	备 注
计算吧

变量名	类 型	静态	数组	备 注
A_100
A_90
A_80
A_70
A_60
A_50
A_40
次数	整数型
数组	双精度小数型		0
差值	双精度小数型
计算结果	文本型
分割文本	文本型		0
整数部分	文本型
小数部分	文本型

' 单个数量
A_100 ＝ 100
A_90 ＝ 2
A_80 ＝ 0
A_70 ＝ 0
A_60 ＝ 0
A_50 ＝ 0
A_40 ＝ 3
计次循环首 (A_100, )
加入成员 (数组, 100)
计次循环尾 ()
计次循环首 (A_90, )
加入成员 (数组, 90)
计次循环尾 ()
计次循环首 (A_80, )
加入成员 (数组, 80)
计次循环尾 ()
计次循环首 (A_70, )
加入成员 (数组, 70)
计次循环尾 ()
计次循环首 (A_60, )
加入成员 (数组, 60)
计次循环尾 ()
计次循环首 (A_50, )
加入成员 (数组, 50)
计次循环尾 ()
如果真 (A_40 ≥ 1)
加入成员 (数组, 40)
计次循环首 (A_40 － 1, )
加入成员 (数组, 0)
计次循环尾 ()
数组排序 (数组, 真)
判断循环首 (四舍五入 (数组 [取数组成员数 (数组)], 7) ≠ 四舍五入 (数组 [1], 7))
次数 ＝ 次数 ＋ 1
差值 ＝ 数组 [取数组成员数 (数组)] － 数组 [1]
差值 ＝ 差值 ÷ 2
数组 [1] ＝ 四舍五入 (数组 [1] ＋ 差值, 7)
数组 [取数组成员数 (数组)] ＝ 四舍五入 (数组 [取数组成员数 (数组)] － 差值, 7)
如果真 (次数 ＞ 1000)
跳出循环 ()
数组排序 (数组, 真)
判断循环尾 ()
计算结果 ＝ 到文本 (四舍五入 (数组 [1], 3))
分割文本 ＝ 分割文本 (计算结果, “.”, )
整数部分 ＝ 分割文本 [1]
如果真 (取数组成员数 (分割文本) ＝ 2)
小数部分 ＝ 分割文本 [2]
如果 (小数部分 ＝ “”)
计算结果 ＝ 整数部分
计算结果 ＝ 整数部分 ＋ “.” ＋ 小数部分
信息框 (“计算结果：” ＋ 计算结果, 0, , )

.版本 2<br /> <br /> .子程序 计算吧<br /> .局部变量 A_100<br /> .局部变量 A_90<br /> .局部变量 A_80<br /> .局部变量 A_70<br /> .局部变量 A_60<br /> .局部变量 A_50<br /> .局部变量 A_40<br /> .局部变量 次数, 整数型<br /> .局部变量 数组, 双精度小数型, , "0"<br /> .局部变量 差值, 双精度小数型<br /> .局部变量 计算结果, 文本型<br /> .局部变量 分割文本, 文本型, , "0"<br /> .局部变量 整数部分, 文本型<br /> .局部变量 小数部分, 文本型<br /> <br /> ' 单个数量<br /> A_100 ＝ 100<br /> A_90 ＝ 2<br /> A_80 ＝ 0<br /> A_70 ＝ 0<br /> A_60 ＝ 0<br /> A_50 ＝ 0<br /> A_40 ＝ 3<br /> .计次循环首 (A_100, )<br />     加入成员 (数组, 100)<br /> .计次循环尾 ()<br /> .计次循环首 (A_90, )<br />     加入成员 (数组, 90)<br /> .计次循环尾 ()<br /> .计次循环首 (A_80, )<br />     加入成员 (数组, 80)<br /> .计次循环尾 ()<br /> .计次循环首 (A_70, )<br />     加入成员 (数组, 70)<br /> .计次循环尾 ()<br /> .计次循环首 (A_60, )<br />     加入成员 (数组, 60)<br /> .计次循环尾 ()<br /> .计次循环首 (A_50, )<br />     加入成员 (数组, 50)<br /> .计次循环尾 ()<br /> .如果真 (A_40 ≥ 1)<br />     加入成员 (数组, 40)<br />     .计次循环首 (A_40 － 1, )<br />         加入成员 (数组, 0)<br />     .计次循环尾 ()<br /> .如果真结束<br /> 数组排序 (数组, 真)<br /> .判断循环首 (四舍五入 (数组 [取数组成员数 (数组)], 7) ≠ 四舍五入 (数组 [1], 7))<br />     次数 ＝ 次数 ＋ 1<br />     差值 ＝ 数组 [取数组成员数 (数组)] － 数组 [1]<br />     差值 ＝ 差值 ÷ 2<br />     数组 [1] ＝ 四舍五入 (数组 [1] ＋ 差值, 7)<br />     数组 [取数组成员数 (数组)] ＝ 四舍五入 (数组 [取数组成员数 (数组)] － 差值, 7)<br />     .如果真 (次数 ＞ 1000)<br />         跳出循环 ()<br />     .如果真结束<br />     数组排序 (数组, 真)<br /> .判断循环尾 ()<br /> 计算结果 ＝ 到文本 (四舍五入 (数组 [1], 3))<br /> 分割文本 ＝ 分割文本 (计算结果, “.”, )<br /> 整数部分 ＝ 分割文本 [1]<br /> .如果真 (取数组成员数 (分割文本) ＝ 2)<br />     小数部分 ＝ 分割文本 [2]<br /> .如果真结束<br /> .如果 (小数部分 ＝ “”)<br />     计算结果 ＝ 整数部分<br /> .否则<br />     计算结果 ＝ 整数部分 ＋ “.” ＋ 小数部分<br /> .如果结束<br /> 信息框 (“计算结果：” ＋ 计算结果, 0, , )