植筋外露长度规范:怎么用QBASIC语言编写这个程序?高手指教!

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/29 07:01:46
#
#$#
#$#$#
#$#$#$#
#$#$#
#$#
#

FOR I=1 TO 4
FOR J=1 TO I*2-1
IF ((I/2)=INT(I/2)) THEN PRINT "$" ELSE PRINT "#"
NEXT J
PRINT
NEXT I
FOR I=3 TO 1 STEP -1
FOR J=1 TO I*2-1
IF ((I/2)=INT(I/2)) THEN PRINT "$" ELSE PRINT "#"
NEXT J
NEXT I
END
好久没用BASIC编程了,建议上机验证一下

用几个输出就可以做到