f90等级考试试卷真题2008秋笔试卷

1、第二部分FORTRAN90 程序设计一、选择题（用答题卡答题，依次填在 2130 答题号内）21.以下所列标识符中，不是 FORTRAN90函数的是21。A. REALB.EGERC.D. CMPLX22.a 是含有 n 个元素的一维数组。以下所列赋值语句中有语法错误的是22。A. a(1:n:1)=(/1,2,3,i,i=4,n/)C. a(1:n)=(/1,2,3,(i,i=4,n)/)B. a(1:n:1)=(/(i,i=1,n)/)D. a=(/(i,i=1,n)/)23.一个复杂表达式内可能有各种类型的子表达式，程序执行时计算各子表达式的先后次序是 23。A.B.C.D.括号内的表达

2、式、算术表达式、逻辑表达式、关系表达式括号内的表达式、关系表达式、逻辑表达式、算术表达式括号内的表达式、算术表达式、关系表达式、逻辑表达式括号内的表达式、逻辑表达式、关系表达式、算术表达式24.若有语句列：EGER,DIMEN(1:2,1:4):aa=RESH(/1,3,5,7,2,4,6,8/),(/2,4/)则数组求和函数 SUM(a,DIM=2)的值是24。A. 常量：36B. 一维数组：4，12，6，14C. 一维数组：14，22D. 常量：2225.以下五种形式的数组：常数组，可调维数组，假定形状数组，假定大小数组，动态数组。其中不能出现在哑元表中的是25。A.、B.、C.、D.26

3、.若数组说明语句为：REAL(kind=8)，DIMEN则函数值 LBOUND(a,DIM=3)是26。（-2:2 , -4:4 ,-3:3）:aA. -2B. -4C.1D.-327.下列关于 DO 循环的表示中， 27不是正确的 DO 循环结构。A.B.C.D.DOENDDOndex=expr1,expr2,expr3ENDDODO UNTIL(expresDO WHILE(expres)ENDDO)ENDDO28.一般而言，过程（函数过程和子程序过程）定义含有过程名和过程体（一系列实现其功能的语句），以下选项中没有过程体的是 28。A. 哑过程B. 外部过程C. 系统提供的过程（如 SI

4、N 等）D.过程下列用于区分递归函数过程和非递归函数过程的说法中，错误的是 29。前者必须在 FUNCTION 前用 RECURSIVE 加以说明，后者无此要求B. 前者定义中必定对自身有直接，后者在过程体内不能对自身直接C. 前者定义中必定有对自身的直接或间接，后者不会出现这种D. 若某问题既可用递归也可用非递归函数过程解决，则前者执行效率低，后者执行效率高30. FORTRAN 文件系统中标准输入文件指键盘、标准输出文件指屏幕，以下叙述中错误的是 30。A.B.C.D.标准输入文件、标准输出文件以及磁盘文件均可按有格式、顺序方式读写标准输入文件、标准输出文件以及磁盘文件均可按有格式、直接方

5、式读写磁盘文件才可按有格式、直接方式读写，而标准输入文件、标准输出文件不可以磁盘文件才可按无格式、顺序方式读写，而标准输入文件、标准输出文件不可以二、填空题（请将填写在答题纸的相应答题号内，每个只占一行）1.以下程序执行后，输出的第一行是(1), PROGRAM spin_squareIMPLICIT NONEEGER:nc,nr,i,j,kEGER,DIMEN(1:3,1:3):array第二行是 (2),第三行是 (3)。nc=3;nr=1;i=3;j=3array(i,j)=9 DO k=8,1,-1IF(j nr .AND. i=nc)THENj=j-1ELSEIF(j=nr .AND

6、. i nr)THENi=i-1ELSEIF(j nc .AND. i = nr)THENj=j+1ELSEIF(j=nc .AND. i 0)THEN=1,kd=ICHAR(x(i:i)-ICHAR(0)n=n+d*10*(k-i) ENDDOENDIFEND FUNCTION f!PROGRAM main IMPLICIT NONECHARACTER(len=6):a=123456,b=987654EGER:fPR*, f(a);END PROGRAM mainPR*, f(b)4.以下程序是求解古代数学家的一道算术题的简化形式：“某数被 5 除余 0，被 715 除余 10，被 187

7、除余 109，求出符合条件的最小数”。程序执行后，输出的第一行是 i= (8) ，第二行是n= (9)。 PROGRAM HuangzxEGER:x,i i=10DOx=10+715*iIF(MOD(x,187)=109)THENPR(i=,I2/n=,I5),i,x; ELSEi=i+2 ENDIF ENDDOEND PROGRAM HuangzxEXIT5.以下程序执行后，输出的第一行是(10)，运算符“”超载定义后的功能是(11)。 MODULE dataERFACE OPERATOR(+) MODULE PROCEDURE plusENDERFACETYPE matrixEGER:m,

8、nEGER,DIMENEND TYPE matrixCONTAINS(:,:),POER:aFUNCTION plus(mt1,mt2) RESULT(sum)TYPE(matrix),ENT(in):mt1,mt2TYPE(matrix):sumIF(mt1.m/=mt2.m .OR. mt1.n/=mt2.n)THENsum.m=0;sum.n=0ALLOCATE(sum%a(0,0)ELSEsum.m=mt1.m;sum.n=mt1.nALLOCATE(sum%a(mt1.m,mt1.n) sum.a=mt1.a+mt2.aENDIFEND FUNCTION plusEND MODULE

9、 data!PROGRAM test USE dataTYPE(matrix):mx1,mx2,mxEGER,DIMEN(2,4),:a,ba=RESH b=RESH(/1,3,5,7,2,4,6,8/),(/2,4/)(/2,4,6,8,1,3,5,7/),(/2,4/)mx1=matrix(2,4,a); mx2=matrix(2,4,b); PR(4i3),(mx.a(i,j),j=1,4),i=1,2) END PROGRAM testmx=mx1+mx26.以下程序执行后，输出的结果是(12)，其中种属过程 f 可实现分功能。函数(13)的部MODULE generic CONTAI

10、NSFUNCTION f_(a,n) RESULT(s)EGER:n,i,s,a(n) s=a(1)=2,nIF(a(i)s)s=a(i) ENDDOEND FUNCTION f_!FUNCTION f_real(a,n) EGER:i,nREAL:s,a(n)s=a(1)=2,nIF(a(i)s)s=a(i) ENDDOEND FUNCTION f_realEND MODULE genericRESULT(s)!PROGRAM main USE genericERFACE fMODULE PROCEDURE f_, f_realENDERFACEEGER,DIMEN(1:5):x=(/2,3

11、,1,7,8/)REAL,DIMEN(1:7):y=(/1.3,0.4,-2.5,2.4,3.8,-3.5,7.9/)PR(I3,”,”,F6.2),f(x,5),f(y,7)END PROGRAM main7.以下程序执行后，输出的第一行是 （14） ，第二行是 （15）。PROGREG EGER,o Oer ER:p,q:i,jCHARACTER(len=50):fmtfmt=(p=,I2, q=,I2, i=,I2, j=,I2)i=3;p=i; p=3*q+i*jj=5 q=jPRfmt,p,q,i,jIF(p=6*q)p=q p=p*q-1PRfmt,p,q,i,jEND PROGR

12、oer8. 完善以下程序。【算法提示】求非线性方程 f(x)=0 实根的 Illinois法如下：找到 x0，x1 使其满足 f(x0)f(x1)0；定义 g(x,y)=(f(x)-f(y)/(x-y)；取 xtry=x1-f(x1)/g(x1, x0)。接着按照下述规则修正近似根：若有 f(x1)f(xtry)0，则保持 x0 不变，并且当9.完善以下程序。【算法与功能提示】IP 地址的十进制表示是用 4 个不大于 255 的十进整数，中间用 “.”分隔，例如 213.125.176.131。每个十进整数表示 8 个二进位数字，例如前例表示的 IP 地址是“11000010000011”。以

13、下程序将字符串形式的十进制表示的 IP 地址转换为字符串形式的二进制表示，中间分隔用的“.”被删去。函数 f 实现这能。将“.”前的整数字符逐个取出还原成十进数，将其转换成二进数，再将每个二进数字转换成字符形式并依次填入表示二进形式 IP 地址的字符串（函数值）。数字字符的 ASCII 码值和数字代表的数值相差 48。PROGRAM numbers IMPLICIT NONECHARACTER(len=15):IP_address_dec CHARACTER(len=32):IP_address_bin,f IP_address_dec=213.125.176.131 IP_address_b

14、in=f(IP_address_dec)PR*,IP_address_bin END PROGRAM numbers!FUNCTION f(x) RESULT(g) IMPLICIT NONE CHARACTER(len=1):tmp CHARACTER(len=*):x CHARACTER(len=32):gEGER:i,zero,temp,r,k,m g=00000000000000000000000000000000zero=ICHAR(0);out:DOtmp=x(i:i)IF(tmp/=. )THENtemp=temp*10+(21) i=i+1IF(i-1=LEN(x)THEN k

15、=32DOr=MOD(temp,2); tmp=(22)! ICHAR(0)=48i=1;m=24;temp=0!处理第 4 个十进数g(23)=tmp;temp=temp/2;k=k-1IF(24)EXIT out ENDDOENDIF ELSEIF(tmp=. )THENk=min:DO!处理前 3 个十进数r=MOD(temp,2);tmp=CHAR(r+zero)g(25)=tmp; IF(temp=0)THENtemp=temp/2;k=k+1m=m-8; ENDIFENDn ENDIFENDDO outEND FUNCTION fi=i+1;CYCLE out10. 完善以下程序。

16、【算法提示】计算行列式值的法是：自第一行开始用简单的行消将行列式简约成上三角形式，则其对角线元乘积即为行列式之值。当消元进行到第i 步出现对角线元素为0 时，消元无法继续，但行列式值未必为 0，此时可以在该行下方找到同一列处不为 0 的行，将该行元素和第i 行元素对应相加，然后继续消元，行列式值不变；而如果这样的行不存在，则表明该行列式之值为 0。程序中变量 det 是行列式之值。例如：PROGRAM main REAL,DIMEN(1:5,1:5):aREAL:det,determinatea=RESH(/0.0,-3.0,-1.0,2.0,3.0,1.0,0.0,3.0,7.0,-2.0,3.0,-1.0,0.0,&5.0,-5.0,2.0,6.0,-4.0,1.0,2.0,-2.0,5.0,0.0,-1.0,3.0/), (26)det=determinate(a,5)WRITE(*,(Value of determinate A=,F8.2)det END PROGRAM main!FUNCTION determinate(a,n) RESU EGER:n,rn,i,j,k,