中国DOS联盟

aa=0
do until aa=1
i=inputbox("你想给5人分几个苹果？(每人至少一个)","请输入苹果数")
if i="" then
wscript.quit
elseif IsNumeric(i)=false  then
msgbox "输入错误，请重新输入！",16+4096,"错误"
elseif i<5 then
msgbox "苹果数不能小于5,请重新输入！",16+4096,"错误"
elseif i>15 then
yesno=msgbox("苹果数大于15时速度可能会很慢，要继续吗？",32+4096+vbyesno,"提示")
if yesno=vbyes then
aa=1
end if
else
aa=1
end if
loop

set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
set file=fso.createtextfile("OUT.txt",2)
for a=1 to ccur(i)-4
for b=1 to ccur(i)-4
for c=1 to ccur(i)-4
for d=1 to ccur(i)-4
for e=1 to ccur(i)-4
if a+b+c+d+e=ccur(i) then
h=h+1
s=s & "│" & a & vbtab & "│" & b  & vbtab & "│" & c  & vbtab & "│" & d  & vbtab & "│" & e &vbtab &"│" &vbcrlf & "├───┼───┼───┼───┼───┤"&vbcrlf

end if
next
next
next
next
next
s=Left(s,Len(s)-Len("├───┼───┼───┼───┼───┤"&vbcrlf))
file.write "给5个人分"&i&"个苹果(每人至少分到一个苹果)一共有" & h &"种方法" & vbcrlf & vbcrlf
file.write "┌───┬───┬───┬───┬───┐"& VBcrlf
file.write  "│A" & vbtab &"│B" & vbtab &"│C" & vbtab &"│D" & vbtab &"│E" & vbtab &"│" & VBcrlf
file.write "┝━━━┿━━━┿━━━┿━━━┿━━━┥"& VBcrlf
file.write s
file.write "└───┴───┴───┴───┴───┘"
file.close
ws.run "notepad.exe OUT.txt"

@echo off
(
echo ┌───┬───┬───┬───┬───┐
echo │  A   │  B   │  C   │  D   │  E   │
)>result.txt
setlocal enabledelayedexpansion
for /l %%i in (1,1,6) do (
    for /l %%j in (1,1,6) do (
        for /l %%k in (1,1,6) do (
            for /l %%l in (1,1,6) do (
                for /l %%m in (6,-1,1) do (
                    set /a num=%%i+%%j+%%k+%%l+%%m
                    if !num! equ 10 (
                        if !count! equ 0 (echo ┝━━━┿━━━┿━━━┿━━━┿━━━┥
                            ) else echo ├───┼───┼───┼───┼───┤
                        echo │  %%i   │  %%j   │  %%k   │  %%l   │  %%m   │
                    )>>result.txt&set /a count+=1
                )
            )
        )
    )
)
(
echo └───┴───┴───┴───┴───┘
echo 5人分10个苹果^(每人至少分到一个^)总共有%count%种分法
)>>result.txt
start result.txt

@echo off

:begin
cls
set count=0
set input=
set /p input= 请输入苹果数(退出请直接回车)：
if not defined input exit
if %input% lss 5 echo  苹果数太少，请重新输入&pause&goto begin
set /a max=%input%-4
(
echo ┌───┬───┬───┬───┬───┐
echo │  A   │  B   │  C   │  D   │  E   │
)>result.txt
setlocal enabledelayedexpansion
for /l %%i in (1,1,%max%) do (
    for /l %%j in (1,1,%max%) do (
        for /l %%k in (1,1,%max%) do (
            for /l %%l in (1,1,%max%) do (
                for /l %%m in (%max%,-1,1) do (
                    set /a num=%%i+%%j+%%k+%%l+%%m
                    if !num! equ %input% (
                        if !count! equ 0 (echo ┝━━━┿━━━┿━━━┿━━━┿━━━┥
                            ) else echo ├───┼───┼───┼───┼───┤
                        echo │  %%i   │  %%j   │  %%k   │  %%l   │  %%m   │
                    )>>result.txt&set /a count+=1
                )
            )
        )
    )
)
(
echo └───┴───┴───┴───┴───┘
echo 5人分%input%个苹果^(每人至少分到一个^)总共有%count%种分法
)>>result.txt
start result.txt
goto begin

::分苹果问题的延伸,分割法规律控制.
::tghksj@http://www.cn-dos.net/
::tghksj@http://w.vicp.net/
::转载请注明出处.谢谢啊:) 20070122
@ECHO %DBG% OFF
SETLOCAL ENABLEDELAYEDEXPANSION

:SETUP
SET /P RS=(回车退出)输入人数:           & IF NOT DEFINED RS EXIT /B
SET /P PG=(回车退出)输入苹果数:         & IF NOT DEFINED PG EXIT /B
SET /P ZS=输入每人最少分苹果数:         & IF NOT DEFINED ZS EXIT /B
SET /A ZD=%PG%-(%RS%-1)*%ZS%,f=0,g=%RS%-1,j=%RS%-2
IF %ZD% LSS %ZS% (ECHO 不可能,重新输入. & GOTO :SETUP)
FOR /L %%i IN (1,1,%RS%) DO (SET /A R%%i=!ZS! & IF !RS!==%%i SET /A R%%i=!ZD!)

:MAIN
CALL :PRI & IF %R1%==%ZD% GOTO :EOF
IF !R%RS%!==%ZS% (
                  CALL :GUI & CALL :JIN & CALL :ADD
                  SET /A R%RS%=%PG%-!h!,j=%RS%-2
                  GOTO :MAIN
                  )
SET /A R%RS%-=1,R%g%+=1
GOTO :MAIN

:PRI
FOR /L %%i IN (1,1,%RS%) DO SET /P=!R%%i! <NUL
SET /A f+=1 & ECHO : !f!
GOTO :EOF

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

:JIN
SET /A R%j%+=1
CALL :ADD
SET /A h=%h%+(%ZS%-1)
IF %h%==%PG% (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

if a+b+c+d+e=ccur(i) then

set /a num=%%i+%%j+%%k+%%l+%%m
if !num! equ %input% (...)