本帖最后由 a2002 于 2017-7-8 12:08 编辑
这是一个计算2次方根的程序(1到99以内的数),源码如下:- @echo off&setlocal enabledelayedexpansion
- set /p "a=数(1-99):"
- set /p "loop=保留的有效数字:"
- set s=0&set r=&set y=!a!
- :loop
- if "!loop!" equ "!_loop!" goto :ans
- set /a _loop+=1
- for /l %%a in (1,1,10) do (
- set /a t1=s*20*%%a+%%a*%%a
- if !t1! gtr !y! (
- set /a n=%%a-1,_s=s*20*n+n*n,y=y*100-_s*100
- set r=!r!!n!&set s=!r!
- if !y! equ 0 goto :ans
- goto :loop
- )
- )
- :ans
- echo 结果:!r:~0,1!.!r:~1!
- pause>nul
复制代码 大于100、小于1的数原理相同,不再详述 |