Board logo

标题: 批处理再现九九乘法表 [打印本页]

作者: bat-zw     时间: 2008-4-4 21:14    标题: 批处理再现九九乘法表
  今天听到小女儿在背颂九九乘法口诀,突然就荫生了用批处理制作九九乘法表的念头,多少也找回点童年的记忆(为了排版整齐,在一位数前都加了0)。
@echo off
for /l %%i in (1,1,9) do set str= &call :lp %%i
pause&goto :eof
:lp
cd. >temp.txt
for /l %%i in (1,1,10) do (
set a=%1&set b=%%i
set /p str=<temp.txt
setlocal enabledelayedexpansion
set /a c=!a!*!b!
if !c! gtr 9 (echo !str!0!a!*0!b!=!c! >temp.txt) else (echo !str!0!a!*0!b!=0!c! >temp.txt)
if !b! gtr !a! echo !str!&del temp.txt /q&goto :eof
endlocal
)


Last edited by zw19750516 on 2008-4-4 at 09:23 PM ]

作者: plp626     时间: 2008-4-4 22:30
转,学习下:

@ECHO  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

作者: bat-zw     时间: 2008-4-5 00:03
Originally posted by plp626 at 2008-4-4 22:30:
转,学习下:

@ECHO  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
...

代码好简洁,但排版有大问题。

作者: terse     时间: 2008-4-5 00:39
我也转一个 排版没问题吧
@echo off&setlocal enabledelayedexpansion
for /l %%a in (1,1,9) do (
for /l %%b in (1,1,%%a) do (
set /a i+=1
set /a ans=%%a*%%b
set ans=%%b×%%a=!ans!
set res=!res! !ans:~0,6!
if !i! equ %%a echo!res!&set res=& set i=0
)
)
pause

作者: 26933062     时间: 2008-4-5 01:50
2楼的排版问题是因为论坛处理不了tab键。
将set /p=%%i×%%j^=!h! <nul 这里的“空格”换成tab就美观了。
用空格来处理也可以,只是代码稍微长一点。
如下。

@echo 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 "h=!h! "
if %%j equ 1 (set h=!h:~0,2!) else (set h=!h:~0,3!)
set /p=%%j×%%i^=!h!<nul
)
echo.
)
pause


Last edited by 26933062 on 2008-4-5 at 02:12 AM ]

作者: 26933062     时间: 2008-4-5 02:02
4楼代码更好,也可以更简化
:

@echo off&setlocal enabledelayedexpansion
for /l %%a in (1,1,9) do (
for /l %%b in (1,1,%%a) do (
set /a h=%%a*%%b
set "h=%%b×%%a=!h! "
set m=!m! !h:~0,6!
)
echo !m!&set "m="
)
pause


作者: terse     时间: 2008-4-5 03:51
Originally posted by 26933062 at 2008-4-5 02:02:
4楼代码更好,也可以更简化
:

@echo off&setlocal enabledelayedexpansion
for /l %%a in (1,1,9) do (
for /l %%b in (1,1,%%a) do (
set /a h=%%a*%%b
set "h ...

26933062兄的提醒 原来也可以这样 哈~

@echo off&setlocal enabledelayedexpansion
for /l %%a in (1,1,9) do (
for /l %%b in (1,1,%%a) do (
set /a h=%%a*%%b
set "h=!h! "
set /p=%%b×%%a=!h:~0,2! <nul
)
echo.
)
pause

作者: aliang10520     时间: 2008-4-5 09:49
不错

作者: xtanbmy     时间: 2008-4-7 19:06
哈哈,不错。