中国DOS联盟

@echo off

for /l %%i in (1,1,4) do set a=%%i&call :lp %%a%%

pause&goto :eof

:lp

for /l %%j in (1,1,4) do if not %%j equ %a% set b=%%j&call :loop %%a%% %%b%%

goto :eof

:loop

for /l %%k in (1,1,4) do (

    if not %%k equ %a% set d=%%k

    setlocal enabledelayedexpansion

    if not !d! equ %b% set c=!d!

)

echo %a%%b%%c%

endlocal

goto :eof

@echo off

for /l %%i in (1,1,9) do (

    setlocal enabledelayedexpansion

    for /l %%j in (1,1,%%i) do (

        set a=%%i&set b=%%j

        set /a c=!a!*!b!&set /a m+=1

        if !c! lss 10 set c= !c!

        set "var=!a!*!b!=!c!"

        set str=!str! !var!

        if !m! equ !a! echo !str!&set m=0&set str=

        )

endlocal

)

pause>nul

@echo off

:begin

cls

set /p var=输入要计算的日期（格式为2000-01-01）:

if "%var:~4,1%%var:~7,1%"=="--" goto year

cls

echo 输入格式不正确！请返回正确输入。&ping /n 2 127.1>nul&goto begin

:year

set year=%var:~,4%

set /a str=%year%-%year%/4*4

:month

if %var:~5,1% equ 0 (set month=%var:~6,1%) else (set month=%var:~5,2%)

set /a month=%month%-1

if %month% equ 0 set /a number=0 

if %month% equ 1 set /a number=31

if %month% equ 2 set /a number=31+28 

if %month% equ 3 set /a number=31*2+28

if %month% equ 4 set /a number=31*2+30+28 

if %month% equ 5 set /a number=31*3+30+28

if %month% equ 6 set /a number=31*3+30*2+28 

if %month% equ 7 set /a number=31*4+30*2+28 

if %month% equ 8 set /a number=31*5+30*2+28 

if %month% equ 9 set /a number=31*5+30*3+28 

if %month% equ 10 set /a number=31*6+30*3+28 

if %month% equ 11 set /a number=31*6+30*4+28

if %str% equ 0 if %month% gtr 2 set /a number=%number%+1

:day

if %var:~8,1% equ 0 (set /a number=%number%+%var:~9,1%) else (set /a number=%



number%+%var:~8,2%)

cls

echo %var%是%year%年的第%number%天

pause>nul

@echo off

set/p p1=输入年:

set/p p2=输入月:

set/p p3=输入日:

set/a pn="!(p1%%4) & !(!(p1%%100)) | !(p1%%400)"

for /f "tokens=%p2%" %%i in ("0 31 59 90 120 151 181 212  243 273 304 334") do set/a n=%%i+p3

if %P2% gtr 2 set/a n+=pn

if %P2% equ 2 if %P3% equ 29 if %pn% equ 0 echo %p1%年不是闰年 所以%P2%月不会有%P3%日&pause&exit

echo %p1%年%p2%月%p3%日 是 %p1% 年的第 %n% 天

pause

@echo off&setlocal enabledelayedexpansion

set str=1 2 3 4

for %%a in (!str!) do (

    set str1=!str:%%a=!

for %%b in (!str1!) do (

    set str2=!str1:%%b=!

for %%c in (!str2!) do (

     set str3=!str2:%%c=!

     echo %%b%%c!str3: =!

     set /a n+=1

  )

 )

)

echo 有%n%种排列

pause

@echo off&setlocal enabledelayedexpansion

for /l %%i in (99,-1,10) do (

set/a m=%%i*8,n=%%i*9

if !m! lss 100 if !n! gtr 100 set/a mn=809*%%i&set str=%%i 

)

echo 809 × %str% = %mn%

pause

@echo off

set m=1

set n=10

:lp

set/a m+=1

set/a m=%m%*2,n-=1

if %n% gtr 1 goto lp

echo 第一天摘了 %m%

pause

@echo off

set/p var=请输入数字

set var=%var: =%

:lp

set .%var:~0,1% %random%=a

  set var=%var:~1%

    if not "%var%" == "" goto :lp

    set/p =排序后为:<nul

      for /f "delims=.= " %%i in ('set .') do set/p =%%i<nul

echo.

pause

@echo off

for /l %%i in (1,1,20) do set/a n+=%%i

echo %n%

pause

@echo off

set /p month=月份：

if %month% gtr 0 if %month% leq 2 echo 2只&pause&goto :eof

set /a month=%month%-2

set n=2&set m=2

:begin

set /a n=%n%+%m%

set /a w+=1

if %w% equ %month% echo %n%只&pause&goto :eof

set /a m=%m%+%n%

set /a v+=1

if %v% equ %month% echo %m%只&pause&goto :eof

goto begin

::判断素数【程序12】

@echo off

for /l %%a in (101,1,200) do call:j %%a

exit/b



:j

setlocal enabledelayedexpansion

set/a half=%1/2

for /l %%a in (2,1,!half!) do set/a r=%1%%%%a&if !r! equ 0 goto:eof

set/p=%1 <nul

::【程序25】 题目：求1+2!+3!+...+20!的和

@echo off&setlocal

for /l %%a in (1,1,20) do call:j %%a&set/a sum+=j

echo %sum%

pause

exit/b



:j

set/a j=1

for /l %%a in (1,1,%1) do set/a j*=%%a

::【程序19】找“完数”

@echo off

echo Calculating...

for /l %%a in (1,1,1000) do (

	setlocal enabledelayedexpansion

	set/a sum=0

	set/a a'=%%a-1

	for /l %%b in (1,1,!a'!) do (

		set/a t=%%a%%%%b

		if !t! equ 0 set/a sum+=%%b

	)

	if !sum! equ %%a set/p=%%a <nul

	endlocal

)

pause

@echo off

for /l %%i in (100,1,999) do (

    set str=%%i

    setlocal enabledelayedexpansion

    set a=!str:~,1!&set b=!str:~1,1!&set c=!str:~2,1!

    set /a var=!a!*!a!*!a!+!b!*!b!*!b!+!c!*!c!*!c!

    if !var! equ !str! echo !str!

    endlocal

)

pause