sgaizxt001

感觉比上一题简单，整两个随机数，一个乱序排列学生，一个代表学生的分数，努力写代码，顺便顶上去。

@echo off
setlocal enabledelayedexpansion
for %%a in (A B C D) do (
  for /l %%b in (1,1,100) do (
   set /a soc=!random!%%46+55
   set #%%a-!random~-2!-%%a-%%b-!soc!=0
)
)
for /l %%a in (1,1,10) do (
for /f "tokens=2,3,4 delims=-=" %%b in ('set #') do (
    for %%i in (%%b-%%c:%%d) do (
      set str=%%i
      set /a n+=1
      set /a m=n%%10+1
      if "!str:~0,1!"=="A" if %%d gtr 90 (set "str=!str!:稳定") else (set "str=!str!:退步")
      if "!str:~0,1!"=="B" if %%d lss 80 (set "str=!str!:退步") else (if %%d gtr 90 (set "str=!str!:进步") else (set "str=!str!:稳定"))
      if "!str:~0,1!"=="C" if %%d lss 70 (set "str=!str!:退步") else (if %%d gtr 80 (set "str=!str!:进步") else (set "str=!str!:稳定"))
      if "!str:~0,1!"=="D" if %%d gtr 70 (set "str=!str!:进步") else (set "str=!str!:稳定")
      if !m! equ %%a call set x%%a=!str! !x%%a!
)
)
)
for /l %%j in (1,1,10) do (
  echo 第%%j班:
  echo !x%%j!
)
pause
复制代码

效率出奇的慢，把x%%a=!str! !x%%a!中间的空格改为tab
当然我还有个疑问，是先分好班，输出每个班的学生，然后再分配给每个学生的一个随机的考试分数，然后再按先分好的班输出最后的结果吗？

[ 本帖最后由 sgaizxt001 于 2010-6-30 02:07 编辑 ]

sgaizxt001

加入统计

@echo off
setlocal enabledelayedexpansion
for %%a in (A B C D) do (
  for /l %%b in (1,1,100) do (
   set /a soc=!random!%%46+55
   set #%%a-!random~-2!-%%a-%%b-!soc!=0
)
)

for /l %%a in (1,1,10) do (
for /f "tokens=2,3,4 delims=-=" %%b in ('set #') do (
    for %%i in (%%b-%%c:%%d) do (
      set str=%%i
      set /a n+=1
      set /a m=n%%10+1
      if "!str:~0,1!"=="A" if %%d gtr 90 (set "str=!str!:稳定") else (set "str=!str!:退步")
      if "!str:~0,1!"=="B" if %%d lss 80 (set "str=!str!:退步") else (if %%d gtr 90 (set "str=!str!:进步") else (set "str=!str!:稳定"))
      if "!str:~0,1!"=="C" if %%d lss 70 (set "str=!str!:退步") else (if %%d gtr 80 (set "str=!str!:进步") else (set "str=!str!:稳定"))
      if "!str:~0,1!"=="D" if %%d gtr 70 (set "str=!str!:进步") else (set "str=!str!:稳定")
      if !m! equ %%a  set x%%a=!str!        !x%%a!
      if %%d gtr 90 set /a a=!a!+1
      if %%d geq 80 if %%d leq 90 set /a b=!b!+1
      if %%d geq 70 if %%d lss 80 set /a c=!c!+1
      if %%d lss 70 set /a d=!d!+1
)
)
)
set /a a=!a!/10
set /a b=!b!/10
set /a c=!c!/10
set /a d=!d!/10
for /l %%j in (1,1,10) do (
  echo 第%%j班:
  echo !x%%j!
)
echo.
echo 这个学期结束后优等生有!a!个
echo 这个学期结束后高等生有!b!个
echo 这个学期结束后中等生有!c!个
echo 这个学期结束后差等生有!d!个
pause
复制代码

因为在开始计算的时候，代码循环了10次，所以数目多算了10次，最后就让他们除以10得出最后的结果
比较有意思的是我运行20来次，发现差等生总是多余100个，优等生多余100个的只有1次，中间的有多有少

[ 本帖最后由 sgaizxt001 于 2010-6-30 02:33 编辑 ]

sgaizxt001

效率提高了，但是代码还是比别人的长

@echo off
setlocal enabledelayedexpansion
for %%a in (A B C D) do (
  for /l %%b in (1,1,100) do (
   set /a soc=!random!%%46+55
   set #!random:~-2!-%%a-%%b-!soc!=0
)
)
for /f "tokens=2,3,4 delims=-=" %%a in ('set #') do (
  set str=%%a-%%b:%%c
  if "!str:~0,1!"=="A" if %%c gtr 90 (set "str=!str!:稳定") else (set "str=!str!:退步")
  if "!str:~0,1!"=="B" if %%c lss 80 (set "str=!str!:退步") else (if %%c gtr 90 (set "str=!str!:进步") else (set "str=!str!:稳定"))
  if "!str:~0,1!"=="C" if %%c lss 70 (set "str=!str!:退步") else (if %%c gtr 80 (set "str=!str!:进步") else (set "str=!str!:稳定"))
  if "!str:~0,1!"=="D" if %%c gtr 70 (set "str=!str!:进步") else (set "str=!str!:稳定")
  if %%c gtr 90 set /a a=!a!+1
  if %%c geq 80 if %%c leq 90 set /a b=!b!+1
  if %%c geq 70 if %%c lss 80 set /a c=!c!+1
  if %%c lss 70 set /a d=!d!+1
  echo !str!
)
echo.
echo 这个学期结束后优等生有!a!个
echo 这个学期结束后高等生有!b!个
echo 这个学期结束后中等生有!c!个
echo 这个学期结束后差等生有!d!个
pause
复制代码