mkl

@echo off
set u=1 2 3 4
for %%j in (%u%) do for %%h in (%u%) do for %%g in (%u%) do if %%j neq %%h if %%h neq %%g if %%g neq %%j echo %%j%%h%%g
pause

[ 本帖最后由 mkl 于 2008-8-3 22:49 编辑 ]

mkl

"【程序81】
题目：809*??=800*??+9*??+1 其中??代表的两位数,8*??的结果为两位数，9*??的结果为3位数。求??代表的两位数，及809*??后的结果。"
题目中的 “  800*??+9*??+1    ” 后面的 “ +1 ”应该去掉吧?
去掉后这样做：

@echo off&setlocal enabledelayedexpansion
for /l %%a in (10 1 99) do (
   for /l %%b in (10 1 99) do (
      set /a x=9*%%b
      set /a y=8*%%a
      if !y! geq 10 if !y! leq 99 (
         if !x! geq 100 if !x! leq 999 (
            if %%a==%%b (
               set /a k=809*%%a
               set /a l=800*%%a+9*%%a
               if "!k!"=="!l!" (
                  echo "??" 代表的两位数是%%a 
                  echo "809*??" 后的结果是!k!
               )
            )
          )
       )
   )
)
pause>nul 
复制代码

[ 本帖最后由 mkl 于 2008-8-8 14:30 编辑 ]

mkl

费了好大的功夫，终于做出来了.做什么事还得靠自己

@ECHO OFF&SETLOCAL ENABLEDELAYEDEXPANSION
:KT 
SET /P F= 请输入日期，如2008年2月3日 2008-2-3  :
FOR /F "TOKENS=1,2,3 DELIMS=-" %%A IN ("%F%") DO SET K=%%A &SET M=%%B &SET D=%%C
SET G=%K:~-2%
IF "%G%"=="00" (
   SET/A E=%K%/400*400
   IF !E! == %K% GOTO RUN 
   IF !E! NEQ %K% GOTO PING
)     
IF "%G%" NEQ "00" (
         SET/A R=%K%/4*4
         IF !R! == %K% GOTO RUN 
         IF !R! NEQ %K% GOTO PING
)
:RUN
SET R=4
GOTO H
:PING
SET R=1
GOTO H
:H 
GOTO %M%
:1
SET I=0
GOTO Z
:2 
SET I=31
GOTO Z
:3
SET I=59
GOTO Z
:4
SET I=90
GOTO Z
:5
SET I=120
GOTO Z
:6
SET I=151
GOTO Z
:7
SET I=181
GOTO Z
:8
SET I=212
GOTO Z
:9
SET I=243
GOTO Z
:10
SET I=273
GOTO Z
:11
SET I=304
GOTO Z
:12
SET I=334
GOTO Z
:Z
IF "%R%" == "1" (
SET/A J=%D%+%I% )
IF "%R%" == "4" (
If "%m%" leq "2" SET /A J=%D%+%I% 
IF "%M%" GTR "2" SET /A J=%D%+%I%+1 
) 
ECHO 你输入的日期是这一年中的第!J!天 
GOTO KT 
复制代码

mkl

上面的太繁琐，改进后代码如下

@echo off&setlocal enabledelayedexpansion
echo 请输入日期，如2008年8月9日:2008-8-9
set /p p=
for /f "tokens=1,2,3 delims=-" %%i in ("%p%") do set y=%%i &set m=%%j &set d=%%k
set "g= 00+31+28+31+30+31+30+31+31+30+31+30"
set /a s=%m%*3
call set /a j=%%g:~1,%s%%%%d%
set i=%y:~-2%
if "%i%" == "00" (
   set /a k=%y%%%400
   if !k! == 0 (goto run) else goto ping
) else (
set /a l=%y%%%4
       if !l! == 0 (goto run)else goto ping
) 
:run 
if %m% leq 2 (set /a j=%j%) else set /a j=!j!+1
:ping
echo 你输入的日期是这一年中的第%j%天 
pause&exit
复制代码