在控制台打印金字塔

happy886rr

回复 30# 老刘1号
你画的是有点偏差了，应该这样画(外链图，随时失效)

1. @echo off
   
2. mode con cols=300 lines=80
   
3. setlocal enabledelayedexpansion
   
4. 
   
5. set "Space=                                                                                                    "
   
6. set/a "L=(1<<7)-1"
   
7. 
   
8. for /l %%i in (0,1,!L!) do (
   
9.         set/a "1/(%%i&1)" 2>NUL || (
   
10.                 set/a "SL=(L-%%i)>>1"
    
11.                 for %%j in (!SL!) do (
    
12.                         set "PreSpace=!Space:~0,%%j!"
    
13.                 )
    
14.                 for /l %%j in (0,1,!L!) do (
    
15.                         set/a "1/((%%i&%%j)-%%j)" 2>NUL && (
    
16.                                 set "PreSpace=!PreSpace! "
    
17.                         ) || (
    
18.                                 set "PreSpace=!PreSpace!*"
    
19.                         )
    
20.                 )
    
21.                 echo;!PreSpace!
    
22.         )
    
23. )
    
24. set/p=LEVEL: 7
    

复制代码

happy886rr

回复 29# 523066680
Matrix67的方法就是好用。

a20150604

1. @echo off & setlocal enabledelayedexpansion
   
2. set /a "w=80,h=35,t=w*h,xc=w/2,yc=h/2"
   
3. mode %w%,40
   
4. for /l %%i in (1 1 !t!) do set "s=!s! "
   
5. call :f 0 -16 32 s
   
6. echo;!s! &pause &exit
   
7. 
   
8. :f xtop ytop hei s
   
9. REM 半顶角对边与底角对边比: 1:1 , hei <= 1, 绘 3 点, 否则递归
   
10. setlocal
    
11. set "s=!%4!"
    
12. if %3 leq 1 (
    
13.     set /a "a=%1 - 1, d=b=%2 + 1, c= %1 + 1"
    
14.     call :d %1 %2 & call :d !a! !b! & call :d !c! !d!
    
15. ) else (
    
16.     set /a "h=%3 >> 1, a= %1 - h, d=b=%2 + h, c= %1 + h"
    
17.     call :f %1 %2 !h! %4 & call :f !a! !b! !h! %4 & call :f !c! !d! !h! %4
    
18. )
    
19. (
    
20. endlocal
    
21. set "%4=%s%"
    
22. exit /b
    
23. )
    
24. 
    
25. :d
    
26. set /a "i=%1-xc + (%2-yc) * w + 1, L=i-1"
    
27. for /f "tokens=1,2" %%a in ("!L! !i!") do (set s=!s:~0,%%a!*!s:~%%b!)
    
28. exit /b
    
29. 
    
30. 
    

复制代码