: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 ]作者: dikex 时间: 2007-6-27 21:38 倒,制表符又被换掉了,去编辑一下……作者: youxi01 时间: 2007-6-27 22:19 是不是应该缩小下范围,否则要考虑的东西太多:
比如:1、输入的是超大数字,不仅排版有问题,计算也是比较麻烦的,有时输入的可能还不是数字,这个又涉及到数字检测的问题。
2、数字输入是不是要限制在整数范围?等等作者: textcd 时间: 2007-6-27 22:42
Quote:
Originally posted by dikex at 2007-6-27 09:37 PM:
写了一个较长的,可能会有什么BUG……
对输入几乎没有什么判断,输入时要小心不要输入错误了;
无奈的是论坛将制表符替换为空格了,各位自行将 ...
多谢,我去试一试。作者: textcd 时间: 2007-6-27 22:48
Quote:
Originally posted by dikex at 2007-6-27 09:37 PM:
写了一个较长的,可能会有什么BUG……
对输入几乎没有什么判断,输入时要小心不要输入错误了;
无奈的是论坛将制表符替换为空格了,各位自行将 ...