保留小数点后两位

szx025 · 发表于 2014-6-21 11:16:37

(setq txt (getstring "\n请输入梯高<35>:"))               (if (= txt "")
(setq txt "T4B09a-35")
(setq txt (strcat "T4B09a-" txt))
            (setq txt (rtos txt 2 2))
      )
这是我一个程序中的一段，没有红字的语句时，整个程序正常，加入红字的语句后，执行程序出现错误: 语法错误
我的原意是想让txt永远保留小数点后两位。请高手指导一下

自贡黄明儒 · 发表于 2014-6-21 11:29:44

本帖最后由自贡黄明儒于 2014-6-21 11:31 编辑

txt是实数才行
r 表示实数 to到的意思 s字串

edata · 发表于 2014-6-21 11:37:53

上次不是问了吗？怎么的自己的帖子找不到了吗？

emk · 发表于 2014-6-21 20:05:23

字符串需要转成实数后再转字符串

szx025 · 发表于 2014-6-22 11:08:32

再请教一下，输入一个整数（比如35）或一个小数点后一位的小数（比如35.1），如何让txt变成小数点保留两位的数（比如35.00或35.10）

wzg356 · 发表于 2014-6-22 18:31:37

本帖最后由 wzg356 于 2014-6-22 18:47 编辑

szx025 发表于 2014-6-22 11:08
再请教一下，输入一个整数（比如35）或一个小数点后一位的小数（比如35.1），如何让txt变成小数点保留两位的 ...

;(setq txt (getstring "\n请输入梯高:<35>:"));;与提示无关，输入的都认作字符串
(setq txt (getreal "\n请输入梯高<35>:"));;与提示无关，输入的必须实数或nil
(if (= txt nil)
(setq txt "T4B09a-35.00")
(progn
(setq txt (rtos txt 2 2));实数保留2位小数(四舍五入)，并转为转为字符串
(setq txt (strcat "T4B09a-" txt))
)
)
;;(rtos 35 2 2);返回"35.00"
;;(rtos 35.555 2 2);返回"35.56"
;;;可以改为下面的
(if(not (setq txt (getreal "\n请输入梯高<35>:")));;与提示无关，输入的必须实数或nil
(setq txt 35)
)
(setq txt (rtos txt 2 2));实数保留2位小数(四舍五入)，并转为转为字符串
(setq txt (strcat "T4B09a-" txt))

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

[提问] 保留小数点后两位

相关帖子