主题：可靠棵
以吃为贵
[专家分：60] 发布于 2008-10-24 18:33:00
*********
*******
* *
* *
*****************
* *
* *
*******
*********
最后更新于：2008-10-24 18:35:00
回复列表 （共8个回复）
沙发
xuehua2008 [专家分：20] 发布于 2008-10-24 18:37:00
sadfasdf
板凳
天天和和 [专家分：1420] 发布于 2008-10-24 18:37:00
好难哦!!!!!!!!!
3 楼
imjohnzj [专家分：1490] 发布于 2008-10-25 08:10:00
print " ********* "
print " ******* "
print " * * "
print " * * "
print " ***************** "
print " * * "
print " * * "
print " ******* "
print " ********* "
开个玩笑哦，大家开心一下。
4 楼
以吃为贵 [专家分：60] 发布于 2008-10-27 15:45:00
我是这样编的
CLS
PRINT SPC(4); STRING$(9, "*");
FOR I = 1 TO 7
IF I = 4 THEN PRINT STRING$(17, "*"): GOTO 10
PRINT TAB(4 - ABS(4 - I) + 5);
FOR J = 1 TO (ABS(4 - I) + 1) * 2 - 1
IF J = 1 OR J = (ABS(4 - I) + 1) * 2 - 1 OR I = 1 OR I = 7 THEN PRINT "*"; ELSE PRINT " ";
NEXT J
PRINT
10 NEXT I
PRINT SPC(4); STRING$(9, "*");
END
各位大侠，高手。请指点指点小弟吧！只要不是原样输出，小弟一律加分！
5 楼
imjohnzj [专家分：1490] 发布于 2008-10-27 23:19:00
楼主做的就不错啊。
6 楼
hxy_anhui [专家分：320] 发布于 2009-03-14 20:47:00
以吃为贵，你一定要给我加分。
CLS
INPUT N
PRINT SPC(N); STRING$(N * 2 + 1, "*");
FOR I = 1 TO N * 2 - 1
IF I = N THEN
PRINT STRING$(N ^ 2 + 1, "*")
ELSE
PRINT TAB(ABS(N - I) + 1);
FOR J = 1 TO (ABS(N - I) + 1) * 2 - 1
IF J = 1 OR J = (ABS(N - I) + 1) * 2 - 1 OR I = 1 OR I = N * 2 - 1 THEN PRINT "*"; ELSE PRINT " ";
NEXT J
PRINT
END IF
NEXT I
PRINT SPC(N); STRING$(N * 2 + 1, "*");
END
8 楼
功夫先人 [专家分：60] 发布于 2009-04-11 13:10:00
PRINT SPC(4); STRING$(9, "*");
FOR I = 1 TO 7
IF I = 4 THEN PRINT STRING$(17, "*"): GOTO 10
PRINT TAB(4 - ABS(4 - I) + 5);
FOR J = 1 TO (ABS(4 - I) + 1) * 2 - 1
IF J = 1 OR J = (ABS(4 - I) + 1) * 2 - 1 OR I = 1 OR I = 7 THEN PRINT "*"; ELSE PRINT " ";
NEXT J
PRINT
10 NEXT I
PRINT SPC(4); STRING$(9, "*");
END
我来回复
您所在位置：