请问怎么带小数点计算的？

za00000

zqq68003002 发表于 2015-2-8 15:20
小数点后面全是0 易语言的计算过程会自动省略掉
别可以在后面加个判断

还是没有作用

za00000

ysjadnt 发表于 2015-2-8 15:21
到数值（） 或 四舍五入（） 都行

计算出其他小数可以，但是如果是1+1.00的话 它直接等于2了 而不是等于2.00

zqq68003002

看来还是要帮你写完整源码

1. .版本 2
   
2. 
   
3. .子程序 _按钮1_被单击
   
4. .局部变量 a, 小数型
   
5. 
   
6. a ＝ 到数值 (编辑框1.内容) ＋ 到数值 (编辑框2.内容)
   
7. .判断开始 (寻找文本 (到文本 (a), “.”, , 假) ＝ -1)
   
8.     信息框 (“计算结果=” ＋ 到文本 (a) ＋ “.00”, 0, )
   
9. .默认
   
10. 
    

复制代码

za00000

zqq68003002 发表于 2015-2-8 15:26
看来还是要帮你写完整源码

我的意思是：比如1+1.00的情况 是=2.00   1+1.1的情况下是=2.1  1+1的情况下只等于2  
这样的可以吗？你写这个不管加整数还是有小数后面都有00了

0010101

这个你想要几位小数都可以额

birdmanxp

我理解楼主的意思了~
看我的！

zqq68003002

za00000 发表于 2015-2-8 15:32
我的意思是：比如1+1.00的情况 是=2.00   1+1.1的情况下是=2.1  1+1的情况下只等于2  
这样的可以吗？你 ...

看下吧，自动判断小数位，补齐 多少位都支持
你可以算下1.01+1.09 1.01+1.99 等特殊情况
.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 被加数小数位, 整数型
.局部变量 加数小数位, 整数型
.局部变量 标准结果小数点位数, 整数型
.局部变量 结果小数点位数, 整数型
.局部变量 txt, 文本型

.判断开始 (寻找文本 (编辑框1.内容, “.”, , 假) ≠ -1)
    被加数小数位 ＝ 取文本长度 (取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 寻找文本 (编辑框1.内容, “.”, , 假)))
.默认
    被加数小数位 ＝ 0
.判断结束

.判断开始 (寻找文本 (编辑框2.内容, “.”, , 假) ≠ -1)
    加数小数位 ＝ 取文本长度 (取文本右边 (编辑框2.内容, 取文本长度 (编辑框1.内容) － 寻找文本 (编辑框2.内容, “.”, , 假)))
.默认
    加数小数位 ＝ 0
.判断结束
调试输出 (被加数小数位, 加数小数位)
.判断开始 (被加数小数位 ≥ 加数小数位)
    标准结果小数点位数 ＝ 被加数小数位

.默认
    标准结果小数点位数 ＝ 加数小数位
.判断结束

a ＝ 到文本 (到数值 (编辑框1.内容) ＋ 到数值 (编辑框2.内容))
调试输出 (a)
.判断开始 (寻找文本 (a, “.”, , 假) ≠ -1)
    结果小数点位数 ＝ 取文本长度 (取文本右边 (a, 取文本长度 (a) － 寻找文本 (a, “.”, , 假)))
.默认
    结果小数点位数 ＝ 0
.判断结束

调试输出 (结果小数点位数, 标准结果小数点位数)
.判断开始 (结果小数点位数 ＜ 标准结果小数点位数)
    .判断开始 (结果小数点位数 ≠ 0)

    .默认
        txt ＝ “.”
    .判断结束

    .计次循环首 (标准结果小数点位数 － 结果小数点位数, )
        txt ＝ txt ＋ “0”
    .计次循环尾 ()
    信息框 (“计算结果=” ＋ a ＋ txt, 0, )
.默认
    信息框 (“计算结果=” ＋ a, 0, )
.判断结束

waweiggfnh

到数值（） 计算的是双精度小数型