主题：[讨论]怎样打印菱形??????????
yfyf
[专家分：440] 发布于 2007-07-24 09:36:00
如:
*
***
*****
***
*
回复列表 （共15个回复）
11 楼
失落的快乐 [专家分：100] 发布于 2007-12-07 16:12:00
cls
input n
for i=1 to n*2-1
?tab(abs(n-i)+1);string$((n-abs(n-i))*2-1,"*")
next i
end
12 楼
木偶之舞 [专家分：60] 发布于 2007-12-28 21:18:00
CLS
DO
INPUT N
LOOP UNTIL N>0 AND N<10 AND N=FIX(N)
FOR I=-N TO N
?TAB(20+2*ABS(I));
FOR J=-ABS((ABS(I)-N)) TO ABS(ABS(I)-N)
?"*";
NEXT J
?
NEXT I
END
13 楼
我爱QB [专家分：200] 发布于 2008-01-26 20:06:00
[em2]
CLS
INPUT "行(X)＝",X
FOR I = -X TO X
PRINT TAB(10+ABS(I))；
FOR J = 1 TO (2*X+1)-2*ABS(I)
PRINT "*"；
NEXT J
PRINT
NEXT I
END
14 楼
我爱QB [专家分：200] 发布于 2008-01-26 20:07:00
你这是两个三角形拼的！
15 楼
我爱QB [专家分：200] 发布于 2008-01-26 20:10:00
4楼的朋友，两个三角形拼的。
我来回复
您所在位置：