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

在控制台打印金字塔

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

效果:


实现:
  1. @echo off
  2. set "str=                                           ******************************************"
  3. for /l %%i in (1,1,38) do (
  4. call,echo,%%str:~%%i,%%i%%
  5. )
  6. set/p=
复制代码
欢迎帖码,语言不限。
附件: 您需要登录才可以下载或查看附件。没有帐号?注册

回复 7# codegay

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

TOP

回复 15# taofan712
感觉你已经做到极限了。

TOP

回复 18# 523066680
那个Sirpinsiki太难了,我估计只有你跟aa77dd@163.com 兄能实现。

TOP

本帖最后由 happy886rr 于 2017-3-17 23:51 编辑

回复 21# 老刘1号
最后一版正常。

TOP

本帖最后由 happy886rr 于 2017-3-18 18:51 编辑

回复 30# 老刘1号
你画的是有点偏差了,应该这样画(外链图,随时失效)
  1. @echo off
  2. mode con cols=300 lines=80
  3. setlocal enabledelayedexpansion
  4. set "Space=                                                                                                    "
  5. set/a "L=(1<<7)-1"
  6. for /l %%i in (0,1,!L!) do (
  7. set/a "1/(%%i&1)" 2>NUL || (
  8. set/a "SL=(L-%%i)>>1"
  9. for %%j in (!SL!) do (
  10. set "PreSpace=!Space:~0,%%j!"
  11. )
  12. for /l %%j in (0,1,!L!) do (
  13. set/a "1/((%%i&%%j)-%%j)" 2>NUL && (
  14. set "PreSpace=!PreSpace! "
  15. ) || (
  16. set "PreSpace=!PreSpace!*"
  17. )
  18. )
  19. echo;!PreSpace!
  20. )
  21. )
  22. set/p=LEVEL: 7
复制代码
2

评分人数

TOP

回复 29# 523066680
Matrix67的方法就是好用。

TOP

返回列表