主题：qb题目
小嘻嘻哈哈
[专家分：0] 发布于 2008-05-17 09:49:00
编程打印字符菱形，n(n<13)由键盘输入。
回复列表 （共2个回复）
沙发
可爱叮铃 [专家分：170] 发布于 2008-05-17 10:11:00
do
input"n=";n
loop until n<13 and n>1
for i=1 to n:print tab(21-1);
for j=1 to 2*i-1:print"*";:next j:print:next i
for i=n-1 to 1 step-1:print tab(21-1);
for j=1 to 2*i-1:print"*";:next j:print:next i
end
书上有
板凳
flyinggoon [专家分：110] 发布于 2008-05-20 12:27:00
'以下程序也可以做到的
CLS : INPUT n
FOR i = -n TO n
PRINT TAB(30 + ABS(i));
FOR j = 2 * n TO 2 * ABS(i) STEP -1
PRINT "*";
NEXT j: PRINT
NEXT i
END
我来回复
您所在位置：