标题: [求助]计算表格的和及平方和 [打印本页]
作者: textcd 时间: 2007-6-27 19:10 标题: [求助]计算表格的和及平方和
一个表格，N行M列。需要制作一个批处理如下：
1、手动输入每个表格中的数字；
2、输入完成后计算每行和每列的和；
3、计算每个数字的平方和；
4、每步完成后显示或输出到文件。
在这里先谢谢了。
[ Last edited by bjsh on 2007-7-31 at 10:53 AM ]
作者: zh159 时间: 2007-6-27 19:30
这个交给Excel方便多了
作者: textcd 时间: 2007-6-27 19:32
多谢，但是我想用批处理解决。
作者: dikex 时间: 2007-6-27 19:37
批处理不能直接运算小数，如果楼主需要计算到到小数时就很麻烦了；
3、计算每个数字的平方和；
这个的意思是计算所有数据的平方和吗？还是每行或者每列？
作者: textcd 时间: 2007-6-27 19:42
| Quote: | |
|
每个数的平方相加。
多谢。
作者: lxmxn 时间: 2007-6-27 20:56
用gawk应该可以。
作者: wudixin96 时间: 2007-6-27 21:17
两个for嵌套应该可以。
作者: dikex 时间: 2007-6-27 21:37
写了一个较长的，可能会有什么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 "[0-9nq]" 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
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 ]
作者: dikex 时间: 2007-6-27 21:38
倒，制表符又被换掉了，去编辑一下……
作者: youxi01 时间: 2007-6-27 22:19
是不是应该缩小下范围，否则要考虑的东西太多：
比如：1、输入的是超大数字，不仅排版有问题，计算也是比较麻烦的，有时输入的可能还不是数字，这个又涉及到数字检测的问题。
2、数字输入是不是要限制在整数范围？等等
作者: textcd 时间: 2007-6-27 22:42
| Quote: | |
|
多谢，我去试一试。
作者: textcd 时间: 2007-6-27 22:48
| Quote: | |
|
谢谢，基本够用了。
作者: textcd 时间: 2007-6-27 22:52
唯一的缺点是不能计算小数，我做统计时常用到小数。。。。。
作者: textcd 时间: 2007-6-27 23:05
| Quote: | |
|
明白了，小数可以以10倍100倍的方式换为整数，^_^。
作者: dikex 时间: 2007-6-27 23:10
楼主居然拿批处理来做统计……
这个东西写来锻炼一下自己的能力还不错，写出来做正式的统计还是excel比较好，呵呵
作者: textcd 时间: 2007-6-27 23:28
| Quote: | |
|
我觉得这样也很好啊，^_^，多谢你啦。