中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [出题]输出菱形图案并居中显示
作者:
标题: [出题]输出菱形图案并居中显示 上一主题 | 下一主题
pusofalse
银牌会员




积分 1604
发帖 646
注册 2008-4-13
状态 离线
『楼 主』:  [出题]输出菱形图案并居中显示

通过批处理输出如下图案，并在CMD原始窗口大小中居中显示。 要求，不生成临时文件，代码尽量高效简洁。
                                        o
                                       o o
                                      o o o
                                     o  o  o
                                    o   o   o
                                   o    o    o
                                  o     o     o
                                 o      o      o
                                o       o       o
                               o        o        o
                              o         o         o
                             o          o          o
                            o           o           o
                           o            o            o
                          o             o             o
                         o              o              o
                        o               o               o
                       o                o                o
                      o                 o                 o
                     o                  o                  o
                    o                   o                   o
                   o o o o o o o o o o o o o o o o o o o o o o
                    o                   o                   o
                     o                  o                  o
                      o                 o                 o
                       o                o                o
                        o               o               o
                         o              o              o
                          o             o             o
                           o            o            o
                            o           o           o
                             o          o          o
                              o         o         o
                               o        o        o
                                o       o       o
                                 o      o      o
                                  o     o     o
                                   o    o    o
                                    o   o   o
                                     o  o  o
                                      o o o
                                       o o
                                        o
[ Last edited by pusofalse on 2008-8-1 at 04:15 AM ]




心绪平和,眼藏静谧,无比安稳的火... Purification of soul...Just a false...^_^
2008-8-1 03:54
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 2 楼』:  

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1,1,80) do set "kong=!kong! "    
set "_1=%kong:~,40%○"&echo !_1!
set "_2=%kong:~,38%○  ○"&echo !_2!
for /l %%i in (3,1,21) do (
    set /a num+=1
    call,set "str=○%%kong:~,!num!%%○%%kong:~,!num!%%○"
    set "var=!str!%kong%"                                                               
    set "var=!var:~,80!"
    call :lp    
    set "_%%i=!var:~1!!str!"&echo !_%%i!
)
set /p=%kong:~,18%<nul&for /l %%i in (1,1,23) do set /p=○<nul
echo.&for /l %%i in (21,-1,1) do echo !_%%i!
pause>nul&goto :eof
:lp
set "var=!var:%str%=!"
set "var=%var:  = %"
[ Last edited by bat-zw on 2008-8-1 at 01:36 PM ]




批处理之家新域名：www.bathome.net
2008-8-1 12:53
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复
s11ss
银牌会员





积分 2098
发帖 566
注册 2007-9-11
状态 离线
『第 3 楼』:  

@findstr/c:" %s%o" "%~f0"&pause>nul&exit/b
                                        o
                                       o o
                                      o o o
                                     o  o  o
                                    o   o   o
                                   o    o    o
                                  o     o     o
                                 o      o      o
                                o       o       o
                               o        o        o
                              o         o         o
                             o          o          o
                            o           o           o
                           o            o            o
                          o             o             o
                         o              o              o
                        o               o               o
                       o                o                o
                      o                 o                 o
                     o                  o                  o
                    o                   o                   o
                   o o o o o o o o o o o o o o o o o o o o o o
                    o                   o                   o
                     o                  o                  o
                      o                 o                 o
                       o                o                o
                        o               o               o
                         o              o              o
                          o             o             o
                           o            o            o
                            o           o           o
                             o          o          o
                              o         o         o
                               o        o        o
                                o       o       o
                                 o      o      o
                                  o     o     o
                                   o    o    o
                                    o   o   o
                                     o  o  o
                                      o o o
                                       o o
                                        o


2008-8-1 15:44
查看资料  发短消息 网志   编辑帖子  回复  引用回复
yishanju
银牌会员

[b]看你妹啊[/b]


积分 1488
发帖 1357
注册 2006-5-20
状态 离线
『第 4 楼』:  

楼上真创意




有问题请发论坛或者自行搜索,再短消息问我的统统是SB
2008-8-1 18:57
查看资料  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023