打印数字三角形 — 编程爱好者社区

您所在位置：社区首页 — QBasic讨论区 — 打印数字三角形

主题：打印数字三角形

神倪在世 [专家分：30] 发布于 2008-12-19 21:32:00

哪位朋友请帮忙解答
     从键盘读入数字三角形层数L,(1<=L<=24),按下图规律在屏幕上输出数字三角形.每个数字  所占宽度不作严格要求,但要求:1.全部输出必须在一屏之内,不能滚屏;2.不同数字间至少空一格;3.编程解决此问题,不能直接打印输出答案

例                    L=3              L=5


                     1                    1
                   2   6               2     12
                3   4    5           3    13     11
                                   4   14     15    10
                                 5   6     7     8      9
[fly]急用,谢谢!!!!!!![/fly][em18][em18]

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

回复列表（共1个回复）

沙发

hxy_anhui [专家分：320] 发布于 2009-01-29 15:34:00

CLS
INPUT N
K = 1
FOR I = 1 TO (N + 1) \ 2
  FOR J = I * 2 - 1 TO N + 1 - I - 1
    A(J, I) = K
    K = K + 1
  NEXT J
  FOR J = I TO N + 1 - I - (I - 1)
    A(N + 1 - I, J) = K
    K = K + 1
  NEXT J
  FOR J = N + 1 - I - 1 TO I * 2 STEP -1
    A(J, J - (I - 1)) = K
    K = K + 1
  NEXT J
NEXT I
FOR I = 1 TO N
  PRINT TAB((N + 1 – I) * 2 – 1);
  FOR J = 1 TO I
    PRINT USING "####"; A(I, J);
  NEXT J
  PRINT
NEXT I
END
合肥小学四年级一学生，请楼主加分。

我来回复

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

主题：打印数字三角形

回复列表（共1个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：打印数字三角形

回复列表 （共1个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共1个回复）