5、寫出運行結(jié)果

　　程序代碼：

　　SET TALK OFF

　　CLEAR

　　?"* 1 2 3 4 5"

　　A=1

　　DO WHILE A<=5

　　?ALLTRIM(STR(A))+SPAC(2)

　　B=1

　　DO WHILE B<=A

　　S=A*B

　　??STR(S,2)+SPAC(2)

　　B=B+1

　　ENDDO

　　A=A+1

　　ENDDO

　　SET TALK ON

　　參考答案：

　　* 1 2 3 4 5

　　1 1

　　2 2 4

　　3 3 6 9

　　4 4 8 12

　　5 5 10 15 20 25

　　6、寫出運行結(jié)果

　　程序代碼：

　　SET TALK OFF

　　CLEAR

　　DIMENSION A(6,6)

　　FOR I=1 TO 6

　　FOR J=1 TO 6

　　IF I<>J

　　A(I,J)=0

　　ELSE

　　A(I,J)= -1

　　ENDIF

　　ENDFOR

　　ENDFOR

　　FOR I=1 TO 6

　　?

　　FOR J=1 TO 6

　　??A(I,J)

　　ENDFOR

　　ENDFOR

　　SET TALK ON

　　參考答案：

　　-1 0 0 0 0 0

　　0 -1 0 0 0 0

　　0 0 -1 0 0 0

　　0 0 -1 0 0 0

　　0 0 0 -1 0 0

　　0 0 0 0 0 -1