编程打印图形 — 编程爱好者社区

主题：编程打印图形

haizzz [专家分：140] 发布于 2005-10-15 15:16:00

2  编程打印图形
    （1） 5
        4 4 4
      3 3 3 3 3
     2 2 2 2 2 2 2
    1 1 1 1 1 1 1 1 1

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

回复列表（共6个回复）

沙发

飞鸟12 [专家分：2830] 发布于 2005-10-16 07:47:00

INPUT "n <10:", n
FOR i = 1 TO n
PRINT SPC(n - i); STRING$(2 * i - 1, n - i + 49)
NEXT i
END

板凳

net56789 [专家分：210] 发布于 2005-11-09 12:10:00

n=1
for i=5 to 1 step -1
    print tab(25+i)
    for k=1 to 2*n-1
            print i;
        next k
   n=n+1
next i

3 楼

chenhonghong [专家分：70] 发布于 2006-05-28 16:44:00

cls
for i=5 to 1
for j=1 to 11-2*i
print "ltrim$(str$(i))";
next j
print
next i
end

4 楼

1fengye1 [专家分：40] 发布于 2006-06-02 14:14:00

弟弟交你个绝招
用print 函数

5 楼

wcwp [专家分：0] 发布于 2006-06-04 10:10:00

for i= 1 to 5
print tab(20+3*i);
REM 乘以3是让每个数占三列，这样就对齐了
for j= 1 to 2*i-1
print 6-i;
next j
print
next i
end

6 楼

JRX [专家分：180] 发布于 2006-06-09 21:49:00

5
        4 4 4
      3 3 3 3 3
     2 2 2 2 2 2 2
   1 1 1 1 1 1 1 1 1
程序:
CLS
FOR I=1 TO 5
  ? TAB(6-I);
  FOR J=1 TO I*2-1
    ? 6-I;
  NEXT J
  ?
NEXT I
END

我来回复

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

主题：编程打印图形

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：编程打印图形

回复列表 （共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共6个回复）