标题: [数值计算] 怎样用批处理用尝试逼近法算平方根 [打印本页]
作者: dengyuli 时间: 2014-6-15 20:10 标题: 怎样用批处理用尝试逼近法算平方根
由于涉及到浮点运算,所以我用了第三方工具conset.exe
代码如下:- @echo off
- mode con lines=6 cols=40
- title 用尝试逼近法算平方根
- set jin=1
- set x=0.
- set ctr=0
- set a=0
- :head
- cls
- set /p code=请输入一个非负数:
- :chushi
- conset /a a=a+jin
- conset /a b=a^2
- if %b% gtr %code% conset /a a=a-jin & set jin=%x%%jin% & goto:loop
- if %b% lss %code% conset /a a=a+jin
- if %b%==%code% goto:done
- goto:chushi
- :loop
- set /a ctr=ctr+1
- conset /a a=a+jin
- conset /a b=a*a
- if !ctr!==11 goto:done
- if %b% gtr %code% conset /a a=a-jin & set x=%x%0 & set jin=%x%%jin% & goto:loop
- if %b% lss %code% conset /a a=a+jin & goto:loop
- if %b%==%code% goto:done
- goto:loop
- :done
- cls
- echo 计算完成!%code%的平方根为:%b%
- pause>nul
- goto:head
复制代码
可是每次运行,屏幕上都提示“ConSet: Error setting variable”
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |