@echo off
for /l %%a in (1 1 39) do call set "k= %%k%%"
set /a m=100
:start
setlocal enabledelayedexpansion
cls&echo.&echo.&echo.
set/p=!k:~0,17!<nul
for /l %%a in (1 1 20) do (
   set/p= .<nul
   set "n%%a=  !k:~2!"
   set "yi=!yi! ."
   call :yc !m!
)
echo.
for /l %%a in (1 1 15) do echo !k:~0,17!!k!.&call :yc !m!
set/p=!k:~0,17!!k!.<nul
for /l %%a in (1 1 19) do set /p= .<nul&call :yc !m!
echo.
for /l %%i in (15 -1 1) do (
  cls&echo.&echo.&echo.
  echo !k:~0,17!!yi!
  set n%%i= .!n%%i:~2!
  for /l %%a in (1 1 15) do echo !k:~0,17!!n%%a!.
  echo !k:~0,17!!yi!
  call :yc !m!
)
echo.&echo.&endlocal&cls&call :yc 800&goto start
:yc
   for /l %%a in (1 1 %~1) do ver>nul
goto :EOF
复制代码

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

@echo off&setlocal enabledelayedexpansion&color a
set/p n=请输入边长(最大37)
set/a n1=n-2,n2=n*2-3,n3=76-n*2
if %n3% leq 0 echo 输入超出范围&pause&exit
mode con cols=80 lines=40
for /l %%i in (1 1 79) do set "f= !f!"
    for /l %%i in (1 1 %n%) do (
        set "c=* !c!"
        set/a t=%%i*2
        call echo !f:~,5!%%c:~,!t!%%
        for /l %%a in (1,1,200) do echo.>nul
        cls
    )
        set str=!f:~,5!!c:~,-1!
        if %n1% gtr 0 (
        for /l %%i in (1 1 %n1%) do (
            set/a x=n-%%i-1
            set b!x!=!f:~,5!!c:~,-1!!var!
            set var=!var!!f!*
            set str=!f:~,5!*!f:~,%n2%!*!f:~,%n3%!!str!
            set a%%i=!str!
            echo !f:~,5!!c:~,-1!!var!!f!
            for /l %%a in (1,1,200) do echo.>nul
            cls      
     ))
         for /l %%i in (1 1 %n%) do (
            cls
            set/a t=%%i*2
            call echo !f:~,5!!c:~,-1!!var!  %%f:~,-!t!%%%%c:~-!t!%%
            for /l %%a in (1,1,200) do echo.>nul
            
     )
         if %n1% gtr 0 (
         for /l %%i in (1 1 %n1%) do (
            cls
            echo !b%%i!
            echo !a%%i!
            for /l %%a in (1,1,200) do echo.>nul
     ))
pause>nul
复制代码