你打出来了吗？金字塔（考考大家）

主题：你打出来了吗？金字塔（考考大家）

LZJQB [专家分：140] 发布于 2010-10-30 11:13:00

来来
                                  *
                                 ***
                                *****
                               *******

                              *       *
                             ***     ***
                            *****   *****
                           ******* *******

                          *       *       *
                         ***     ***     ***
                        *****   *****   *****
                       ******* ******* *******

                      *       *       *       *
                     ***     ***     ***     ***
                    *****   *****   *****   *****
                   ******* ******* ******* *******

最后更新于：2010-11-11 20:09:00

本帖地址： http://bbs.pfan.cn/post/355615.html

回复列表（共17个回复）

11 楼

huangyb731 [专家分：630] 发布于 2010-11-08 22:55:00

林子建
你发的贴啊

12 楼

LZJQB [专家分：140] 发布于 2010-11-10 20:18:00

我是来考考大家

13 楼

huangyb731 [专家分：630] 发布于 2010-11-10 21:31:00

呵呵呵呵呵呵呵呵呵呵呵额哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈和哈哈哈哈

14 楼

huangyb731 [专家分：630] 发布于 2010-11-10 21:32:00

删了7楼的帖子

15 楼

LZJQB [专家分：140] 发布于 2010-11-11 19:56:00

咋删？

16 楼

verysmartboy [专家分：1260] 发布于 2010-11-17 22:24:00

好了好了，这个有些麻烦，给你发一个行不？
CLS
N = 5: K = 1
FOR I = 1 TO 5
PRINT TAB(N);
FOR J = 1 TO K
PRINT "*";
NEXT J
PRINT : K = K + 2: N = N - 1
NEXT I
END

17 楼

幽灵密码 [专家分：3510] 发布于 2010-11-20 11:33:00

我改进了一下林子建的程序，可以随意调整金字塔的大小：
CLS
INPUT x, y
FOR i = 1 TO x
  PRINT
  FOR j = 1 TO y
    PRINT TAB(x * 2 - n);
    s = 32 - n
    n = n + 1
    FOR k = 1 TO i
      PRINT TAB(s + y * 2 * k);
      FOR l = 1 TO 2 * j - 1
        PRINT "*";
      NEXT l
    NEXT k
    PRINT
  NEXT j
NEXT i
END

（y是每个小金字塔的大小）

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：你打出来了吗？金字塔（考考大家）

回复列表（共17个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：你打出来了吗？金字塔（考考大家）

回复列表 （共17个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共17个回复）