6、写出运行结果

　　程序代码：

　　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、设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

　　8、设N值为4，字符”A”的ASCII码为65。

　　程序代码：

　　SET TALK OFF

　　CLEAR

　　INPUT "N=" TO N

　　FOR I=1 TO N

　　?SPACE(N-I+1)

　　FOR J=1 TO 2*I-1

　　??CHR(ASC("A")+J-1)

　　ENDFOR

　　ENDFOR

　　FOR P=N-1 TO 1 STEP -1

　　?SPACE(N-P+1)

　　FOR K=1 TO 2*P-1

　　??CHR(ASC("A")+K-1)

　　ENDFOR

　　ENDFOR

　　SET TALK ON

　　参考答案：

　　A

　　ABC

　　ABCDE

　　ABCDEFG

　　ABCDE

　　ABC

　　A

　　五、综合编程题。根据题目要求，编写相应的程序。

　　1、求X+ X2 + X3 + X4 +¼+ Xn的值。N，X从键盘输入。

　　程序代码：

　　SET TALK OFF

　　clear

　　INPUT "X=" TO X

　　INPUT "N=" TO N

　　S=0

　　I=1

　　DO WHILE I<=N

　　S=S+X^I

　　I=I+1

　　ENDDO

　　?"X+X^2+X^3+...+X^N=",S

　　SET TALK ON

　　2、求S=2/1+3/2+5/3+8/5+13/8+…..前20项之和。

　　程序代码：

　　SET TALK OFF

　　clear

　　S=0

　　N=1

　　X=1

　　Y=2

　　DO WHILE N<=20

　　S=S+Y/X

　　T=X

　　X=Y

　　Y=Y+T

　　N=N+1

　　ENDDO

　　?"2/1+3/2+5/3+...+17711/10946=",S &&共有N=20项累加

　　SET TALK ON