523066680

……打算看帖不答题……

523066680

大概地模拟了一下2维数组，确实是一道“复合题”，后面的两行，我就不弄了

@echo off
setlocal enabledelayedexpansion
set /a a=-1
for /f "tokens=*" %%a in (a.x) do (
   set /a a+=1,b=-1
   for %%b in (%%a) do (
      set /a b+=1
      set str[!a!][!b!]=%%b
   )
)
for /l %%b in (1,1,6) do (
  for /l %%a in (1,1,%a%) do (
    set /a !str[0][%%b]!+=str[%%a][%%b]
    if "!str[%%a][%%b]!"=="0" (set zero%%b=!zero%%b!!str[%%a][0]!;)
  )
  if "!zero%%b!"=="" (set "zero%%b=无;")
  for %%x in (!str[0][%%b]!) do (set now=!%%x!)
  echo,!str[0][%%b]!!now! , 本次完成0的分局: !zero%%b:~0,-1!
)

pause
exit
复制代码

523066680

如果要算法来排序，可能会选择用选择排序吧。。。。。。
排序可是个出过的题。你们用set 变量名， 用冒泡，用选择，用希尔，然后呢？

523066680

还是做了

@echo off
setlocal enabledelayedexpansion
::第一部分是赋值二维数组模型
set /a a=-1
for /f "tokens=*" %%a in (a.x) do (
   set /a a+=1,b=-1
   for %%b in (%%a) do (
      set /a b+=1 
      set str[!a!][!b!]=%%b
   )
)
set /a 项目数=b-2
::给出某项任务完成的个数，并找出0的局
for /l %%b in (1,1,%项目数%) do (
  for /l %%a in (1,1,%a%) do (
    set /a !str[0][%%b]!+=str[%%a][%%b]
    if "!str[%%a][%%b]!"=="0" (set zero%%b=!zero%%b!!str[%%a][0]!;)
  )
  if "!zero%%b!"=="" (set "zero%%b=无;")
  for %%x in (!str[0][%%b]!) do (set now=!%%x!)
  echo,!str[0][%%b]!!now! , 本次完成0的分局: !zero%%b:~0,-1!
)
::最后两列，和对应的项目名按顺序，匹配好并列出
set /a last=b-1
:result
set result=!str[0][%last%]!:
for /l %%b in (1,1,%a%) do (
   for /l %%a in (1,1,%a%) do (
     if "!str[%%a][%last%]!"=="%%b" (
       set result=!result! !str[%%a][0]!!str[%%a][%last%]!
     )
   )
)
echo,%result%
if %last% lss %b% (set /a last+=1 &goto :result)
pause
exit
复制代码

[ 本帖最后由 523066680 于 2009-11-20 14:49 编辑 ]

523066680

对出现的6进行了修补
数组赋值后遗留的 a b变量分别表示行和列
因为最后两列是排名，我用项目数=b-2表示项目数量，剔除了6

不足之处，表示同意。

[ 本帖最后由 523066680 于 2009-11-20 16:41 编辑 ]

523066680

事实上这道题会遇到的排序问题，根之前讨论的纯数字排序有一点不同
就是你要：给这个项目排序，不管你怎样操作，
          最终都必须为每个数字匹配这个数值的"主人"  并显示出来。

这个问题在表格操作中是经常会遇到的，例如给学生各科成绩排名
此时要排的就不仅仅是数值，还有该分值对应的"主人"   
针对于各列并且要关系到其中一项的行上其他数据时，我认为应该让批处理加入 二维数组 概念

[ 本帖最后由 523066680 于 2009-11-21 10:02 编辑 ]