batman

@echo off&setlocal enabledelayedexpansion
set /p a=请输入要开方的整数：
set "b=2"&set "c=1"
set /p b=请输入要保留的小数位（最好是三位以内，默认回车为两位）：
set /a b*=2
for /l %%a in (1,1,%b%) do set /a c*=10
set /a a*=c,d=a/2+1
for /l %%a in (1,1,%d%) do (
     set /a e=%%a*%%a
     if !e! equ %a% set /a e=%%a&goto next
     if !e! gtr %a% set /a e=%%a-1&goto next
)
:next
set /a b/=2
set "f=!e:~-%b%!"
echo 开出的平方根为±!e:%f%=!.%f%
pause>nul
复制代码

[ 本帖最后由 batman 于 2009-2-10 23:24 编辑 ]