|
发表于 2016-7-26 02:17:34
|
显示全部楼层
重庆市重庆市
本帖最后由 梦寻简单 于 2016-7-26 02:26 编辑
附上源码
变量名 | 类 型 | 静态 | 数组 | 备 注 | 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, , )
|
|