求四则运算，除5，如有小数点，数值直接加1

肥肥得

求四则运算，除5，如有小数点，数值直接加1

例如 ：

11 / 5 =2.2
要得到的结果是3

  26 / 5 =5.2
要得到的结果是6

black0216

如此这般

731213189

  

变量名	类 型	静态	数组	备 注
a	双精度小数型

a ＝ 11 ÷ 5
判断 (寻找文本 (到文本 (a), “.”, , 假) ≠ -1)
a ＝ 取整 (a) ＋ 1


调试输出 (到整数 (a))
结束 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 双精度小数型<br /> <br /> a ＝ 11 ÷ 5<br /> .判断开始 (寻找文本 (到文本 (a), “.”, , 假) ≠ -1)<br />     a ＝ 取整 (a) ＋ 1<br /> .默认<br /> <br /> .判断结束<br /> 调试输出 (到整数 (a))<br /> 结束 ()

补充内容 (2024-5-13 13:03):
.版本 2
.支持库 spec

.局部变量 a, 双精度小数型

a ＝ 11 ÷ 5
.判断开始 (取整 (a) ＜ a)
    a ＝ 取整 (a) ＋ 1
.默认

.判断结束
调试输出 (到整数 (a))
结束 ()

肥肥得

black0216 发表于 2024-5-13 12:26
如此这般

刚好整除要等于原来的书，5/5 =1  用向上整除变了2

black0216

你别逗我好吧

人善帝王心

判断  取整<原来值  就+1

钥匙key

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (进一法 (6, 5))

子程序名	返回值类型	公开	备 注
进一法	整数型
参数名	类 型	参考	可空	数组	备 注
A	整数型
B	整数型

返回 (A ÷ B ＋ 选择 (A ％ B ＞ 0, 1, 0))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (进一法 (6, 5))<br /> <br /> .子程序 进一法, 整数型<br /> .参数 A, 整数型<br /> .参数 B, 整数型<br /> <br /> 返回 (A ÷ B ＋ 选择 (A ％ B ＞ 0, 1, 0))

不就是个进一法吗？看看有没有余数就行了呀。。

lisher

〈整数型〉 取整 （双精度小数型 欲取整的小数） - 系统核心支持库->算术运算
   解释： 返回一个小数的整数部分。本命令与“绝对取整”命令不相同之处为：
如果给定小数为负数，则本命令返回小于或等于该小数的第一个负整数，而“绝对取整”命令则会返回大于或等于该小数的第一个负整数。例如，本命令将 -7.8 转换成 -8，而“绝对取整”命令将 -7.8 转换成 -7。本命令为初级命令。
    参数<1>的名称为“欲取整的小数”，类型为“双精度小数型（double）”。

鹏书

这个才是最简单的方法
调试输出 (四舍五入 (11 ÷ 5 ＋ 0.4, 0))

鹏书

鹏书 发表于 2024-5-13 13:12
这个才是最简单的方法
调试输出 (四舍五入 (11 ÷ 5 ＋ 0.4, 0))

加上0.4 慢0.5就会进1，如果整除 0.4就会被舍弃