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:30