平行四边形（30分） — 编程爱好者社区

您所在位置：社区首页 — QBasic讨论区 — 平行四边形（30分）

回帖发新帖刷新版面

主题：平行四边形（30分）

一棵小草 [专家分：0] 发布于 2008-10-27 11:01:00

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

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

回复列表（共5个回复）

沙发

神倪在世 [专家分：30] 发布于 2008-10-27 21:37:00

是    ******
     ******
    ******
   ******
吧

CLS
FOR I=1 TO 4
  PRINT TAB (21-I);
  FOR J=1 TO 6
    PRINT USING "#";"*";
  NEXT J
  PRINT
NEXT I
END

你打的好像不是平行四边形。

板凳

imjohnzj [专家分：1490] 发布于 2008-10-27 23:01:00

小弟也来段代码：

FOR I = 4 TO 1 STEP -1:PRINT SPACE(I);"******":NEXT I

3 楼

imjohnzj [专家分：1490] 发布于 2008-10-29 11:41:00

三十分个尸比！！

分呢？

4 楼

梦幻小樱 [专家分：140] 发布于 2009-08-07 14:09:00

for i=4 to 1 step -1
?tab(i)
?"******"
next
end

5 楼

FFKK [专家分：1610] 发布于 2009-08-15 17:51:00

CLS
FOR I=1 TO 4
IF I=2 THEN ? TAB (15-I);
FOR J=1 TO 6
? "*";
NEXT J
?
NEXT I
END

我来回复

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