中国DOS联盟

突然在帖子里看到了一个关于四舍五入的请教问题！
心里还在笑笑，CMD又不支持四舍五入运算。
但就在转过去看其他的帖子的时候，却灵机一动，想出了如下算法。。
现在把自己的算法写在下面。希望和高手们一起进步。
也希望高手们可以精简自己的代码。
——————————————————————————————————
思想：
取 除法的 余数 ，若余数减去 被除数的二分之一能大于 0 就证明这个数为5入运算。否则为4舍运算。
加入了对余数的判断，因为余数只能是2n或 2N+1 .若为2n+1，则该数/2后满足4舍5入的条件。若不是，则继续下面的判断
——————————————————————————————————
@echo off & SetLocal EnableDelayedExpansion
set /a 除数=25
set /a 被除数=10
set /a 余数=%除数% %% %被除数%
set /a 参考值=%被除数%/2
set /a 参考值1=%被除数%-%参考值%*2
set /a 进位=%余数%-(%参考值%+%参考值1%)

echo %参考值%,参考值1,%进位%

if %进位% LSS 0 (
echo %除数% ÷ %被除数% 的结果为 4舍运算！
set /a 结果=%除数%/%被除数%
) else (
echo %除数% ÷ %被除数% 的结果为 5入运算！
set /a 结果=%除数%/%被除数%+1
)
echo 答案为:%结果%
pause
--------------------------------------------------------------------------------------------
在这里我只是抛了一块砖。。却引了一块玉出来。。

大家看看bjsh的代码，一次比一次完善。。

现在基本可以应付任意位数的除法运算，且保证精度了。

大家多给bjsh加分吧：）

[ Last edited by flyinspace on 2007-4-1 at 08:33 PM ]

谢谢lxmxn的指出

现在问题已经解决。。

另：拷贝文件时进度条显示进度问题已经解决！

复制文件时，可以看到拷贝的进度了。

只是会产生临时文件。
在硬盘速度过快，拷贝文件过大的情况下有1~3秒的显示差异。

现在考虑修改这个显示问题中。

[ Last edited by flyinspace on 2007-4-1 at 02:04 PM ]

@echo off & SetLocal EnableDelayedExpansion
set /p 除数=
set /p 被除数=
set /a 余数=%除数% %% %被除数%
set /a 参考值=%被除数%/2

if %余数% LSS %参考值% (
echo %除数% ÷ %被除数% 的结果为 4舍运算!
set /a 结果=%除数%/%被除数%
) else (
echo %除数% ÷ %被除数% 的结果为 5入运算!
set /a 结果=%除数%/%被除数%+1
)
echo 答案为:%结果%
pause


直接判断余数和被除数的1/2不行?为什么要-然后和0比大小？

呵呵，当然行啊。。。。。但现在你复制的这个代码会有问题。
在特殊情况下会出现判断错误的情况。。

回4楼。有道理，是我多做了一下判断。。
准备写个批处理和c程序做除数1-100000 被除数 1-100000的测试。
看代码会不会出现误判的情况。。

这是我写的;
精确到你指定的小数点位;四舍五入的;大家帮忙测试下
代码可以再精简的;有时间的话把精简后的发上来;
大家也可以帮忙精简下代码

1. @echo off &SetLocal EnableDelayedExpansion
   
2. set /p x=请输入被除数:
   
3. set /p y=请输入除数:
   
4. set /p n=请输入欲保留的小数的位数:
   
5. set /a count=0
   
6. set /a bjsh=10
   
7. :loop
   
8. if %count% geq %n% goto start
   
9. set /a bjsh*=10
   
10. set /a count+=1
    
11. goto loop
    
12. :start
    
13. set /a rest=%x%*%bjsh%/%y%-%x%*%bjsh%/10/%y%*10
    
14. if "%n%"=="0" (set /a last=%x%/%y%) else (
    
15. set /a last=%x%*%bjsh%/10/%y%-%x%*%bjsh%/100/%y%*10
    
16. )
    
17. if %rest% geq 5 set /a last+=1
    
18. if "%n%"=="0" echo 结果为%last% & pause & goto exit
    
19. set /a result=%x%/%y%
    
20. set result=%result%.
    
21. set /a end=%n%-1
    
22. set /a bjsh=10
    
23. for /l %%i in (1,1,%end%) do (
    
24. set /a add=%x%*!bjsh!/%y%-%x%*!bjsh!/10/%y%*10
    
25. set result=!result!!add!
    
26. set /a bjsh*=10
    
27. )
    
28. set result=%result%%last%
    
29. echo 结果为%result% & pause
    
30. :exit
    

BJSH发表于： 2007-04-01 13:22

[ Last edited by bjsh on 2007-4-1 at 01:32 PM ]

呵，算法只是提供一种思路而已。。

。不过bjsh真的把这个发挥得不错：）

至于测试嘛。。我想就算了：）
精度不高。不如不测试。

而且既然已经准备写到实用的级别。。
就应该对错误进行判断了。
要不然，这个就没有意义。

是的
只能精确到小数点后八位;

再高就会出现随机数字了;

搞到百位以上就会出现莫名其妙的-和数字的组合了;

到这里应该是和系统有关了

我写的代码的算法倒是和flyinspace的不同

flyinspace兄的算法是

取 除法的 余数 ，若余数减去 被除数的二分之一能大于 0 就证明这个数为5入运算

我的是:利用把实际结果10^n放大取到欲精确的位的后一位;然后进行判断
{/color]

嗯。那么第一点。需要对输入的位数进行判断！尽量不出现随机数字。。
第二，屏蔽到后面的随机数字。。
第三，出错处理机制。

我想这一点应该不难吧。

嗯;
那倒是挺简单的

判断%n% geq 8 提示 精确度不能高于8位; 后面也用不到屏蔽了
至于出错机制;
也只有在前面判断
x y n 是否为数字就可以了;

这个东西我就不加进去了;留给想用的人加吧;反正也就几行代码的问题

呵呵，试一下
100000 / 7

嗯。。你也考虑一下dos进度条实用性的问题吧。。

[ Last edited by flyinspace on 2007-4-1 at 02:05 PM ]

用100000/7
只能精确到5位;而且因为第6位不准所以第五位也是不准的;

是不是可以想出一种办法可以是精确度再提高啊

用 18/7算了一下;

可以精确到第8位但是第八位也是不准的;

精确到7位是准的;

100000/7 和 18/7 的区别在于位数;

所以10^n放大确实会影响精确度的;

隐约感觉 改进算法会提高精确度;虽然系统本身就存在精确度限制;

但是应该可以发挥到极致

嗯。。看一下你自己的算法。你就明白啦：）

把结果只截取你自己估算的精度出来。

而不只是对输入进行判断。输入只是为了在一定程度上帮助用户不走弯路而已。

核心的还是你自己的脚本代码问题。

你觉得呢？？bjsh 兄。