利用循环结构打印出如下的图案

主题：利用循环结构打印出如下的图案

我是QB爱好者 [专家分：250] 发布于 2009-09-12 16:00:00

     A        A        A        A
    ABC      ABC      ABC      ABC
   ABCDE    ABCDE    ABCDE    ABCDE
  ABCDEFG  ABCDEFG  ABCDEFG  ABCDEFG
ABCDEFGHIABCDEFGHIABCDEFGHIABCDEFGHI
  ABCDEFG  ABCDEFG  ABCDEFG  ABCDEFG
   ABCDE    ABCDE    ABCDE    ABCDE
    ABC      ABC      ABC      ABC
     A        A        A        A
     A        A        A        A
    ABC      ABC      ABC      ABC
   ABCDE    ABCDE    ABCDE    ABCDE
  ABCDEFG  ABCDEFG  ABCDEFG  ABCDEFG
ABCDEFGHIABCDEFGHIABCDEFGHIABCDEFGHI
  ABCDEFG  ABCDEFG  ABCDEFG  ABCDEFG
   ABCDE    ABCDE    ABCDE    ABCDE
    ABC      ABC      ABC      ABC
     A        A        A        A

最后更新于：2009-09-12 16:00:00

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

回复列表（共9个回复）

沙发

phile [专家分：2310] 发布于 2009-09-13 09:57:00

难

板凳

1054122 [专家分：750] 发布于 2009-09-13 11:20:00

用二维数组
i，j循环控制个数
a，b内循环把字母填进数组

3 楼

phile [专家分：2310] 发布于 2009-09-13 11:42:00

是

4 楼

我是QB爱好者 [专家分：250] 发布于 2009-09-13 15:40:00

2楼的能给出程序吗？
我不知道你说的是什么意思

5 楼

phile [专家分：2310] 发布于 2009-09-13 17:18:00

我倒是做过将字母换成*

6 楼

天天和和 [专家分：1420] 发布于 2009-09-14 21:58:00

CLS
INPUT N, M, Q
Z = N \ 2 + 1
FOR L = 1 TO M
FOR I = 1 TO N
PRINT TAB(ABS(Z - I) + 1);
FOR J = 1 TO Q: W = 0
FOR P = 1 TO N - ABS(Z - I) * 2: W = W + 1: PRINT CHR$(64 + W); : NEXT P
PRINT SPC(ABS(Z * 2 - I * 2));
NEXT J
PRINT
NEXT I, L
END

N是一个菱形的总行数，本题中是 9
M是这个图形中的层数，本题中是 2
Q是这个图形中的每层菱形的个数，本题中是 4

7 楼

phile [专家分：2310] 发布于 2009-09-15 18:30:00

是

8 楼

天天和和 [专家分：1420] 发布于 2009-09-17 22:09:00

我想问问有没有跟优的解法了？

9 楼

phile [专家分：2310] 发布于 2009-09-18 18:19:00

差不多没有

我来回复

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

主题：利用循环结构打印出如下的图案

回复列表（共9个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：利用循环结构打印出如下的图案

回复列表 （共9个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共9个回复）