中国DOS联盟

一个表格，N行M列。需要制作一个批处理如下：
1、手动输入每个表格中的数字；
2、输入完成后计算每行和每列的和；
3、计算每个数字的平方和；
4、每步完成后显示或输出到文件。


在这里先谢谢了。

[ Last edited by bjsh on 2007-7-31 at 10:53 AM ]

这个交给Excel方便多了

多谢，但是我想用批处理解决。

批处理不能直接运算小数，如果楼主需要计算到到小数时就很麻烦了；

3、计算每个数字的平方和；
这个的意思是计算所有数据的平方和吗？还是每行或者每列？

Originally posted by dikex at 2007-6-27 07:37 PM:
批处理不能直接运算小数，如果楼主需要计算到到小数时就很麻烦了；

3、计算每个数字的平方和；
这个的意思是计算所有数据的平方和吗？还是每行或者每列？

每个数的平方相加。
多谢。

用gawk应该可以。

两个for嵌套应该可以。

写了一个较长的，可能会有什么BUG……
对输入几乎没有什么判断，输入时要小心不要输入错误了；
无奈的是论坛将制表符替换为空格了，各位自行将黑体的制表符替换为真正的制表符吧



@echo off
setlocal enabledelayedexpansion

:START
cls
set "y=1"
set "x=1"
set "cy=1"
set "cx=1"
set /p ny=输入行数：
set /p nx=输入列数：

:MODE
set choice=<nul
echo 1：连续输入
echo 2：单独输入
set /p "choice=请选择："
if "%choice%"=="1" (call :PRINT & goto :CIP)
if "%choice%"=="2" (call :PRINT & goto :DIP)
goto :CIP

:CIP
set choice=<nul
set /p "choice=输入数值(%y%行%x%列),Q:退出输入"
set choice|findstr /r /i "" 1>nul 2>nul || goto :CIP
if /i "%choice%"=="Q" (call :PRINT & goto :CAL)
set "%y%'%x%=%choice%"
if %x%==%nx% if %y%==%ny% (call :PRINT & goto :CAL)
if %x%==%nx% (set /a "y+=1" & set "x=1") else set /a "x+=1"
call :PRINT
goto :CIP

:DIP
call :PRINT
echo 输入相关信息,Q退出输入
set /p "choice=输入行："
if /i "%choice%"=="Q" (call :PRINT & goto :CAL) else (set "y=%choice%" & set choice=<nul)
set /p "choice=输入列："
if /i "%choice%"=="Q" (call :PRINT & goto :CAL) else (set "x=%choice%" & set choice=<nul)
set /p "choice=输入值："
if /i "%choice%"=="Q" (call :PRINT & goto :CAL) else (set "%y%'%x%=%choice%" & set choice=<nul)
goto :DIP

:PRINT
cls
set /p=行\列<nul
for /l %%i in (1,1,%nx%) do set /p=制表符^|%%i^|<nul
echo.
for /l %%y in (1,1,%ny%) do (
set /p=^|%%y^|<nul
for /l %%x in (1,1,%nx%) do (
if %%x==%nx% (echo+制表符!%%y'%%x!) else set /p=制表符!%%y'%%x!<nul
)
)
goto :EOF

:CAL
echo.
set count=0
for /l %%y in (1,1,%ny%) do (
for /l %%x in (1,1,%nx%) do (
if not "!%%y'%%x!"=="" set /a "ysum+=!%%y'%%x!
)
echo 第%%y行的和为:!ysum!
set ysum=0
)
echo.
set count=0
for /l %%x in (1,1,%nx%) do (
for /l %%y in (1,1,%ny%) do (
if not "!%%y'%%x!"=="" set /a "xsum+=!%%y'%%x!
)
echo 第%%x列的和为:!xsum!
set xsum=0
)
echo.
set count=0
for /l %%x in (1,1,%nx%) do (
for /l %%y in (1,1,%ny%) do (
if not "!%%y'%%x!"=="" set /a "sum=!sum!+!%%y'%%x!*!%%y'%%x!
)
)
echo 平方和为:!sum!
echo.
set choice=<nul
set /p "choice=返回输入(R)?重新输入(N)?"
if /i "%choice%"=="R" goto :MODE
if /i "%choice%"=="N" goto :START

[ Last edited by dikex on 2007-6-27 at 09:44 PM ]

倒，制表符又被换掉了，去编辑一下……

是不是应该缩小下范围，否则要考虑的东西太多：
比如：1、输入的是超大数字，不仅排版有问题，计算也是比较麻烦的，有时输入的可能还不是数字，这个又涉及到数字检测的问题。
2、数字输入是不是要限制在整数范围？等等

Originally posted by dikex at 2007-6-27 09:37 PM:
写了一个较长的，可能会有什么BUG……
对输入几乎没有什么判断，输入时要小心不要输入错误了；
无奈的是论坛将制表符替换为空格了，各位自行将 ...

多谢，我去试一试。

Originally posted by dikex at 2007-6-27 09:37 PM:
写了一个较长的，可能会有什么BUG……
对输入几乎没有什么判断，输入时要小心不要输入错误了；
无奈的是论坛将制表符替换为空格了，各位自行将 ...

谢谢，基本够用了。

唯一的缺点是不能计算小数，我做统计时常用到小数。。。。。

Originally posted by textcd at 2007-6-27 10:52 PM:
唯一的缺点是不能计算小数，我做统计时常用到小数。。。。。

明白了，小数可以以10倍100倍的方式换为整数，^_^。

楼主居然拿批处理来做统计……
这个东西写来锻炼一下自己的能力还不错，写出来做正式的统计还是excel比较好，呵呵