1、语句序列 DO 10

　　I=1,5,2

　　DO 10

　　J=2,6,2 10

　　K=I+J WRITE(*，*) K 执行的结果是

　　(A)K=9 (B)K=10 (C)K=11 (D)K=12

　　标准答案：c

　　2、 若有INTEGER A(-2：2，0：3，1：2)，按照在内存中的存储次序，数组A中第8号元素为

　　(A)A(-1，0，2) (B)A(0，1，1) (C)A(2，1，2) (D)A(1，1，1)

　　标准答案：c

　　3、 对下列程序段

　　READ(*，*) X

　　IF((X.LT.-5.0) .OR. (X.EQ.-1.0))T

　　HEN Y=0.0

　　ELSEIF(X.LT.0.0)

　　THEN Y=1.0/(X+1.0)

　　ELSEIF(X.LT.5.0)

　　THEN Y=1.0/(X+2.0)

　　ELSE Y=0.0 ENDIF ;

　　WRITE(*，*)Y

　　若输入4.0，则结果为： (A)0.0 (B)1/5 (C)1/6 (D)1/4+2.0

　　标准答案：d

　　4、以下程序段 DIMENSION A (4) READ *，

　　A I=l 10 J=I十1

　　20 IF(A(I).LT.A(J))

　　THEN T=A(J) A(J)=A(I) A(I)=T

　　ENDIF J=J+1

　　IF(J.LE.4) GOT0 20 I=I+1

　　IF(I.LE.3) GOT0 10 PRINT*，A(4) END

　　若输入4，2，3，5，则程序运行结果为：

　　(A)4 (B)2 (C)3 (D)5

　　标准答案：d

　　5、 对下列程序段

　　PARAMTER(N=3)

　　INTEGER A(N，N) READ *，

　　A ’ D0 10 J=1，

　　N LS=0 D0 20 I=1，

　　N 20 LS=LS+A(1，J) LS=LS/N D0 30 I=1，

　　N 30 A(I，J) =A(I，J) -LS 10 CONTINUE PRINT*，

　　A END

　　若输入2，4，6，8，10，12，14，16，18 则程序运行后A(3，2)为

　　(A)一2 (B)0 (C)2 (D)12

　　标准答案：c

　　6、 以下程序段

　　PROORAM MAIN

　　EXTERNAL FX Y=TX(FX，3，2) PRINT*，

　　Y END

　　FUNCION TX(FUN，A，B) TX=(FUN(A)—FUN(B))/2.0 END

　　FUNCTION FX(X) FX=X*X END

　　运行的结果为 (A)9 (B)4 (C)2.5 (D)6.5

　　标准答案：b

　　7、 对以下程序段 •

　　EXTERNAL LENGTH

　　CHARACTER NAME*2 READ(*， *)NAME，

　　SCORE

　　CALL DRAW(NAME，SCORE,LENGTH) END

　　SUEROUTINE DRAW (N，S，F) CHARACTER N*2，

　　LINE*20 1NTEGER F M=F(S) ’ D010 1=1，

　　M LINE(I：I) =’*’ 10 CONTINUE

　　WRITE(*，100)N，

　　LINE 100 FORMAT(1X，A2，A6)

　　END

　　FUNCTION LENGTH(X) LENGTH=INT(X)/100

　　END

　　若输入’D’，356.8，则程序运行结果为:

　　(A)D***

　　(B)D****

　　(C)D356.8

　　(D)D3

　　标准答案：d

　　8、对以下程序段

　　CHARACTER A*4，B*5，C*4

　　DATA A，B，C/’BIG’，’

　　MIDLE’，’

　　SMAL’/ IF(A.GT.B) THEN IF(A.GT.C) THEN PRINT*，

　　A ELSE PRINT*，

　　B ENDIF ’ ELSE

　　IF(B.GT.C)THEN PRINT*，

　　B ELSE PRINT*，

　　C ENDIF ENDIF END

　　其运行结果为

　　(A)BIG (B)MIDLE (C)SMAL (D)BIG

　　标准答案：b

　　9、 INTEGER F

　　F(X,Y)=X+Y A=-2.5 B=2.1 B=B+F(A,B) WRITE(*,'(F3.1)')B END

　　程序运行的结果是

　　(A) 1 (B) 7 (C)2.1 (D)1.7

　　标准答案：d

　　10、 在fortran77的变量类型说明语句中没有

　　(A)real语句 (B)char语句 (C)integer语句 (D) logical语句

　　标准答案：b