【练习-017】批处理根据输入值进行数值计算

batman

出题目的：
        掌握数值计算
解题要求：
        代码通用、高效
        尽量简洁
        不生成临时文件
加分规则：
        1 新手完成前六个步骤的加分10分
　　 2 新手完成前七个步骤的加分15分
　　 3 老手完成第七个步骤的加分10分
　　 4 老手完成第七、第八步骤的加分15分
题目如下：
　　通过批处理实现如下操作（要求适应于1－9的输入数）

解题限制：
　　请老手不要写出前六个步骤的代码（不要求老手完成）
　　高手只需完成第八个步骤
-------------------------------------------------------------------------
螺旋矩阵的解见：18楼我的解和19楼terse的解

wangwei4106

第一，二题
@echo off
set /p n=请输入数字（1-9）
set /a mun=1^<^<n
echo 平方是:%mun%
pause>nul
set /a mun=4^<^<n
echo 立方是:%mun%
pause>nul&goto :eof

第三题
@echo off
set n=1
set /p n=请输入数字(1-9)
for /l %%i in (1 1 %n%) do (
  set /a sum+=%%i
)
echo 1-%n%的和是:%sum%
pause
后面的还在想，想好就发上来！

[ 本帖最后由 wangwei4106 于 2008-8-27 18:53 编辑 ]

batman

原帖由 wangwei4106 于 2008-8-27 18:26 发表
第一，二题
@echo off
set /p n=请输入数字（1-9）
set /a mun=1^

学到的东西不能生搬硬套，要理解后合理地使用，同时还要养成测试的习惯，杜绝将错误的代码贴上来。

wangwei4106

第一题
@echo off&setlocal enabledelayedexpansion
set /p n=请输入数字(1-9)
set a=%n%
set b=%n%
set /a mun=%a%*%b%
echo 你要的平方是:!mun!
pause
第二题
@echo off&setlocal enabledelayedexpansion
set /p n=请输入数字(1-9)
set a=%n%
set b=%n%
set c=%n%
set /a mun=%a%*%b%*%c%
echo 你要的立方是:!mun!
pause

[ 本帖最后由 wangwei4106 于 2008-8-27 20:40 编辑 ]

mkl

前6题

@echo off
set /p n=请输入数字（1-9）
set /a p=%n%*%n%
set /a pp=%p%*%n%
set o=0 &set oo=1 &set m=0 &set mm=0
set a=1
:jj
set /a o=%o%+%a%
set /a oo=%oo%*%a%
set /a c=%a%*%a%
set /a cc=%a%*%a%*%a%
set /a m=%m%+%c%
set /a mm=%mm%+%cc%
if not %a%==%n% set /a a+=1 &goto jj
echo %n%的平方：%p%
echo %n%的平方：%pp%
echo 从1到%n%的和：%o%
echo 从1到%n%的积：%oo%
echo 从1到%n%的平方和：%m%
echo 从1到%n%的立方和：%mm%
pause>nulCOPY

shqf

前6题如下（后2题明日有空再想想）：

@echo off&setlocal enabledelayedexpansion 
set ji=1
set /p n=请输入数字（1-9）
set /a pf=%n%*%n%
set /a lf=%pf%*%n%
for /l %%i in (1,1,%n%) do (
set /a he+=%%i
set /a ji*=%%i
set /a pfh_pf=%%i*%%i&set /a pfh+=!pfh_pf!
set /a lfh_lf=!pfh_pf!*%%i&set /a lfh+=!lfh_lf!
)
echo %n%的平方：%pf%
echo %n%的平方：%lf%
echo 从1到%n%的和：%he%
echo 从1到%n%的积：%ji%
echo 从1到%n%的平方和：%pfh%
echo 从1到%n%的立方和：%lfh%
 
pause>nulCOPY

[ 本帖最后由 shqf 于 2008-8-27 22:25 编辑 ]

mkl

第7题

@echo off
set /p n=请输入数字（1-9）
set s=%n% &set nn=0 &set v=1
:jj
set /a nn=%nn%+1
set "mn= %nn%"
set /p=%mn:~-2% <nul
if %nn% lss %s% goto jj
echo.
set /a s=%s%+%n%
set /a v=v+1
if %v% leq %n% goto jj
pause>nulCOPY

batman

建议楼上用for来简化代码。。。

batman

@echo off&setlocal enabledelayedexpansion
set /p n=请输入数字（1-9）
set /a nn=n*n
for /l %%i in (1,1,%nn%) do (
     set "a=%%i"&set /a v+=1
     if !a! lss 10 set "a= !a!"
     set /p=!a! <nul
     if !v! equ %n% set "v=0"&echo.
)
pause>nulCOPY

还可减少一个变量：

@echo off&setlocal enabledelayedexpansion
set /p n=请输入数字（1-9）
set /a nn=n*n
for /l %%i in (1,1,%nn%) do (
     set /a v+=1
     if %%i lss 10 (
        set /p= %%i <nul
        ) else (
        set /p=%%i <nul
     )
     if !v! equ %n% set "v=0"&echo.
)
pause>nulCOPY

[ 本帖最后由 batman 于 2008-8-28 10:31 编辑 ]

shqf

batman给我加分，受鼓励，前6步精简了二行代码，再贴出第7步我的解法（第8步实在无从下手了）：

@echo off&setlocal enabledelayedexpansion 
set ji=1
set /p n=请输入数字（1-9）
 
for /l %%i in (1,1,%n%) do (
set /a he+=%%i
set /a ji*=%%i
set /a pf=%%i*%%i&set /a pfh+=!pf!
set /a lf=!pf!*%%i&set /a lfh+=!lf!
)
 
echo %n%的平方：%pf%
echo %n%的平方：%lf%
echo 从1到%n%的和：%he%
echo 从1到%n%的积：%ji%
echo 从1到%n%的平方和：%pfh%
echo 从1到%n%的立方和：%lfh%
echo 4行4列的数列：
for /l %%i in (1,1,%n%) do (
        for /l %%j in (1,1,%n%) do (set /a ij=%%i*%n%-%n%+%%j&set /p=!ij! <nul)
        echo.
)
 
pause>nulCOPY

[ 本帖最后由 shqf 于 2008-8-28 12:49 编辑 ]

pusofalse

for 的/l产生的就是现有的数列，不必再在for里面set/a v+=1

@echo off&setlocal enabledelayedexpansion
set/p n=输入：
set/a m=n*n
for /l %%a in (1 1 %m%) do (
     set/a mod=%%a%%n
     if %%a lss 10 (set/p= %%a <nul) else set/p=%%a <nul
     if !mod! equ 0 echo.
)
pause>nulCOPY

[ 本帖最后由 pusofalse 于 2008-8-28 14:13 编辑 ]

batman

楼上确实将代码进一步进行了简化，但变量个数还是一样的吧，少了个v多了个mod。

batman

原帖由 shqf 于 2008-8-28 12:40 发表
batman给我加分，受鼓励，前6步精简了二行代码，再贴出第7步我的解法（第8步实在无从下手了）：@echo off&setlocal enabledelayedexpansion
set ji=1
set /p n=请输入数字（1-9）

for /l %%i in (1,1,%n%) do  ...

有几个问题：
1　这是个小问题，一直显示的是4行4列
2　数例没有完全对齐，原因在没有对小于10的数进行处理
3　代码书写不规范，切不可以为将代码挤在一堆就是简洁了，这样大大降低了代码的可读性
4　set /a 可以如此连写：set /a a+=1,b+=a,c+=b

[ 本帖最后由 batman 于 2008-8-28 17:05 编辑 ]

shqf

哦，以为想得很周全了，竟仍还有好多问题。领教了，谢谢。

pusofalse

4　set /a 可以如此连写：set /a a+=1,b+=a,c+=b　，当然前提是开启了变量延迟COPY

不必开启变量延迟啊，set/a 的特性就是这样。