【练习-060】批处理实现学生成绩评估（续59题）

@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
复制代码

@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
复制代码

@echo off & setlocal enableDelayedExpansion
for %%a in (A B C D) do for %%b in (A B C D) do (
  (set %%a%%a=稳定)&if %%a lss %%b (set %%a%%b=退步&set %%b%%a=进步)
)
for /l %%s in (55 1 100) do (
  set "#%%s=D"
  if %%s geq 70 set "#%%s=C"
  if %%s geq 80 set "#%%s=B"
  if %%s gtr 90 set "#%%s=A"
)
for %%c in (A B C D) do for /l %%i in (1 1 100) do (
    set /a score=!random! %% 46 + 55
    for %%s in (!score!) do for %%t in (!#%%s!) do (
      set /a %%t+=1
      set $!random!%%c-%%i=%%c-%%i:%%s:!%%c%%t!
    )
  )
for /f "tokens=2 delims==" %%i in ('set $') do set /p=%%i <nul
echo. & for %%c in (A B C D) do set /p=%%c: !%%c!   <nul
pause
复制代码

@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
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%a in (55,1,100) do (
    set /a j_%%a=1
　  if %%a geq 70 set /a j_%%a+=1
    if %%a geq 80 set /a j_%%a+=1
    if %%a gtr 90 set /a j_%%a+=1
)
for %%a in (D C B A) do set /a n+=1&set "_%%a=!n!"&set "pd_!n!=%%a"&set ".!n!=进步"&set ".-!n!=退步"
set ".0=稳定"&set "tab=        "
for %%a in (A B C D) do for /l %%b in (1,1,100) do set "#!random!-%%a-%%b=%%a-%%b"
for /f "tokens=4,5 delims==-" %%a in ('set #') do (
    set /a a=!random!%%46+55
    for %%c in (!a!) do (
        set /a b=j_%%c-_%%a
        for %%c in (!j_%%c!) do set /a pd_%%c+=1
    )
    for %%c in (!b!) do (
        set "str=!str!%tab%%%a-%%b:!a!:!.%%c!"
    )
)
echo !str:~1!&set /a n=5
for %%a in (优 高 中 差) do (
    set /a n-=1
    for %%b in (!n!) do echo %%a等生：!pd_%%b!名
)
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1001,1,1100) do set s=%%i&set var=!var!#!s:~-3!&set str=!str!ABCD
    for %%i in (A B C D) do set %%i=!var!&set _%%i=100
    for /l %%i in (1,1,55) do set ce=!ce!0
        set ce=!ce!DDDDDDDDDDDDDDDCCCCCCCCCCBBBBBBBBBBBAAAAAAAAAA
        for %%i in (A B C D) do set l=&for %%j in (A B C D) do (
           if "%%i" equ "%%j" (set _%%i_%%j=稳定) else (
        if "%%i" lss "%%j" (set _%%i_%%j=退步) else set _%%i_%%j=进步
  ))
   set #A=优&set #B=高&set #C=中&set #D=差
   for /l %%i in (400,-1,1) do (
       set /a n=!random!%%%%i,_n=n+1
       for %%a in ("!n!") do (
       for %%b in ("!str:~%%~a,1!") do (
       set /a m=!random!%%_%%~b*4,_%%~b-=1,i=!random!%%46+55
       for %%c in ("!m!") do (
       for %%d in ("!%%~b:~%%~c,4!") do (
       for /f "tokens=* delims=#0" %%e in ("%%~d") do (
       for %%f in ("!_n!") do set str=!str:~,%%~a!!str:~%%~f!
       set %%~b=!%%~b:%%~d=!
       for %%f in ("!i!") do for %%g in ("!ce:~%%~f,1!") do (
       echo %%~b-%%e: %%~f !_%%~b_%%~g!&set/a !#%%~g!+=1
       )))))))
       for %%a in (优 高 中 差) do echo %%a等生：!%%a!名
pause
复制代码