联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
@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