郑日新:怎么用QBASIC语言编写这个程序?高手指教!

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/06 18:53:52
#
#$#
#$#$#
#$#$#$#
#$#$#
#$#
#

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编程了,建议上机验证一下

用几个输出就可以做到