6、寫(xiě)出運(yùn)行結(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

　　7、設(shè)N，M的值分別為6，8。

　　程序代碼：

　　SET TALK OFF

　　CLEAR

　　INPUT "N=" TO N

　　INPUT "M=" TO M

　　X=MAX(N,M)

　　FOR I=X TO M*N

　　IF MOD(I,M)=0 AND MOD(I,N)=0

　　Y1=I

　　EXIT

　　ENDIF

　　ENDFOR

　　?"Y1="+ALLTRIM(STR(Y1,19))+",Y2="+ALLTRIM(STR(M*N/Y1,19))

　　SET TALK ON

　　參考答案：

　　Y1=24，Y2=2