怎样用批处理用尝试逼近法算平方根

dengyuli

由于涉及到浮点运算，所以我用了第三方工具conset.exe
代码如下：

1. @echo off
   
2. mode con lines=6 cols=40
   
3. title 用尝试逼近法算平方根
   
4. set jin=1
   
5. set x=0.
   
6. set ctr=0
   
7. set a=0
   
8. :head
   
9. cls
   
10. set /p code=请输入一个非负数：
    
11. :chushi
    
12. conset /a a=a+jin
    
13. conset /a b=a^2
    
14. if %b% gtr %code% conset /a a=a-jin & set jin=%x%%jin% & goto:loop
    
15. if %b% lss %code% conset /a a=a+jin
    
16. if %b%==%code% goto:done
    
17. goto:chushi
    
18. :loop
    
19. set /a ctr=ctr+1
    
20. conset /a a=a+jin
    
21. conset /a b=a*a
    
22. if !ctr!==11 goto:done
    
23. if %b% gtr %code% conset /a a=a-jin & set x=%x%0 & set jin=%x%%jin% & goto:loop
    
24. if %b% lss %code% conset /a a=a+jin & goto:loop
    
25. if %b%==%code% goto:done
    
26. goto:loop
    
27. :done
    
28. cls
    
29. echo 计算完成！%code%的平方根为：%b%
    
30. pause>nul
    
31. goto:head

复制代码

可是每次运行，屏幕上都提示“ConSet: Error setting variable”