中国DOS联盟

@ECHO %DBG% OFF
SETLOCAL ENABLEDELAYEDEXPANSION

:SETUP
SET /P ONE=输入第一个数:           & IF NOT DEFINED ONE EXIT /B
SET /P TWO=输入第二个数:           & IF NOT DEFINED TWO EXIT /B
SET /A ZS=1,ZHE=%ONE%+%TWO%-1
SET /A ZD=%ZHE%-(%ONE%-1)*%ZS%,f=0,g=%ONE%-1,j=%ONE%-2
FOR /L %%i IN (1,1,%ONE%) DO (SET /A R%%i=!ZS!) & SET /A R%ONE%=!ZD!

:MAIN
CALL :PRI & IF %R1%==%ZD% (ECHO %ONE% %TWO% 组合值为: !f! & GOTO :EOF)
IF !R%ONE%!==%ZS% (
                  CALL :GUI & CALL :JIN & CALL :ADD
                  SET /A R%ONE%=%ZHE%-!h!,j=%ONE%-2
                  GOTO :MAIN
                  )
SET /A R%ONE%-=1,R%g%+=1
GOTO :MAIN

:PRI
SET /A f+=1
CLS & ECHO 第        !f!        次计算
GOTO :EOF

:GUI
FOR /L %%i IN (%j%,1,%g%) DO (IF %%i GTR %j% SET /A R%%i=%ZS%)
GOTO :EOF

:JIN
SET /A R%j%+=1
CALL :ADD
SET /A h=%h%+(%ZS%-1)
IF %h%==%ZHE% (SET /A j-=1 & CALL :GUI & CALL :JIN)
GOTO :EOF

:ADD
SET /A h=0
FOR /L %%i IN (1,1,%g%) DO (SET /A h+=!R%%i!)
GOTO :EOF

@echo off
setlocal enabledelayedexpansion
mode con cols=170
set /p=┌──<nul
for /l %%i in (1,1,14) do set /p=──┬──<nul
set /p=──┐<nul
echo.

:loop
call :creat_num
set /p=├──<nul
for /l %%i in (1,1,14) do set /p=──┼──<nul
set /p=──┤<nul
echo.
if %lines% lss 14 goto loop
call :creat_num
set /p=└──<nul
for /l %%i in (1,1,14) do set /p=──┴──<nul
set /p=──┘<nul
echo.
pause
exit

:creat_num
set /a lines+=1
for /l %%i in (1,1,15) do (
    if !lines! equ 1 (
        set num!lines!_%%i=1
    ) else (
        if %%i equ 1 (
            set num!lines!_%%i=1
        ) else (
             set /a SN1=!lines!-1
             set /a SN2=%%i-1
             call set /a num!lines!_%%i=%%num!SN1!_%%i%%+%%num!lines!_!SN2!%%
        )
    )
    call set num=        %%num!lines!_%%i%%
    set num=!num:~-8!
    if %%i leq 2 (
        set /p=│!num!<nul
    ) else (
        if %%i geq !lines! (
            set /p=│!num!<nul
        ) else (
            set /p=│        <nul
        )
    )
)
set /p=│<nul
echo.
goto :eof

call set /a num!lines!_%%i=%%num!SN1!_%%i%%+%%num!lines!_!SN2!%%

@echo off
setlocal enabledelayedexpansion

:begin
cls
set lines=0
set input=
set /p input=  请输入以空格分隔的行数和列数(比如3 6)：
call :loop %input%

:loop
if %1 gtr %2 goto begin
if %2 gtr 17 goto begin
set /a lines+=1
for /l %%i in (1,1,%2) do (
    if !lines! equ 1 (
        set num!lines!_%%i=1
    ) else (
        if %%i equ 1 (
            set num!lines!_%%i=1
        ) else (
             set /a SN1=!lines!-1
             set /a SN2=%%i-1
             call set /a num!lines!_%%i=%%num!SN1!_%%i%%+%%num!lines!_!SN2!%%
             call set num=%%num!lines!_%%i%%
        )
    )
)
if %lines% lss %1 goto loop
cls
echo.&echo.&echo.
echo      在这个表格中，第 %1 行第 %2 列上的数字为 %num%
echo.
pause
goto begin