九九乘法表

namejm

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

1. 
   
2. @echo off
   
3. :: 九九乘法表
   
4. :: code by jm 2006-12-25 CMD@XP
   
5. set num=0
   
6. for /l %%i in (1,1,9) do (
   
7.     for /l %%j in (1,1,%%i) do call :multiply %%i %%j
   
8. )
   
9. pause>nul
   
10. goto :eof
    
11. 
    
12. :multiply
    
13. set /a num+=1
    
14. set /a var=%1*%2
    
15. set var=%2×%1=%var%
    
16. set var=%var%      
    
17. if %2 equ 1 (set var=%var:~0,5%) else set var=%var:~0,6%
    
18. set str=%str% %var%
    
19. if %num% equ %1 echo %str%&set str=&set num=0
    
20. goto :eof
    

复制代码

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

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

1. 
   
2. @ECHO %DBG% OFF
   
3. SETLOCAL ENABLEDELAYEDEXPANSION
   
4. for /l %%i in (1,1,9) do (
   
5.                           for /l %%j in (1,1,%%i) do (
   
6.                                                       set /a h=%%i*%%j
   
7.                                                       set /p=%%i×%%j^=!h!        <nul
   
8.                                                       if %%i==%%j echo.
   
9.                                                       )
   
10.                             )
    
11. pause
    

复制代码

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

namejm

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

namejm

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

namejm

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