主题：练练2
zhiaini
[专家分：10] 发布于 2009-09-15 22:03:00
编程打印以下图形。
#
*#*
**#**
#######
**#**
*#*
#
回复列表 （共1个回复）
沙发
天天和和 [专家分：1420] 发布于 2009-09-15 22:05:00
CLS
INPUT N
M=N\2
FOR I=-M TO M
PRINT TAB(ABS(I)+1);
IF I=0 OR ABS(I)=M THEN
PRINT STRING$(N-ABS(I)*2,"#")
ELSE
PRINT STRING$(M-ABS(I),"*")+"#"+STRING$(M-ABS(I),"*")
END IF
NEXT I
END
我来回复
您所在位置：