中国DOS联盟

@echo off
setlocal enabledelayedexpansion
::::::::::::::::::::::::::Pascal Triangle  {s11ss 2007-9-26}::::::::::::::::::::::::::
echo Please input the layers:
set/p num=
for /l %%a in (1,1,%num%) do (
        for /l %%i in (1,1,%%a) do (
                set/a x=%%a-1
                set/a y=%%i-1
                set/a n%%a%%i=n!x!!y!+n!x!%%i
                if %%i equ %%a set n%%a%%i=1
                if %%i equ 1 set/a n%%a%%i=1               
        )
)
for /l %%a in (1,1,%num%) do (
        for /l %%i in (1,1,%%a) do (
                set s%%a=!s%%a!     !n%%a%%i!
        )
)
set fn=%num%_PascalTriangle.txt
set f=
set/p q=Save to the file %fn%?(y/n)
if not "%q%" equ "y" (if not "%q%" equ "Y" goto :e)
cd.>%fn%
set f=^>^>%fn%
:e
for /l %%a in (1,1,%num%) do (
        set/a counter=%num%+1-%%a
        for /l %%i in (1,1,!counter!) do (
                 set s%%a=   !s%%a!
        )
        %f% echo !s%%a!
)
echo.
echo Press Any Key To Exit...
pause>nul