主题：编程输出菱形米字号
英子
[专家分：50] 发布于 2005-11-03 15:27:00
*
***
*****
*******
*****
***
*
编程输出以上图形,要求有循环结构语句设计,谢谢!
还有当程序运行结果很多时,在输出窗口如何前后查看
回复列表 （共6个回复）
沙发
ttosoft [专家分：0] 发布于 2005-11-03 16:32:00
这样也可以的:
a$="*******"
for i= 3 to -3 step -1
print tab(10+abs(i));
for j= 1 to 7-2*abs(i)
print a$;
next j
print
next i
end
板凳
英子 [专家分：50] 发布于 2005-11-04 19:40:00
1楼的方法行不通
3 楼
carefreeNumOne [专家分：40] 发布于 2005-11-04 20:30:00
a$ = "*": b$ = "**"
FOR i = 3 TO 1 STEP -1
PRINT TAB(i); a$
a$ = a$ + b$
NEXT i
j = 5
FOR k = 2 TO 3
j = j - 2
c$ = MID$(a$, 1, j)
PRINT TAB(k); c$
NEXT k
想不出来什么简单的方法 ，感觉这个太笨拙了
4 楼
carefreeNumOne [专家分：40] 发布于 2005-11-04 20:38:00
a$ = "*": b$ = "**"
FOR i = 4 TO 1 STEP -1
PRINT TAB(i); a$
a$ = a$ + b$
NEXT i
j = 7
FOR k = 2 TO 4
j = j - 2
c$ = MID$(a$, 1, j)
PRINT TAB(k); c$
NEXT k
总觉得这个方法 不很好
5 楼
zhangyang9007 [专家分：80] 发布于 2006-01-20 19:13:00
for i=1 to 4
print tab(11-i);
for j=1 to 2*i-1
print "*";
next j
next i
for i=3 to 1 step-1
print tab(11-i);
for j=1 to 2*i-1
print "*";
next j
next i
end
提示:做这类题目首先确定行数(也就是外循环次数),再确定每一行的列数.然后根据要求输出就行.
6 楼
sungfeng21 [专家分：330] 发布于 2006-01-21 05:56:00
for i =1 to 4
print tab(20-i)
for j=1 to 2*i-1
print "*";
next j
next i
for i=3 to 1 step-1
print tab(19-i);
for j=1 to 2*i-1
print "*";
next j
next i
end
吧， 第 5 楼的思路和我一样但是打印下面的*时比上面后退一阁的啊，所以下面的print tal语句里的数要比前面的小一啊
我来回复
您所在位置：