[数值计算] 怎样用批处理用尝试逼近法算平方根

@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
复制代码