[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
因为换行的原因就是做出来了,在屏幕上也不会是一个真正的圆。。。
***共同提高***

TOP

来个简单的(求平方根为牛顿迭代法):
  1. @echo off&setlocal enabledelayedexpansion
  2. for /l %%a in (1,1,20) do (
  3.   for /l %%b in (1,1,20) do (
  4.     set /a a=10-%%a,b=10-%%b
  5.     for %%c in (a b) do set "%%c=!%%c:-=!"
  6.     set /a a=a*a+b*b
  7.   rem 牛顿迭代法求平方根
  8.     if !a! neq 0 for /l %%a in (1,1,10) do set /a "r=(a+r/a)/2"
  9.     if !r! equ 10 (
  10.        set /p=*<nul
  11.        ) else (
  12.        set /p=  <nul
  13.     )
  14.   )
  15.   echo,
  16. )
  17. pause>nul
复制代码
1

评分人数

***共同提高***

TOP

这个好一点:
  1. @echo off&setlocal enabledelayedexpansion
  2. echo,&echo,
  3. for /l %%a in (0,1,20) do (
  4.   set /p=          <nul
  5.   for /l %%b in (0,1,20) do (
  6.     set /a a=10-%%a,b=10-%%b
  7.     for %%c in (a b) do set "%%c=!%%c:-=!"
  8.     set /a a=a*a+b*b,r=a-100
  9.     set "r=!r:-=!"
  10.     if !r! leq 5 (
  11.        set /p=* <nul
  12.        ) else (
  13.        set /p=  <nul
  14.     )
  15.   )
  16.   echo,
  17. )
  18. pause>nul
复制代码
1

评分人数

***共同提高***

TOP

本帖最后由 batman 于 2012-2-29 12:19 编辑

修改if !r! leq 5中的5,可以得到很多种“圆”
***共同提高***

TOP

本帖最后由 batman 于 2012-3-1 12:34 编辑

再跟一个:
  1. @echo off&setlocal enabledelayedexpansion
  2. mode con lines=35&echo,&echo,
  3. for /l %%a in (0,1,30) do (
  4.   set /p=          <nul
  5.   for /l %%b in (0,1,30) do (
  6.     set /a a=15-%%a,b=15-%%b&set "flag="
  7.     for %%c in (a b) do set "%%c=!%%c:-=!"
  8.     set /a a=a*a+b*b
  9.     if !a! gtr 92 if !a! lss 204 set "flag=a"
  10.     if !a! gtr 31 if !a! lss 69 set "flag=a"
  11.     if !a! gtr 6 if !a! lss 19 set "flag=a"
  12.     if defined flag (
  13.       set /p=  <nul
  14.       ) else (
  15.       set /p=* <nul
  16.     )
  17.   )
  18.   echo,
  19. )
  20. pause>nul
复制代码
***共同提高***

TOP

返回列表