简单"体" — 编程爱好者社区

主题：简单"体"

失落的快乐 [专家分：100] 发布于 2007-11-23 17:52:00

Y
                    X X
                   Y Y Y
                  X X X X
                 Y Y Y Y Y
                  X X X X
                   Y Y Y
                    X X
                     Y

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

回复列表（共2个回复）

沙发

hqm1 [专家分：570] 发布于 2007-11-23 17:58:00

CLS
FOR I = 1 TO 9
  PRINT TAB(ABS(5 - I) + 1);
  FOR J = 1 TO 5 - ABS(5 - I)
    IF I MOD 2 = 0 THEN PRINT "X ";  ELSE PRINT "Y ";
  NEXT J
  PRINT
NEXT I
END

板凳

傲视人间 [专家分：60] 发布于 2007-11-25 11:30:00

CLS
FOR I = 1 TO 9
  PRINT TAB(ABS(5 - I) + 1);
  FOR J = 1 TO 5 - ABS(5 - I)
    IF I MOD 2 = 0 THEN PRINT "X ";  ELSE PRINT "Y ";
  NEXT J
  PRINT
NEXT I
END

我来回复

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

主题：简单"体"

回复列表（共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：简单"体"

回复列表 （共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共2个回复）