1998年4月二级笔试试题FORTRAN
Ⅰ 计算机基础知识
Ⅱ 语言部分
21、下列21中，所指定的FORTRAN表达式都是正确的。
①D=B * B - 4 * A * C ②MOD（M，N）.NE.O
③.NOT.FALSE..OR..NOT..TRUE ④A.GT.B.EQ.A.LT.C
⑤π*R**2 ⑥3*E-2
⑦A.GT.B.EQ..TRUE. ⑧′123′//′ABC′
A、①、②、③ B、⑥、⑦、⑧ C、④、⑤、⑥ D、②、⑥、⑧
22、执行下列程序，输入3456.789，则输出的结果为22。
READ（8 ，100） S
WRITE（ 8，100）
100 FORMAT（2F4.1）
END
A.345.6 B.45.6 C.456. D.* * *
23、下列程序执行后输出23
DIMENSION M(5)
READ(*,*)(M(I),I=1,5)
DO 10 I=1,5
10 WRITE(*,22)(M(J),J=1,I)
22 FORMAT(1X,3I3)
END
A、7 B、8 C、9 D、5
24、FORTRAN 77规定，变量类型的优先顺序是24 。
A、隐含约定（I-N规则）、Implicit说明、类型说明
B、类型说明、隐含约定（I-N规则）、Implicit说明
C、类型说明、Implicit说明、隐含约定（I-N规则）
D、Implicit说明、类型说明、隐含约定（I-N规则）
25、设T=.TRUE.F=.FALSE.下列表达式中值为.TRUE.的是25。
A、.T.AND.F.AND.7.GE.4
B、T.AND..NOT.T.AND.T
C、((T.OR.F).AND.(T.AND.5.LE.4)).EQV.(.NOT.T.OR.(5.GE.1.AND.F))
D、.NOT.(T.OR.F).NEQV.(T.AND.8-2.EQ.4)
26 、下面循环语句执行后，SUM的值是26。
DO 10 I=1，5
SUM=0
DO 10 J=I，4，-1
10 SUM=SUM+I+J
A、0.0 B1.9.0 C.27.0 D.76.0
27、下列语句中，正确的语句函数定义语句是 27 。
A、FA(I,I)=8*I+I B、FB(B(5),X)=X+B(5)
C、FC(X,8.)=X*X-SQRT(8.) D、FD(X)=MOD(X,2.)+SQRT(X)
28、在辅程序单位的各种变元中，一定要在哑元表中出现的是 28 。
A、可调数组名 B、常数组名 C、可调维变量名 D、变量名
29、下列符号名中，可作为有名公用区名的是 29 。
①变量名 ②数组名 ③外部函数名 ④内部函数名
⑤子程序名 ⑥主程序名 ⑦语句函数名
A、①、②、③、④ B、①、②、④、⑦ C、①、②、⑥、⑦ D、③、④、⑤、⑥
30、FORTRAN语言的文件读写单位是 30 。
A、字节 B、扇区 C、字长 D、记录
二、填空题
1、下述程序执行后，L（3，1）=（1） 。L（2，2）= （2） ，L（1，3）= （3）。
INTEGER L（3，3）
DATA L/9*0/
I=2
J=3
L（I，J）=1
DO 10 K=2，9
I=I+1
J=J+1
IF（J.GT.3.AND.I.LE.3）THEN
J=1
ELSE IF(J.LE.3.AND.I.GT.3)THEN
I=1
ELSE IF(I.GT.3.AND.L(I,J).NE.0))THEN
& OR.(J.LE.3.AND.I.LE..3.AND.L(I,J).NE.0))THEN
I=I-1
J=J-2
10 CONTINUE
PRINT′(6X,3I3)′,((L(I,J),J=1,3),I=1,3)
END
2、下列程序执行后输出的结果是 （4） ，（5）。
FUNCTION F（X，Y）
INTEGER F，X，Y
X=S+Y
Y=X*Y
F=X/Y
END
INTEGER F，FF，FFF
DO 10 I=1，0，1
FF=2*F（I，I）
10 PRINT *，FF
FFF=F（I，I）+F（I，I）
PRINT *，I，FFF
END
3、下述程序执行后，输出的第一行是（6），第二行是（7）。
REAL A（2，2，-1，：1）
DATA A/1，2，3，4，5，6，1，2，3，4，5，6/
F=FUN（A（1，2，0），3，A（2，1，1））
WRITE（*，′（1X，2HF=，F5.1）′）F
END
FUNCTION FUN（B，N，C）
REAL B（N+1）
FUN=3*C
DO 11 I=1，N
FUN=FUN+B（I）
11 CONTINUE
C=B（I）
WRITE（*，′（1X，2HC=，F5.1）′）C
END
4、下列程序运行后，C（2）=（8），N=（9）。
CHARACTER A（5），B*5，C（2）*10，D*4
DATA A/′1′，′2′，′3′，′4′，′5′/，B/′′/
D=′AB′
C（1）=′ABCDE′
DO 10 I=1，5
B（I：I）=C（1）（6-I：6-I）
10 C（2）=B//A（I）
N=LEN（D//A（1）+INDEX（C（1），D）
WRITE（*，*）C（2），N
END
5、下述程序执行后，输出的第一行是（10），第二行是（11）
SUBROUTINE COMP（A，B）
COMMON X，Y
A=X+Y
B=X-Y
END
COMPLEX X，Y
COMMON X，Y
X=（3.0,4.0）
Y=(4.0,3.0)
CALL COMP(X,Y)
CALL COMP (X,X)
CALL COMP(Y,X)
PRINT 10,X,Y
10 FORNAT(1X,′(′,F5.1,′,′,F5.1,′)′)
END
6、下列程序执行后，输出的第一行是 （12），第二行是（13）。
EXTERNAL SIN
X=60.0
CALL F1(X,Y,SIN)
Y=30.0
CALL F2(X,Y)
END
SUBROUTINE F1(X,Y,FUN)
Y=FUN(X/18-*3.1415926)
PRINT*,X,Y
END
FUNCTION SIN(X)
SIN=COS(X)
END
SUBROUTINE F2(X,Y)
INTRINSIC SIN
CALL F1(Y,X,SIN)
END
7、下列程序执行后输出的结果是 （14），（15）。
INTEGER W（6）
DATA W/1，2，3，4，5，6/
OPEN（1，FILE=′CHA′）
DO 10 I=1，6
10 WRITE（1，′（15）′）I*I
REWIND（1）
DO 20 I=1，6，2
20 READ（1，′（6I5）′）W（I）
WRITE（*，′（1X，2I5）′）W（3），W（4）
CLOSE （1）
END
8、函数FACTOR（M，FAC，N）的功能是：计算正整数M（M>2）的除自身以外的所有不同因子之和。因子个数存于N中且不超过100。方法是：M被由2开始的逐个自然数来除，若某次相除得到两个互异因子，由小者依次存入数组FAC的左端，大者逐个存入FAC的右端；若只得一个因子，由该因子存入FAC的左端，直至全部因子求毕，最后将所有因子从小到大集中于FAC的左端。例如：M=16，其因子为1，2，4，8，因子之和为15，因子个数为4。
RUNCTION FACTOR（M，FAC，N）
INTEGER FACTOR，FAC（100），SUM，R
FAC（1）=1
L=1
R=100
SUM=1
I=2
10 K=M/I
IF（K*I-M.EQ.0）THEN
IF(I*I.NE.M)THEN
L=L+1
(16)
(17)
R=R-1
SUM=SUM+I+K
ELSE
L=L+1
(18)
SUM=SUM+I
ENDIF
ENDIF
I=I+1
FI(I.LT.K)GOTO 10
DO 20 I =(19)
FAC( (20) )=FAC(I)
20 CONTINUE
N=L+100-R
FACTOR=SUM
END
INTEGER FAC(100),FACTOR
READ*,MM
NN=FACTOR(MM,FAC,N)
WRITE(*,′(1X, ″Factors are:″/1X,20I4)′)(FAC(I),I=1,N)
END
9、用辛普生法则求定积分的方法计算由积分定义的函数
公式空白……
辛普生法则为：首先将被积区间3n等分，h=b-a ,求积公式为
3n
公式空白……
用语句函数定义被积函数，本程序求x=sin00 至x=sin890的函数值。
FUNCTION ELLIPTIC（X）
PARAMETER（PI=3.1415926，N=200）
（21）
A=0.
B=PI/2
（22）
S=G（A）=G（B）
DO 10 J =1，N
（23）
X2=X1+H
X3=X2+H
（24）
10 CONTINUE
（25）
END
PROGRAM MAIN
PARAMETER（PI+3.1415926,RD=PI/180.）
DO 15 I=0,89
X=SIN(RD*I)
Y=ASIN(X)
PRINT 20,INT(Y/RD+0.05),ELLIPTIC(X)
20 RORMAT(1X,′X=′,I2,′ELLIPTIC(X)= ′, F7.4)
15 CONTINUE
END
10、设某个字符串最多有80个字符，另有一个最多有10个字符的短串，下面程序是从字符串LINE中找出短字符串STR（此串的最右边的空格要去掉）。同时自左向右逐个搜索，如果找到，则输出找到的信息及STR首字符出现的位置，未找到则输出信息“not found！”。
CHARACTER LINE * 80, STR*10
LOGICAL FLAG
READ *, LINE,STR
DO 10 I=(26)
IF(STR(I:I).NE. ′′)THEN
K=I
(27)
ENDIF
10 CONTINUE
15 FLAG=.FALSE.
DO 20 I=1,80-K+1
DO 30 J=(28)
IF(LINE( (29) ).NE.STR(J:J))THEN
FLAG=.FALSE.
GOTO 20
ELSE
(30)
ENDIF
30 CONTINUE
IF(FLAG)THEN
PRINT 35,STR,I
35 FORMAT(′is found and its place in LINE is from′,i2,′th′)
STOP
ENDIF
20 CONTINUE
PRINT *,′not found!′
END
