批处理除法

随风

批处理除法，可以显示任意位小数。
只能对cmd范围内的整数进行运算。
欢迎测试。。。

1. @echo off&color 1f
   
2. ::code 随风 @bbs.bathome.net   2008-05-02
   
3. :start
   
4. setlocal
   
5. echo.&echo  请输入除数 被除数和小数位数，用空格分开。默认为 5 位小数。
   
6. echo.&echo  如 1 2003 100 表示  用 1 除以 2003 结果显示 100 位小数。
   
7. echo.&set /p var= &cls
   
8. for /f "tokens=1-3" %%a in ("%var%") do (
   
9.    set /a m=0,w=5,n=%%a,b=%%b,nn=n,w=%%c 2>nul
   
10. )
    
11. :loop
    
12. set /a y=n%%b,t=n/b,n=y*10
    
13. set j=%j%%t%
    
14. if %n% equ 0 goto end
    
15. if %m% geq %w% goto end
    
16. set /a m+=1
    
17. goto loop
    
18. :end
    
19. cls&set ok=%j%
    
20. if %m% neq 0 call set ok=%%j:~0,-%m%%%.%%j:~-%m%%%
    
21. echo.&echo  %nn% 除以 %b% = %ok%
    
22. echo.&endlocal&echo.
    
23. goto start

复制代码

[ 本帖最后由 随风 于 2008-5-2 17:51 编辑 ]

葱头

我日~~~看不懂（个人问题（自己））