在控制台打印金字塔

Rank: 4

帖子: 229
积分: 383
技术: 45
捐助: 0
注册时间: 2010-9-17

2楼

发表于 2017-3-16 21:57 | 只看该作者

我要来答，给我3分钟。

codegay

少校

Rank: 6 Rank: 6

帖子: 1266
积分: 1775
技术: 162
捐助: 0
注册时间: 2015-12-12

3楼

发表于 2017-3-16 22:03 | 只看该作者

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

1 评分人数

happy886rr: 一行流666技术 + 1

去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

pcl_test

荣誉版主

Rank: 8 Rank: 8

帖子: 3040
积分: 5332
技术: 685
捐助: 0
注册时间: 2014-10-19

4楼

发表于 2017-3-16 22:08 | 只看该作者

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

2 评分人数

happy886rr: 巧技术 + 1
codegay: 66666技术 + 1

Rank: 4

帖子: 229
积分: 383
技术: 45
捐助: 0
注册时间: 2010-9-17

5楼

发表于 2017-3-16 22:23 | 只看该作者

 @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 /bCOPY

1 评分人数

happy886rr: 思路清晰技术 + 1

bbaa

四级士官

Rank: 3 Rank: 3

帖子: 316
积分: 275
技术: 32
捐助: 0
注册时间: 2015-11-30

6楼

发表于 2017-3-16 22:24 | 只看该作者

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

2 评分人数

happy886rr: 很庞大技术 + 1
老刘1号: 666666技术 + 1

codegay

少校

Rank: 6 Rank: 6

帖子: 1266
积分: 1775
技术: 162
捐助: 0
注册时间: 2015-12-12

7楼

发表于 2017-3-16 23:32 | 只看该作者

这个贴应该发到出题区。

去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

老刘1号

论坛巡查

Rank: 8 Rank: 8

帖子: 1000
积分: 1791
技术: 205
捐助: 50
注册时间: 2016-4-17

8楼

发表于 2017-3-16 23:34 | 只看该作者

本帖最后由老刘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
pauseCOPY

1 评分人数

happy886rr: 左边怎么没空格，不兼容win7技术 + 1

happy886rr

等待验证会员

帖子: 961
积分: 2350
技术: 334
捐助: 0
注册时间: 2016-3-7

9楼

发表于 2017-3-17 00:03 | 只看该作者

回复 7# codegay

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

Rank: 4

帖子: 229
积分: 383
技术: 45
捐助: 0
注册时间: 2010-9-17

10楼

发表于 2017-3-17 00:15 | 只看该作者

回复 9# happy886rr

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

Rank: 4

帖子: 229
积分: 383
技术: 45
捐助: 0
注册时间: 2010-9-17

11楼

发表于 2017-3-17 09:21 | 只看该作者

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

 @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!**!
)
pauseCOPY

Rank: 4

帖子: 229
积分: 383
技术: 45
捐助: 0
注册时间: 2010-9-17

12楼

发表于 2017-3-17 09:29 | 只看该作者

嗯嗯，还可以再少几行

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

1 评分人数

happy886rr: 666技术 + 1

Rank: 4

帖子: 229
积分: 383
技术: 45
捐助: 0
注册时间: 2010-9-17

13楼

发表于 2017-3-17 09:39 | 只看该作者

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

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

523066680

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 3167
积分: 6481
技术: 320
捐助: 70
注册时间: 2008-8-3

14楼

发表于 2017-3-17 10:09 | 只看该作者

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

1 评分人数

happy886rr: 艺术技术 + 1

[url=][/url]

Rank: 4

帖子: 229
积分: 383
技术: 45
捐助: 0
注册时间: 2010-9-17

15楼

发表于 2017-3-17 10:14 | 只看该作者

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

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