主题:练练3
zhiaini
[专家分:10] 发布于 2009-09-15 22:03:00
编程打印下面的组合图形。
$
* $ *
* * $ * *
$ $ $ $ $ $ $
* * $ * *
* $ *
$
回复列表 (共1个回复)
沙发
天天和和 [专家分:1420] 发布于 2009-09-15 22:06:00
CLS
INPUT N
M=N\2
FOR I=-M TO M
PRINT TAB(ABS(I)*2+1);
IF I=0 OR ABS(I)=M THEN
FOR J=1 TO N-ABS(I)*2:PRINT "$ ";:NEXT J
ELSE
FOR J=1 TO M-ABS(I):PRINT "* ";:NEXT J
PRINT "$ ";
FOR J=1 TO M-ABS(I):PRINT "* ";:NEXT J
END IF
NEXT I
END
我来回复