|
textcd
初级用户
积分 52
发帖 21
注册 2007-1-19
状态 离线
|
『楼 主』:
[求助]计算表格的和及平方和
一个表格，N行M列。需要制作一个批处理如下：
1、手动输入每个表格中的数字；
2、输入完成后计算每行和每列的和；
3、计算每个数字的平方和；
4、每步完成后显示或输出到文件。
在这里先谢谢了。
[ Last edited by bjsh on 2007-7-31 at 10:53 AM ]
|
|
 2007-6-27 19:10 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第
2 楼』:
这个交给Excel方便多了
|
 |
|
|
2007-6-27 19:30 |
|
|
textcd
初级用户
积分 52
发帖 21
注册 2007-1-19
状态 离线
|
|
|
2007-6-27 19:32 |
|
|
dikex
高级用户
潜水修练批处理
积分 788
发帖 366
注册 2006-12-31
状态 离线
|
『第
4 楼』:
批处理不能直接运算小数，如果楼主需要计算到到小数时就很麻烦了；
3、计算每个数字的平方和；
这个的意思是计算所有数据的平方和吗？还是每行或者每列？
|
正在潜水修练的批处理小白 |
|
|
2007-6-27 19:37 |
|
|
textcd
初级用户
积分 52
发帖 21
注册 2007-1-19
状态 离线
|
『第
5 楼』:
| Quote: | Originally posted by dikex at 2007-6-27 07:37 PM:
批处理不能直接运算小数，如果楼主需要计算到到小数时就很麻烦了；
3、计算每个数字的平方和；
这个的意思是计算所有数据的平方和吗？还是每行或者每列？ |
|
每个数的平方相加。
多谢。
|
|
|
2007-6-27 19:42 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
|
|
2007-6-27 20:56 |
|
|
wudixin96
银牌会员
积分 1928
发帖 931
注册 2007-1-6
状态 离线
|
|
|
2007-6-27 21:17 |
|
|
dikex
高级用户
潜水修练批处理
积分 788
发帖 366
注册 2006-12-31
状态 离线
|
『第
8 楼』:
写了一个较长的，可能会有什么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
: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 ]
|
正在潜水修练的批处理小白 |
|
|
2007-6-27 21:37 |
|
|
dikex
高级用户
潜水修练批处理
积分 788
发帖 366
注册 2006-12-31
状态 离线
|
『第
9 楼』:
倒，制表符又被换掉了，去编辑一下……
|
正在潜水修练的批处理小白 |
|
|
2007-6-27 21:38 |
|
|
youxi01
高级用户
积分 846
发帖 247
注册 2006-10-27
来自 湖南==》广东
状态 离线
|
『第
10 楼』:
是不是应该缩小下范围，否则要考虑的东西太多：
比如：1、输入的是超大数字，不仅排版有问题，计算也是比较麻烦的，有时输入的可能还不是数字，这个又涉及到数字检测的问题。
2、数字输入是不是要限制在整数范围？等等
|
|
|
2007-6-27 22:19 |
|
|
textcd
初级用户
积分 52
发帖 21
注册 2007-1-19
状态 离线
|
『第
11 楼』:
| Quote: | Originally posted by dikex at 2007-6-27 09:37 PM:
写了一个较长的，可能会有什么BUG……
对输入几乎没有什么判断，输入时要小心不要输入错误了；
无奈的是论坛将制表符替换为空格了，各位自行将 ... |
|
多谢，我去试一试。
|
|
|
2007-6-27 22:42 |
|
|
textcd
初级用户
积分 52
发帖 21
注册 2007-1-19
状态 离线
|
『第
12 楼』:
| Quote: | Originally posted by dikex at 2007-6-27 09:37 PM:
写了一个较长的，可能会有什么BUG……
对输入几乎没有什么判断，输入时要小心不要输入错误了；
无奈的是论坛将制表符替换为空格了，各位自行将 ... |
|
谢谢，基本够用了。
|
|
|
2007-6-27 22:48 |
|
|
textcd
初级用户
积分 52
发帖 21
注册 2007-1-19
状态 离线
|
『第
13 楼』:
唯一的缺点是不能计算小数，我做统计时常用到小数。。。。。
|
|
|
2007-6-27 22:52 |
|
|
textcd
初级用户
积分 52
发帖 21
注册 2007-1-19
状态 离线
|
『第
14 楼』:
| Quote: | Originally posted by textcd at 2007-6-27 10:52 PM:
唯一的缺点是不能计算小数，我做统计时常用到小数。。。。。 |
|
明白了，小数可以以10倍100倍的方式换为整数，^_^。
|
|
|
2007-6-27 23:05 |
|
|
dikex
高级用户
潜水修练批处理
积分 788
发帖 366
注册 2006-12-31
状态 离线
|
『第
15 楼』:
楼主居然拿批处理来做统计……
这个东西写来锻炼一下自己的能力还不错，写出来做正式的统计还是excel比较好，呵呵
|
正在潜水修练的批处理小白 |
|
|
2007-6-27 23:10 |
|
