九九乘法表

namejm · 发表于 2006-12-26 00:10:19

　　圣诞过得很无聊，无聊的时候就写了个无聊的东西出来，自我娱乐一下：

@echo off
:: 九九乘法表
:: code by jm 2006-12-25 CMD@XP
set num=0
for /l %%i in (1,1,9) do (
for /l %%j in (1,1,%%i) do call :multiply %%i %%j
)
pause>nul
goto :eof
:multiply
set /a num+=1
set /a var=%1*%2
set var=%2×%1=%var%
set var=%var%
if %2 equ 1 (set var=%var:~0,5%) else set var=%var:~0,6%
set str=%str% %var%
if %num% equ %1 echo %str%&set str=&set num=0
goto :eof

复制代码

　　稍微修改了一下，使得排版更加规整。

　　07年1月24日，DOS联盟的 qjbm 帖出了一个更加简洁的代码，用 Tab 键来控制排版：

@ECHO %DBG% OFF
SETLOCAL ENABLEDELAYEDEXPANSION
for /l %%i in (1,1,9) do (
for /l %%j in (1,1,%%i) do (
set /a h=%%i*%%j
set /p=%%i×%%j^=!h! <nul
if %%i==%%j echo.
)
)
pause

复制代码

[ 本帖最后由 namejm 于 2007-2-10 11:24 AM 编辑 ]

lxl1638 · 发表于 2006-12-26 00:13:59

服你啦，批处理能搞到这地步。

swlove · 发表于 2006-12-26 00:30:18

打印完每个等式可不可以稍微停顿下 ?

这样给人的感觉可能会更无聊点啊

嘿嘿...

namejm · 发表于 2006-12-26 00:56:19

　　目前暂时只能每打印一行就停顿一下，要做到每打印完一个等式就停顿也是可以的，甚至每打印一个字符出来就停顿一下也是可行的，只是代码会比较复杂一点，或者是写得笨一点。

ccwan · 发表于 2006-12-26 09:48:14

看到了帖子标题，万里迢迢、风尘仆仆、克服重重困难、踏遍冰天雪地、历尽千辛万苦、无视艰难险阻、专程赶过来支持一下子！

我今天冒着侵权的风险来支持楼主。^_^

xypcmac · 发表于 2006-12-26 11:47:17

“寥寥数句，却可表达千言万语”...

鹤冲天 · 发表于 2006-12-27 13:22:39

批处理！神奇啊！！

rock269 · 发表于 2006-12-27 18:17:44

厉害！楼主高手啊，学习一下

老毛桃 · 发表于 2006-12-28 14:50:32

JM 的确是位高手，学习了！

namejm · 发表于 2006-12-28 15:59:28

:L如此无聊的代码也混了个精华，老毛桃是不是和我一样无聊呢;P？受之有愧哈，哪位版主帮忙解除一下吧。

zdszxz · 发表于 2006-12-28 22:45:38

～～～太谢谢你了

WittyHare · 发表于 2006-12-30 22:01:10

挺好玩的这个,XP下的批处理能做好多的事情

verber34 · 发表于 2007-1-1 07:19:14

if %2 equ 1 (set var=%var:~0,5%) else set var=%var:~0,6%
使得排版更加规整。　就是用这句来达到的吗？
这句怎么理解，　我练习的排版乱.....
1*1=1
2*1=2 2*2=4
3*1=3  3*2=6  3*3=9
4*1=4  4*2=8  4*3=12  4*4=16
5*1=5  5*2=10  5*3=15  5*4=20 ............
...........
如何解决？？

一旧云 · 发表于 2007-1-1 20:21:38

呵呵~~~~~~~~~~~~`

wulfstan · 发表于 2007-1-2 00:18:43

这个批处理超强悍！

老毛桃 · 发表于 2007-1-2 10:13:16

原帖由 verber34 于 2007-1-1 07:19 发表
if %2 equ 1 (set var=%var:~0,5%) else set var=%var:~0,6%
使得排版更加规整。　就是用这句来达到的吗？
这句怎么理解，　我练习的排版乱.....
1*1=1
2*1=2 2*2=4
3*1=3 3*2=6 3*3=9
4*1=4 4*2=8 4 ...

if %2 equ 1 (set var=%var:~0,5%) else set var=%var:~0,6%

复制代码

如果乘数（乘号后面的数字）等于 1 的话，就截取前面的 5 个字符，否则就截取 6 个

namejm · 发表于 2007-1-2 10:41:46

　　还要注意一个地方：set var=%var% 这一句后面有6个空格。

doitbest · 发表于 2007-1-4 08:36:26

虽然无聊了,还是要学习.

mfkwgij · 发表于 2007-1-4 13:00:56

厉害！楼主高手啊，学习一下

holden · 发表于 2007-1-5 13:56:56

我今天冒着侵权的风险来支持楼主

verber34 · 发表于 2007-1-5 21:34:24

原帖由 namejm 于 2007-1-2 10:41 AM 发表
　　还要注意一个地方：set var=%var% 这一句后面有6个空格。

原来是这样~~我说为什么要取5取6的.关键是这里.......

消化了!

感谢了...................

qingfushuan · 发表于 2007-1-7 16:42:14

学习中---有点硬,等会才可以消化

yuanguowei · 发表于 2007-1-8 19:19:10

厉害,我看也不是很懂啊~~

lovesj1234 · 发表于 2007-1-14 16:30:06

高手啊，学习批处理中。。。

zqs · 发表于 2007-1-15 18:00:16

LZ可真强啊

dwenjun520 · 发表于 2007-3-10 14:33:35

批处理真的有这么牛了啊？

szsun · 发表于 2007-3-12 14:05:22

确实写得好。可否介绍下啊？

龙啸 · 发表于 2007-3-12 15:02:59

确实是精彩！
顶！

ywcn · 发表于 2007-3-13 19:47:06

原帖由 namejm 于 2007-1-2 10:41 AM 发表
　　还要注意一个地方：set var=%var% 这一句后面有6个空格。

很受启发

duhe · 发表于 2007-3-15 14:15:25

厉害！

		自动登录	找回密码
密码			注册