中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
« [1] [2] [3] »
作者:
标题: 九九乘法表 上一主题 | 下一主题
qjbm
初级用户





积分 125
发帖 44
注册 2007-1-24
状态 离线
『第 16 楼』:  

灌水了....
@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.
                                                      )
                            )
真成灌水了..原来关键在于控制排版...

不过排版问题还是解决了,:)用Tab代替空格就可以了.就可以不必花心思排版了.

Tab在论坛中无法正确显示...???

[ Last edited by qjbm on 2007-1-31 at 05:38 PM ]

   此帖被 +23 点积分      点击查看详情   
评分人:【 namejm 分数: +8  时间:2007-2-11 00:27
评分人:【 ccwan 分数: +9  时间:2007-2-11 00:40
评分人:【 PPdos 分数: +4  时间:2007-2-13 17:05
评分人:【 huzixuan 分数: +2  时间:2007-5-1 16:35


2007-2-1 06:04
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
bbq123bbq
初级用户




积分 197
发帖 77
注册 2006-9-19
状态 离线
『第 17 楼』:  

有待研究...吸收

2007-2-1 09:15
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
163lom
初级用户





积分 27
发帖 14
注册 2007-2-10
状态 离线
『第 18 楼』:  

象偶这样的只能做死工,ECHO输出……

2007-2-10 18:53
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
namejm
荣誉版主

batch fan


积分 5226
发帖 1737
注册 2006-3-10
来自 成都
状态 离线
『第 19 楼』:  

  qjbm 用Tab键来控制排版,精简了不少代码,高。



尺有所短,寸有所长,学好CMD没商量。
考虑问题复杂化,解决问题简洁化。
2007-2-11 00:31
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zxjaaa
新手上路





积分 11
发帖 5
注册 2007-2-15
状态 离线
『第 20 楼』:  

玩玩

2007-2-16 09:39
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
6622186
高级用户





积分 894
发帖 411
注册 2007-2-17
状态 离线
『第 21 楼』:  钦佩

见到了批处理命令的厉害.

2007-2-17 14:07
查看资料  发短消息 网志   编辑帖子  回复  引用回复
spiegboy
初级用户





积分 24
发帖 9
注册 2007-2-9
状态 离线
『第 22 楼』:  

16楼哥们的排版还是不如楼主的整齐,个人觉得楼主的比较完美

我觉得还可以化简一下

@echo off
:: 99 乘法表
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

   此帖被 +4 点积分     点击查看详情   
评分人:【 namejm 分数: +4  时间:2007-2-21 03:53


2007-2-17 14:23
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
PPdos
高级用户




积分 783
发帖 268
注册 2006-12-26
状态 离线
『第 23 楼』:  

16楼 已经提示:Tab在论坛中无法正确显示

所以你要把拷贝中 !h!和<nul 之间的空格替换成Tab键的空格

set /p=%%i×%%j^=!h! <nul



菩提本无树,明镜亦非台,本来无一物,何处惹尘埃.
2007-2-17 17:43
查看资料  发短消息 网志   编辑帖子  回复  引用回复
namejm
荣誉版主

batch fan


积分 5226
发帖 1737
注册 2006-3-10
来自 成都
状态 离线
『第 24 楼』:  

  spiegboy 的代码非常不错,加分了。



尺有所短,寸有所长,学好CMD没商量。
考虑问题复杂化,解决问题简洁化。
2007-2-21 03:54
查看资料  发短消息 网志   编辑帖子  回复  引用回复
microsoftxly
新手上路





积分 18
发帖 6
注册 2007-3-1
状态 离线
『第 25 楼』:  namejm版主在吗?

小弟是刚刚注册到这个论坛的.有很多不懂的.请多多照顾一下.同时也希望有愿意收徒弟而且人际关系和心底善良的加小弟QQ:453803302

跪谢了!

2007-3-1 07:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
ran520
初级用户




积分 24
发帖 12
注册 2007-2-28
状态 离线
『第 26 楼』:  

厉害``

2007-3-1 13:47
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
huzixuan
高级用户




积分 537
发帖 219
注册 2006-10-31
来自 芜湖
状态 离线
『第 27 楼』:  

斑竹和16楼兄写的真好,刚进来那会还写不了 今天我也可以写个了
@echo off
set "num1=1"
set "flag=0"
:do
if %num1% lss %flag% (
set /a "num1+=1"
) else (
echo.
set "num1=1"
set /a "flag+=1"
)
set /a "num=%num1%*%flag%"
set/p=%num1%×%flag%=%num% <nul
if %num1% equ 9 (pause>nul&exit)
goto do




江湖远
碧空长
路茫茫

    一个人漫无目的的奔跑,风,刺骨的冷....
2007-5-1 16:37
查看资料  发短消息 网志   编辑帖子  回复  引用回复
DarkDrgon
新手上路




积分 6
发帖 2
注册 2007-5-2
状态 离线
『第 28 楼』:  

问一下,我是一个新手,就是按照楼上的说使用**.XXX >**.XXX 就可以实施输出的是吧?那么比如我想要输出一个文件的时候只要输入一个文件名就可以帮我输出到一个相应的TXT文件(或固定的比如1.TXT),要怎么做呢?

[ Last edited by DarkDrgon on 2007-5-2 at 12:37 AM ]



如果长大就像起飞的气球
我宁愿
永远停留在地面
不起飞
2007-5-2 13:17
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
hngaoshou
社区乞丐

gaoshou



积分 -16
发帖 77
注册 2007-1-30
状态 离线
『第 29 楼』:  

为什么要按回车呢?



:cool:
[swf=1,1]http://img63.imageshack.us/my.php?image=58098766zh0.swf[/swf]
2007-5-2 13:36
查看资料  发送邮件  发短消息 网志  OICQ (327869085)  编辑帖子  回复  引用回复
ccwan
金牌会员




积分 2725
发帖 1160
注册 2006-9-23
来自 河北廊坊
状态 离线
『第 30 楼』:  

今天有看到这个帖子了,来一段vbs版的九九乘法表吧。

  Quote:

  1. Dim i, m , s
  2. For i = 1 To 9
  3.     s = s & vbLf
  4.    For m = 1 To i
  5.       s = s & m & "×" & i & " = " & Left(i * m & "  ", 2) & Space(2)
  6.    Next
  7. Next
  8. MsgBox s ,,"九九乘法表"
        ccwan发表于:  2007-05-08  11:23





三人行,必有吾师焉。   学然后知不足,教然后知困,然后能自强也。
2007-5-8 11:24
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] [3] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: