- @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 编辑 ] |