shelluserwlb

：

@echo off 
goto :start
程序4
题目：输入某年某月某日，判断这一天是这一年的第几天？
程序分析：以3月5日为例，应该先把前两个月的加起来，然后再加上5天即本年的第几天，特殊
　　　　　　情况，闰年且输入月份大于3时需考虑多加一天。

:start
color 9f
setlocal EnableDelayedExpansion
set /a total=0
set /a f=0 
set /p ndate=输入年月日(例: 2014.11.10): 

::从输入的信息获取年、月、日
for /f "tokens=1,2,3 delims=." %%i in ("%ndate%") do (
    set /a nyear=%%i 
    set /a nmonth=%%j
    set /a nday=%%k
    if "!nmonth:~0,1!" == "0" set nmonth=!nmonth:~1,1!
    if "!nday:~0,1!" == "0" set nday=!nday:~1,1!
)
::判断该年是平年或闰年
set /a t1=%nyear%%%400 
set /a t2=%nyear%%%4
set /a t3=%nyear%%%100
if %t1% equ 0 set /a f=1
if %t2% equ 0 (if %t3% neq 0 set /a f=1)

::根据所输入的月份计算总天数
if "%nmonth%" == "1" (set /a total=0+%nday% & goto :1 )
if "%nmonth%" == "2" (set /a total=31+%nday% & goto :1 )
if "%nmonth%" == "3" (set /a total=59+%f%+%nday% & goto :1 )
if "%nmonth%" == "4" (set /a total=90+%f%+%nday% & goto :1 )
if "%nmonth%" == "5" (set /a total=120+%f%+%nday% & goto :1 )
if "%nmonth%" == "6" (set /a total=151+%f%+%nday% & goto :1 )
if "%nmonth%" == "7" (set /a total=181+%f%+%nday% & goto :1 )
if "%nmonth%" == "8" (set /a total=212+%f%+%nday% & goto :1 )
if "%nmonth%" == "9" (set /a total=243+%f%+%nday% & goto :1 )
if "%nmonth%" == "10" (set /a total=273+%f%+%nday% & goto :1 )
if "%nmonth%" == "11" (set /a total=304+%f%+%nday% & goto :1 )
if "%nmonth%" == "12" (set /a total=334+%f%+%nday% & goto :1 )
:1
::输出计算结果
if %total%==0 (
    echo 输入日期信息错误,请重新输入！& pause>nul 
    cls & goto :START
) else (
    echo %nyear%年%nmonth%月%nday%日是该年的第%total%天。
)
endlocal
pause>nul
复制代码

shelluserwlb

@echo off 
goto :start
程序11
题目：古典问题：有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月
　　　后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？
程序分析：　兔子的规律为数列1,1,2,3,5,8,13,21...
:start
setlocal EnableDelayedExpansion
set /a f1=1
set /a f2=1
set /p nt=请入月数：
echo 第1个月:1对兔子 & if "%nt%" == "1"  goto :1
echo 第2个月:1对兔子 & if "%nt%" == "2"  goto :1
for /l %%i in (3,1,%nt%) do (
    set /a f3=!f1!+!f2!
    set /a f1=!f2!
    set /a f2=!f3! 
    echo 第%%i个月:!f3!对兔子  
)
:1
endlocal
echo 统计完毕！& pause>nul
复制代码