Tcl中的舍入

如何将十进制数舍入到Tcl中最接近的整数

例如，如果我输入

• 12.34

  作为输入，所需的输出是

  12

• 12.45

  作为输入，所需的输出是

  12

• 12.50

  作为输入，所需的输出是

  13

• 12.57

  作为输入，所需的输出是

  13

---

等等

看看命令和函数的文档

基本上是

expr {round($myNum)}

---

请查看命令和函数的文档

基本上是

expr {round($myNum)}

---

我还建议使用

格式“%.0f”$num

，但它不会对12.5进行取整：

设置为12.5；放上“[format%.0f$n][expr{round（$n）}]”

@glennjackman:不过对我来说是这样<代码>lmap n{0.40.50.6 1.4 1.5 1.6}{list[format%.0f$n][expr{round（$n}）]产生

{0.0}{1}{1}{1}{2}{2}

哦，我突然想到，用浮点表示法，12.5可能是12.4999999999999，不过我还是从你的代码片段中得到了13。我使用的是64位windows系统，从我的第一条评论中我得到了

12 13

。我还建议

format“%.0f”$num

，但它不适用于12.5:

set n 12.5；放上“[format%.0f$n][expr{round（$n）}]”

@glennjackman:不过对我来说是这样<代码>lmap n{0.40.50.6 1.4 1.5 1.6}{list[format%.0f$n][expr{round（$n}）]产生

{0.0}{1}{1}{1}{2}{2}

哦，我突然想到，用浮点表示法，12.5可能是12.4999999999999，不过我还是从你的代码片段中得到了13。我使用的是64位windows系统，从我的第一条评论中得到

12 13

。