主题：问你门个问题，大家来探讨~~~~~~！
68581251
[专家分：0] 发布于 2006-05-13 22:01:00
*
***
＊＊＊＊＊
＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊
＊＊＊＊＊
＊＊＊
＊
回复列表 （共7个回复）
沙发
求救 [专家分：40] 发布于 2006-05-13 23:16:00
for i=-4 to 4
print (abs(i)+1)；
for j=1 to (5-abs(i))*2-1
print "*"；
next j
print
next i
end
板凳
小小tqw [专家分：40] 发布于 2006-07-23 11:02:00
你这图不对劲呀，歪七扭八的~耶！
3 楼
JRX [专家分：180] 发布于 2006-07-25 11:20:00
是这个吧
*
***
＊＊＊＊＊
＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊
＊＊＊＊＊
＊＊＊
＊
4 楼
JRX [专家分：180] 发布于 2006-07-25 11:24:00
FOR I=0 TO 8
PRINT TAB(ABS(I-3));
IF I<=4 THEN B=2*I+1 ELSE B=(8-I)*2+1
FOR J=1 TO B
PRINT "*";
NEXT J
PRINT
NEXT I
5 楼
diylym [专家分：30] 发布于 2006-07-27 12:56:00
对于这个问题可以这样写：
fori=1 to 5
locate i,6-i:print string$(2*i-1,"*")
locate 10-i,6-i:print string$(2*i-1,"*")
next
end
[em20][em20][em12]
[fly] [/fly]
6 楼
ptzxzc [专家分：20] 发布于 2006-08-01 11:09:00
汗！！！
没要求啊？？
那要是没要求还能这样呢！！
看：
print " *"
print " ***"
print " ＊＊＊＊＊
print " ＊＊＊＊＊＊＊"
print " ＊＊＊＊＊＊＊＊＊"
print " ＊＊＊＊＊＊＊"
print " ＊＊＊＊＊"
print " ＊＊＊"
print " ＊"
7 楼
网络爱好者 [专家分：60] 发布于 2006-08-24 17:54:00
CLS
FOR I=-4 TO 4
? TAB(ABS(I)+1);
FOR J=1 TO 9-ABS(i)*2
? "*";
NEXT J
?
NEXT I
END
我来回复
您所在位置：