中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: [原创]*****九九乘法表***** 上一主题 | 下一主题
s11ss
银牌会员





积分 2098
发帖 566
注册 2007-9-11
状态 离线
『楼 主』:  [原创]*****九九乘法表*****


@echo off
setlocal enabledelayedexpansion
:::::::::::::::::::::::     九九乘法表     :::::::::::::::::::::::
::::::::::::::::::::::: {2007-9-23  s11ss} :::::::::::::::::::::::
set/a i=1
:i
if !i! lss 10 (
set/a j=1
set str=
:j
        if !j! leq !i! (
                set/a m=!i!*!j!
                set empty=
                if !j! equ 2 (
                        if !i! equ 3 (
                                set empty=
                        )
                        if !i! equ 4 (
                                set empty=
                        )
                )
                set str=!str! !j!×!i!=!m!!empty!
                set/a j+=1
                goto :j
        )
echo !str!
set/a i+=1
goto :i
)
echo Press Any Key To Exit...
pause>nul


   此帖被 +4 点积分    点击查看详情   
评分人:【 dosmania 分数: +2  时间:2007-9-23 21:41
评分人:【 yoyodos 分数: +2  时间:2007-9-24 22:43


2007-9-23 21:21
查看资料  发短消息 网志   编辑帖子  回复  引用回复
dosmania
初级用户





积分 172
发帖 54
注册 2007-1-2
状态 离线
『第 2 楼』:  

牛X,不错效率比namejm写过的那个高多了
加分

2007-9-23 21:41
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lzmuhioin
初级用户





积分 51
发帖 24
注册 2007-9-18
状态 离线
『第 3 楼』:  

强人.我先运行试试看

2007-9-23 22:40
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
dosmania
初级用户





积分 172
发帖 54
注册 2007-1-2
状态 离线
『第 4 楼』:  

s11ss 有兴趣研究一下这帖子吖
http://www.cn-dos.net/forum/viewthread.php?tid=33747&fpage=1

2007-9-24 15:05
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
yoyodos
初级用户




积分 128
发帖 59
注册 2007-9-15
状态 离线
『第 5 楼』:  

我有空好好看看:)

2007-9-24 15:21
查看资料  发送邮件  发短消息 网志  OICQ (52721292)  编辑帖子  回复  引用回复
youxi01
高级用户




积分 846
发帖 247
注册 2006-10-27
来自 湖南==》广东
状态 离线
『第 6 楼』:  

从代码“健康”的角度来看,未见得是一段好程序!!
@echo off & setlocal enabledelayedexpansion
for /l %%i in (1 1 9) do (
   for /l %%j in (1 1 %%i) do (
       set/a var=%%j*%%i
       set /p=%%j×%%i=!var! <nul
  )
echo.
)
pause>nul


2007-9-24 19:55
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


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



论坛跳转: