apang

好难哦，好多不会。占位。。。

apang

1

@echo off
:start
cls&set/p str=请输入一个4位数：
if "%str:~,-3%"=="" goto start
if not "%str:~4%"=="" goto start
echo 分行输出:&(for /l %%a in (0 1 3) do call echo %%str:~%%a,1%%)
echo 同行输出:&(for /l %%a in (0 1 3) do call set/p=%%str:~%%a,1%% <nul)
echo.&echo 反序输出:&(for /l %%a in (3 -1 0) do call set/p=%%str:~%%a,1%%<nul)
echo.&pause
复制代码

2

@echo off
:start
cls&set/p str=请输入一个4位数：
if "%str:~,-3%"=="" goto start
if not "%str:~4%"=="" goto start
for /l %%a in (0 1 3) do call set/a sum+=%%str:~%%a,1%%
echo 4个数值的和: %sum%&pause
复制代码

3

@echo off
set n=0&set str=
call :loop 2 0 1 2
echo %str%运行了%n%次&pause&exit

:loop
if "%1"=="" goto :eof
set/a n+=1&set aa=%random:~-1%
if "%aa%"=="%1" (set str=%str%%aa%&shift&goto loop) else goto loop
复制代码

4

@echo off
set n=0
set min=0&set max=2012
:loop
set/a n+=1
set/a mod=%max%-%min%+1
set /a str=%random%%%%mod%+%min%
echo 第%n%次	%str%
if not "%str%"=="%max%" set min=%str%&goto loop
pause
复制代码

5

@echo off
set/p input=请输入年份(如2012):
set/a "year=!(%input%%%4)&!(!(%input%%%100))|!(%input%%%400)"
if "%year%"=="1" (echo 闰年) else echo 平年
pause
复制代码

6

@echo off&setlocal enabledelayedexpansion
for /l %%a in (1 1 12) do (
   set month=%%a&set day=31
   set/a m=!month!%%2
   if !month! geq 8 (if !m! equ 1 set/a day-=1) else if !m! equ 0 set/a day-=1
   if !month! equ 2 set/a day-=1
   for /l %%b in (1 1 !day!) do set/p=2012/!month!/%%b <nul
   echo.
)
pause
复制代码

7

@echo off
set "str=2012　0" 
for %%a in (xls doc txt pdf jpg) do call echo %%str%%>2012.%%a
复制代码

8

@echo off&setlocal enabledelayedexpansion
:start
cls&set/p input=请输入一个4位数：
if "!input:~,-3!"=="" goto start
if not "!input:~4!"=="" goto start
:loop
for %%i in (1一 2二 3三 4四 5五 6六 7七 8八 9九 0零) do (
        set "var=%%i"
        if "!input:~,1!"=="!var:~,1!" set str=!str!!var:~1,1!&goto shift
       )

:shift
set "input=!input:~1!"
if not "!input!"=="" goto loop
echo !str!
pause
复制代码

9

@echo off&setlocal enabledelayedexpansion
set str=&set output=
echo 正在生成result.txt文件, 请稍候...
(for /l %%a in (1 1 2012) do (
    set str=%%a
    for %%b in (1一 2二 3三 4四 5五 6六 7七 8八 9九 0零) do (
        set var=%%b&set m=!var:~,1!&set n=!var:~1,1!
        call set str=%%str:!m!=!n!%%
    )
    if "!str:~4!"=="" set output=!str:~,1!千!str:~1,1!百!str:~2,1!十!str:~3,1!
    if "!str:~3!"=="" set output=!str:~,1!百!str:~1,1!十!str:~2,1!
    if "!str:~2!"=="" set output=!str:~,1!十!str:~1,1!
    if "!str:~1!"=="" set output=!str:~,1!
    set output=!output:零百=零!&set output=!output:零十=零!
    set output=!output:零零零=零!&set output=!output:零零=零!
    if "!output:~-1!"=="零" set output=!output:~,-1!
    if "!output:~,1!"=="零" set output=!output:~1!
    if "!output:~,2!"=="一十" set output=!output:~1!
    set/p=!output! <nul
))>result.txt
复制代码

10

@echo off&setlocal enabledelayedexpansion
set "str1=2012年，祝愿大家："
set "str2=天天好心情！"
set "str3=事事随心愿！"
for /l %%a in (1 1 3) do set n=0&set str=!str%%a!&call :loop
echo.&pause

:loop
if "!str:~%n%!"=="" echo.&goto :eof
set/p=!str:~%n%,1!<nul&set/a n+=1
for /l %%b in (1 1 500) do echo %%b>nul
goto loop
复制代码

做完了，交差 。。。

apang

同时请大家在解题时稍微注意下代码的运行效率，call来call去再加上goto，代码基本无效率可言。。。
batman 发表于 2012-2-18 21:16

有的题偶根本不会做，会做的也是想破脑袋瓜才做出来滴。对偶来说，实在没办法考虑效率问题呀。。。
超版是不是对新手过于苛求了。。。

apang

请问超版，第三题我用这种方式生成2012，是不是不妥，或者根本就是错的？

@echo off
set n=0&set str=
call :loop 2 0 1 2
echo %str%运行了%n%次&pause&exit

:loop
if "%1"=="" goto :eof
set/a n+=1&set aa=%random:~-1%
if "%aa%"=="%1" (set str=%str%%aa%&shift&goto loop) else goto loop
复制代码