batman

这题对新手来说是难了点。。。

batman

先发一个画正方形的，但没完成逐步显示这个步骤（左边竖边比较困难，还没想到好的办法），给大家做参考了：

@echo off&setlocal enabledelayedexpansion
set /p l=请输入正方形的边长(小于46的偶数)：
echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
chcp 437 >nul
graftabl 936 >nul
set /a g=l/2,kk=40-l/2
for /l %%a in (1,1,%kk%) do set "kkk=!kkk! "
echo.&echo.
for /l %%a in (1,1,%g%) do (
    set /p=%kkk%<nul&set "a="
　 for %%c in (1 %g%) do if %%a equ %%c set "a=a"
    for /l %%b in (1,1,%l%) do ( 
        set "_%%a-%%b= "
        for %%d in (1 %l%) do if %%b equ %%d set "b=a"
        if defined a (
           set /p=.<nul
           ) else (
           if defined b (
              set /p=.<nul&set "b="
              ) else (
              set /p= <nul
           )
        )
    )
    echo.
)
pause>nul
复制代码

ps:楼主出的题很有难度，不适合新手来完成，所以移至代码咨询区。

[ 本帖最后由 batman 于 2009-3-2 07:44 编辑 ]

batman

原帖由 Batcher 于 2009-3-2 15:33 发表
我运行了，没有报错。
但是没有实现完全意义上的居中，因为代码没有判断屏幕的高度。

这是因为用代码根本没办法判断全屏的高度的，这是和显示器的高度有关的参数，不同型号的显示器上这个数值是不同的，所以就没有用代码进行计算了。。。

batman

实现了逐步画图，但效果实在不怎么样：

@echo off&setlocal enabledelayedexpansion
set /p l=请输入正方形的边长(小于46的偶数)：
echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
chcp 437 >nul
graftabl 936 >nul
set /a g=l/2,kk=40-l/2,l1=l-1,g1=g-2,s1=l,s2=s1+g1,s3=s2+l
for /l %%a in (1,1,%kk%) do set "kkk=!kkk! "
for /l %%a in (1,1,%l1%) do set "k1=!k1! "
echo.&echo.
for /l %%a in (1,1,%l%) do set /a n+=1&set "_!n!=."
for /l %%a in (1,1,%g1%) do set /a n+=1&set "_!n!=%k1%."
for /l %%a in (1,1,%l%) do (
    set /a a=l-%%a
    for /l %%b in (1,1,!a!) do set "k2=!k2! "
    for /l %%c in (1,1,%%a) do set ".=!.!."
    set /a n+=1&set "_!n!=!k2!!.!"&set "k2="&set ".="
)
set /a n+=g1
for /l %%a in (1,1,%n%) do (
    for /l %%b in (1,1,%%a) do (
        if %%b leq %s1% (
           if %%b equ 1 set /p=%kkk%<nul>temp
           set /p=!_%%b!<nul>>temp
           if %%b equ %s1% echo.>>temp
           ) else (
           if %%b leq %s2% (
              echo %kkk%!_%%b!>>temp
              ) else (
              if %%b leq %s3% (
                 set /a a=kk+%%b
                 for /l %%c in (1,1,!a!) do set /p= <nul>>temp
                 set /p=%kkk%!_%%b!<nul>>temp
              )
           )
         )
    )
    cls&type temp
    if %%a gtr %s3% (
       set /a a=s2+s3-%%a
       for /l %%d in (%s2%,-1,!a!) do set "a=!_%%d!"&set "a=.!a:~1!"&set "_%%d=!a!"
    )
) 
pause>nul&del /q temp
复制代码

[ 本帖最后由 batman 于 2009-3-5 23:31 编辑 ]

batman

这次效果上没问题了(不用全屏)：

@echo off&setlocal enabledelayedexpansion
set /p l=请输入正方形的边长(小于46的偶数)：
set /a g=l/2,kk=40-l/2,l1=l-1,g1=g-2,s1=l,s2=s1+g1,s3=s2+l
for /l %%a in (1,1,%kk%) do set "kkk=!kkk! "
for /l %%a in (1,1,%l1%) do set "k1=!k1! "
for /l %%a in (1,1,%l%) do (
    set /a n+=1&set "_!n!=."
    set "str=!str!."
)
for /l %%a in (1,1,%g1%) do set /a n+=1&set "_!n!=%k1%."
for /l %%a in (1,1,%l%) do (
    set /a a=l-%%a
    for /l %%b in (1,1,!a!) do set "k2=!k2! "
    for /l %%c in (1,1,%%a) do set ".=!.!."
    set /a n+=1&set "_!n!=!k2!!.!"&set "k2="&set ".="
)
set /a n+=g1
for /l %%a in (1,1,%n%) do (
    for /l %%b in (1,1,%%a) do (
        if %%b leq %s1% (
           if %%b equ 1 set /p=%kkk%<nul>temp
           set /p=!_%%b!<nul>>temp
           if %%b equ %s1% echo.>>temp
           ) else (
           if %%b leq %s2% (
              echo %kkk%!_%%b!>>temp
              ) else (
              set "flag=a"
              if %%b geq %s3% set "ok=a"  
            )
         )
    )
    if defined ok (
       echo %kkk%%str%>>temp
       ) else (
       if defined flag echo %kkk%!_%%a!>>temp
    )
    for /l %%d in (1,1,50) do echo>nul
    cls&type temp
    if %%a gtr %s3% (
       set /a a=s2+s3-%%a
       for /l %%e in (%s2%,-1,!a!) do set "a=!_%%e!"&set "a=.!a:~1!"&set "_%%e=!a!"
    )
) 
pause>nul&del /q temp
复制代码

[ 本帖最后由 batman 于 2009-3-6 00:32 编辑 ]