*****杨辉三角***** - 中国DOS联盟论坛 - 中国DOS联盟之联合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

[ Last edited by s11ss on 2007-9-26 at 08:23 PM ]

第1楼　s11ss	发表于 2007-09-26 20:20
银牌会员　发帖 566　积分 2,098
[原创]***杨辉三角*** @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 [ Last edited by s11ss on 2007-9-26 at 08:23 PM ]

第2楼　shim	发表于 2007-09-26 20:25
初级用户　发帖 73　积分 85
老大，能说说这是实现什么功能的吗？本人太采见谅啊!!!

第3楼　s11ss	发表于 2007-09-26 20:28
银牌会员　发帖 566　积分 2,098
根据你提供的层数显示杨辉三角啊..

第4楼　shim	发表于 2007-09-26 20:31
初级用户　发帖 73　积分 85
哦，学习中。。。

第5楼　shim	发表于 2007-09-26 20:45
初级用户　发帖 73　积分 85
玩了一下，觉得老祖宗留下的东西真是值得我们后人敬仰和发奋学习啊