老刘1号

受win7CMD特性限制，只支持XP系统。

@echo off
Setlocal enabledelayedexpansion
::CODER BY Old.Liu POWERD BY iBAT
set /p long=Input:
set /a long=long/2
set /a long=long*2+1
set /a half=long/2
set /a i=1
for /l %%a in (1 1 !half!) do set/p= <nul
for /l %%a in (1 1 !i!) do set/p=*<nul
echo.
if !long! == 1 goto end
:loop
set /a i+=2
set /a half-=1
for /l %%a in (1 1 !half!) do set/p= <nul
for /l %%a in (1 1 !i!) do set/p=*<nul
echo.
if "!i!" equ "!long!" goto end
goto loop
:end
pause
复制代码

老刘1号

回复 1# happy886rr
兼容WIN7的来了

@echo off
Setlocal enabledelayedexpansion
::CODER BY Old.Liu POWERD BY iBAT
set /p long=Input:
set /a long=long/2
set /a long=long*2+1
set /a half=long/2
set /a i=1
set a=.
for /l %%a in (1 1 !half!) do set "a=!a! "
for /l %%a in (1 1 !i!) do set a=!a!*
echo!a!
if !long! == 1 goto end
:loop
set /a i+=2
set /a half-=1
set a=.
for /l %%a in (1 1 !half!) do set "a=!a! "
for /l %%a in (1 1 !i!) do set a=!a!*
echo!a!
if "!i!" equ "!long!" goto end
goto loop
:end
pause
复制代码

老刘1号

回复 22# happy886rr


    好的，收到
不用set输出的话……这种题不准备用批写了，太费劲

老刘1号

回复 17# taofan712


    现在这个时代，代码不仅是给机器看的，其他人也需要看，也需要理解，这样才能一起做成大的项目
过度的精简代码失去的东西比得到的多的多。
这也是为何会有注释，有缩进
编程的最高境界就是能让你写的程序自成文章

老刘1号

回复 20# 523066680

'&@(cls&Echo off 2>nul 3>nul)
'&set /p long=输入长度：
'&set /p floor=输入层数：
'&Cscript -nologo -e:vbscript "%~0" "%floor%" "%Long%"
'&Pause&Exit
floor_=WScript.Arguments(0)
long_=WScript.Arguments(1)
For a = 1 To floor_
	For i = 1 To long_
		For b = 1 To a
			For j = 1 To i
				Echo=Echo&"*"
			Next
			For j = i To long_
				Echo=Echo&" "
			Next
		Next
		Echo=Echo&vbNewLine
	Next
Next
WScript.Echo echo
复制代码

老刘1号

回复 29# 523066680


    酱紫啊……