四舍五入请教

lucky · 发表于 2011-11-20 10:16:16

本帖最后由 lucky 于 2011-11-20 11:08 编辑

请问如何用四舍五入，但是保留5

.版本 2
.子程序 _按钮1_被单击
.局部变量提交数, 整数型
置随机数种子 ()
提交数＝取随机数 (到数值 (编辑框1.内容), 到数值 (编辑框2.内容))
编辑框3.内容＝到文本 (四舍五入 (提交数, -1))

比如 1065 还是保留 1065 1066 就会变成 1070 1064 就会变成 1060

谢谢！！！

我现在用取文本右边一位来判断，不知道有没有更简单的方法。。。

.版本 2
.支持库 EThread
.局部变量提交数, 整数型
置随机数种子 ()
提交数＝取随机数 (到数值 (编辑框1.内容), 到数值 (编辑框2.内容))
.如果 (取文本右边 (到文本 (提交数), 1) ＝ “5”)
编辑框3.内容＝到文本 (提交数)
.否则
编辑框3.内容＝到文本 (四舍五入 (提交数, -1))

小马过河 · 发表于 2011-11-20 10:16:17

你要的不是四舍五入而是过五就入给你做了一个，看看合适你不[e].版本 2
.支持库 spec

.程序集窗口程序集1

.子程序 _按钮1_被单击

调试输出 (过五就入 (到数值 (编辑框1.内容)))

.子程序过五就入, 整数型
.参数原数值, 整数型
.局部变量原文本, 文本型
.局部变量舍文本, 文本型

原文本＝到文本 (原数值)
舍文本＝取文本右边 (原文本, 1)
.如果 (到数值 (舍文本) ＜ 5)
返回 (原数值－到数值 (舍文本))
.否则
.如果 (到数值 (舍文本) ＝ 5)
      返回 (原数值)
.否则
      .如果 (到数值 (舍文本) ＞ 5)
         返回 (原数值＋ 10 －到数值 (舍文本))
      .否则

      .如果结束

.如果结束

.如果结束
返回 (0)

[/e]

大头佛 · 发表于 2011-11-20 10:30:03

不知道合不合适？

四舍五入.rar (1.03 KB, 下载次数: 35)

lucky · 发表于 2011-11-20 10:36:55

本帖最后由 lucky 于 2011-11-20 11:09 编辑

大头佛发表于 2011-11-20 10:30
不知道合不合适？应该有更好的算法

这不是和我的一样吗？不过还是谢谢！！！

大头佛 · 发表于 2011-11-20 11:44:01

lucky 发表于 2011-11-20 10:36
这不是和我的一样吗？不过还是谢谢！！！

没看完题目就回答了！我觉得你的算法已经是最简单的了！

爱家的小懒虫 · 发表于 2011-11-20 11:51:00

4s5r.rar (17.23 KB, 下载次数: 31)

爱家的小懒虫 · 发表于 2011-11-20 12:14:14

大头佛发表于 2011-11-20 10:30
不知道合不合适？应该有更好的算法

你这个没有控制位数啊~~~

		自动登录	找回密码
密码			注册

[已解决] 四舍五入请教

最佳答案

点评

点评

[已解决] 四舍五入 请教

最佳答案

点评

点评

[已解决] 四舍五入请教