主题：有谁会编这个图形吗？谢谢
荣耀男孩
[专家分：0] 发布于 2005-03-31 14:10:00
编程输出如下图案，行数由键盘输入，并要求为奇数。
3
* * *
2 2 2 2 2
* * * * * * *
1 1 1 1 1 1 1 1 1
* * * * * * * * * * *
1 1 1 1 1 1 1 1 1
2 2 2 2 2
* * *
3
回复列表 （共8个回复）
沙发
飞鸟12 [专家分：2830] 发布于 2005-04-01 12:35:00
CLS
FOR i = 1 TO 5 STEP 2
LOCATE i, 10 - i: PRINT STRING$(2 * i - 1, CHR$(51 - INT(i / 2)))
LOCATE 12 - i, 10 - i: PRINT STRING$(2 * i - 1, CHR$(51 - INT(i / 2)))
NEXT i
FOR i = 2 TO 6 STEP 2
LOCATE i, 10 - i: PRINT STRING$(2 * i - 1, "*")
LOCATE 12 - i, 10 - i: PRINT STRING$(2 * i - 1, "*")
NEXT i
板凳
摩尔曼斯克 [专家分：10] 发布于 2005-04-01 16:49:00
input n
a=n\2
for i = -a to a
b=abs(i)
x=(a+1)-b
c$=(b+1)/2
print tab(30-x);
if b mod 2<> 0 then
print string$(2*x-1,ltrim$(str$(c$)))
else
print string$(2*x-1,"*")
end if
next i
end
3 楼
无用 [专家分：200] 发布于 2005-04-03 14:12:00
这图有问题啊~~~~~~~~~~~~~~!!!!!!!!!!!!1
4 楼
binbin520 [专家分：60] 发布于 2005-04-03 14:35:00
用TAB编吧！~
5 楼
荣耀男孩 [专家分：0] 发布于 2005-04-04 07:56:00
这个图形有点错了啊
6 楼
QBXS155852 [专家分：0] 发布于 2006-07-13 17:13:00
应该是这个图吧:
3
* * *
2 2 2 2 2
* * * * * * *
1 1 1 1 1 1 1 1 1
* * * * * * * * * * *
1 1 1 1 1 1 1 1 1
* * * * * * *
2 2 2 2 2
* * *
3
7 楼
SDFF [专家分：50] 发布于 2006-07-20 15:37:00
这样做：
CLS
FOR i = 1 TO 5 STEP 2
LOCATE i, 10 - i: PRINT STRING$(2 * i - 1, CHR$(51 - INT(i / 2)))
LOCATE 12 - i, 10 - i: PRINT STRING$(2 * i - 1, CHR$(51 - INT(i / 2)))
NEXT i
FOR i = 2 TO 6 STEP 2
LOCATE i, 10 - i: PRINT STRING$(2 * i - 1, "*")
LOCATE 12 - i, 10 - i: PRINT STRING$(2 * i - 1, "*")
NEXT i
只用把5改成由键盘输入的N就行了。[em1]
8 楼
JRX [专家分：180] 发布于 2006-07-22 21:30:00
INPUT N
FOR I=1 TO N
PRINT TAB(ABS((N+1)\2-I+1);
FOR J=1 TO I*2-1
IF I MOD 2=0 THEN
PRINT"*";
ELSE
PRINT USING"#";ABS((N+1)\2-I+1)\2;
ENDIF
NEXT J
PRINT
NEXT I
END
我来回复
您所在位置：