设为首页收藏本站

切换到宽版

论坛BBS

批处理之家»论坛 › 批处理专区: BAT CMD DOS › 出题挑战 › 在控制台打印金字塔

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

12 3 / 3 页下一页

返回列表发新帖

查看: 77602|回复: 32

在控制台打印金字塔

发表于 2017-3-16 21:28:11 | 显示全部楼层 |阅读模式

题目要求：
用字符*打印一个金字塔，不限语言。

效果：

实现：

@echo off
set "str= ******************************************"
for /l %%i in (1,1,38) do (
call,echo,%%str:~%%i,%%i%%
)
set/p=

复制代码

欢迎帖码，语言不限。

回复

发表于 2017-3-16 21:57:17 | 显示全部楼层

我要来答，给我3分钟。

回复 

发表于 2017-3-16 22:03:51 | 显示全部楼层

>>> print(''.join([('*'*r).center(17,'-')+"\n" for r in range(1,18,2)]))
--------*--------
-------***-------
------*****------
-----*******-----
----*********----
---***********---
--*************--
-***************-
*****************

复制代码

评分

参与人数 1	技术 +1	收起理由
happy886rr	+ 1	一行流666

查看全部评分

回复 

发表于 2017-3-16 22:08:32 | 显示全部楼层

ps

$n=9;1..$n|%{' '*($n-$_)+'*'*(2*$_-1)}

复制代码

评分

参与人数 2	技术 +2	收起理由
happy886rr	+ 1	巧
codegay	+ 1	66666

查看全部评分

回复 

发表于 2017-3-16 22:23:14 | 显示全部楼层

@echo off & setlocal EnableDelayedExpansion
set max=78
for /l %%$ in (1 1 10) do (
set a=!a!**
call :zhong !a!
)
pause
:zhong
set s=%1
for /l %%# in (1,2,!max!) do if "!s:~%max%,1!" == "" set "s= !s! "
set s=!s:~1,%max%!& echo;!s!
exit /b

复制代码

评分

参与人数 1	技术 +1	收起理由
happy886rr	+ 1	思路清晰

查看全部评分

回复 

发表于 2017-3-16 22:24:17 | 显示全部楼层

仅支持中文效率极低:http://www.bathome.net/thread-43049-1-1.html

评分

参与人数 2	技术 +2	收起理由
happy886rr	+ 1	很庞大
老刘1号	+ 1	666666

查看全部评分

回复 

发表于 2017-3-16 23:32:12 | 显示全部楼层

这个贴应该发到出题区。

回复 

发表于 2017-3-16 23:34:48 | 显示全部楼层

本帖最后由老刘1号于 2017-3-18 18:25 编辑

受win7CMD特性限制，只支持XP系统。

@echo off
Setlocal enabledelayedexpansion
::CODER BY Old.Liu POWERD BY iBAT
set /p long=Input:
set /a long=long/2
set /a long=long*2+1
set /a half=long/2
set /a i=1
for /l %%a in (1 1 !half!) do set/p= <nul
for /l %%a in (1 1 !i!) do set/p=*<nul
echo.
if !long! == 1 goto end
:loop
set /a i+=2
set /a half-=1
for /l %%a in (1 1 !half!) do set/p= <nul
for /l %%a in (1 1 !i!) do set/p=*<nul
echo.
if "!i!" equ "!long!" goto end
goto loop
:end
pause

复制代码

评分

参与人数 1	技术 +1	收起理由
happy886rr	+ 1	左边怎么没空格，不兼容win7

查看全部评分

回复 

楼主| 发表于 2017-3-17 00:03:34 | 显示全部楼层

回复 7# codegay

出题区权限不够，挑战区这题又太简单。

回复 

发表于 2017-3-17 00:15:53 | 显示全部楼层

回复 9# happy886rr

继续搞点这种题目啊，趣味性十足。

回复 

发表于 2017-3-17 09:21:29 | 显示全部楼层

被截图蒙蔽了，实际上并没有居中的要求？
那么可以减几行

@echo off&setlocal enabledelayedexpansion
set "kong="
for /l %%a in (1,1,17) do set "kong=!kong! "
set "s=*"
for /l %%a in (1,1,17) do (
echo !kong!!s!
set "kong=!kong:~1!"
set "s=!s!**!
)
pause

复制代码

回复 

发表于 2017-3-17 09:29:24 | 显示全部楼层

嗯嗯，还可以再少几行

@set s= *
:r
@echo;%s%&if "%s:~0,1%"==" " set s=%s:~1%%s:~-1%%s:~-1%&goto :r
@pause

复制代码

评分

参与人数 1	技术 +1	收起理由
happy886rr	+ 1	666

查看全部评分

回复 

发表于 2017-3-17 09:39:22 | 显示全部楼层

这样判断的话，又可以再少几个字

@set s= *
:r
@echo(%s%&if %s:~,1%*==* set s=%s:~1%**&goto:r
@pause

复制代码

回复 

发表于 2017-3-17 10:09:09 | 显示全部楼层

my $s=" * \n";
do { print $s } while ( $s=~s/ (\*+) /*$1*/ );

评分

参与人数 1	技术 +1	收起理由
happy886rr	+ 1	艺术

查看全部评分

回复 

发表于 2017-3-17 10:14:32 | 显示全部楼层

用goto取代if，又能减少几个字节。

@set s= O
:O
@echo;%s%&set s=%s:~1%OO&goto%s:~,2%O
:OO
pause

复制代码

回复 

12 3 / 3 页下一页

返回列表发新帖

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 22:01 , Processed in 0.015377 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表