[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
做的并不严密~  发出来了
  1. @echo off &setlocal enabledelayedexpansion
  2. set /p inp="1~46内的偶数: "
  3. set /a lx=inp/2,la=0,hx=lx,left=(80-inp)/2
  4. for /l %%a in (1,1,80) do (set k= !k!)
  5. set left=!k:~0,%left%!
  6. set "do=" &set "do2=::"
  7. :la
  8. set /a la+=1,lb=0
  9. if %la% gtr 1 (set "do=::" &set h%la%=!k:~-%inp%,-1!.)
  10. if %la% equ %lx% (set "do=")
  11. %do2% set /a lx-=1
  12. %do2% set h%lx%=.!h%lx%:~1!
  13.      :lb
  14. %do% set /a lb+=1
  15. %do% set h%la%=!h%la%!.
  16. %do% set h%la%=!h%la%:~-%inp%!
  17.      ping -n 1 127.1>nul
  18.      cls
  19.      for /l %%a in (1,1,%hx%) do echo,%left%!h%%a!
  20. %do% if %lb% lss %inp% (goto :lb) else (set lb=0)
  21. %do% if %la% equ %lx% (set "do=::" &set "do2=")
  22. if %lx% neq 0 goto :la
  23. pause
复制代码


我觉得改成+号会方一些~

[ 本帖最后由 523066680 于 2009-3-8 14:35 编辑 ]
1

评分人数

    • batman: 强,不愧是existPB + 15

TOP

刚刚有想做y=x^2 的  不过想想又停止了
因为 x=5 的时候就飙到25行了~

如果是col=line^2 的话可能有看头。

哈哈 改来了, x=y^2的  感觉挺漂亮的
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. mode con cols=102 lines=25
  4. for /l %%a in (1,1,100) do (set k= !k!)
  5. for /l %%a in (-10,1,10) do (set h%%a=%k%)
  6. set la=-11
  7. :la
  8. set /a la+=1,lb=la*la,tlb=100-lb
  9. set h%la%=!h%la%:~%tlb%!.
  10. ping -n 1 127.1>nul
  11. cls
  12. for /l %%a in (-10,1,10) do echo,!h%%a!
  13. if %la% lss 10 goto :la
  14. pause
复制代码

[ 本帖最后由 523066680 于 2009-3-8 14:57 编辑 ]
1

评分人数

    • wxcute: 漂亮,我就想不出。PB + 8

TOP

我突然觉得调用函数可能会使代码短一些 果然如此

  1. @echo off &setlocal enabledelayedexpansion
  2. for /l %%a in (1,1,79) do (set k= !k!)
  3. for /l %%a in (1,1,23) do (set h%%a=%k%)
  4. set /p inp="输入高[2-23]: "
  5. set /a c=0,h=1,i2=inp*2,na=40-inp
  6. set stra=!k:~-%na%!
  7. for %%a in ("c + %i2%" "h + %inp%" "c - 1" "h - 1") do (call :func %%~a)
  8. pause>nul &exit
  9. :func
  10. set /a %1 %2 = 1,cf=c-1
  11. set h%h%=!h%h%:~0,%cf%!.!h%h%:~%c%!
  12. ping -n 1 127.1>nul &cls
  13. for /l %%a in (1,1,%inp%) do (echo,%stra%!h%%a:~0,-%na%!)
  14. if !%1! neq %3 goto :func
复制代码

[ 本帖最后由 523066680 于 2009-3-10 17:27 编辑 ]
4

评分人数

TOP

1.上面那位同学的用户名~。。。。。。

师傅嘛~    有一句话,师傅领进门,修行在个人~, 需要一个人引导罢了。



2.Yes!  在这里再次收集到 pusofalse  wxcute  batman  more 的加分了  我没有遗憾了!!!心情舒畅啊~

[ 本帖最后由 523066680 于 2009-3-15 12:04 编辑 ]

TOP

大概以前想到这个的,因为曾经写过
随机游动粒子 http://www.cn-dos.net/forum/viewthread.php?tid=43059
所以对描点的效果,应该算比较熟悉了。

另外,我觉得在特效的流畅方面,可以跟随风取经。
我嘛,作品全在签名的链接里了,感兴趣的话可以看看。

[ 本帖最后由 523066680 于 2009-3-22 14:45 编辑 ]

TOP

返回列表