Board logo

标题: [数值计算] 怎样用批处理用尝试逼近法算平方根 [打印本页]

作者: dengyuli    时间: 2014-6-15 20:10     标题: 怎样用批处理用尝试逼近法算平方根

由于涉及到浮点运算,所以我用了第三方工具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”




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2