FORTRAN77试题B
FORTRAN77试题B
贵州大学2006-2007学年第一学期考试试卷 B高级语言程序设计注意事项:1. 请考生按要求在试卷装订线内填写姓名、学号和年级专业。
2. 请仔细阅读各种题目的回答要求,在规定的位置填写答案。
3. 不要在试卷上乱写乱画,不要在装订线内填写无关的内容。
4. 满分100分,考试时间为120分钟。
一、选择题(共50分,每小题2分,各题中A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确的编号填在括号内)1. 使用超大规模集成电路制造的计算机应该归属于()A) 第一代B) 第二代C) 第三代D) 第四代2. 下列FORTRAN77运算符中,优先级最低的是()A)逻辑运算符.AND. B)算术运算符*C)关系运算符.GE. D)算术运算符+3.下列标识符中,不属于FORTRAN77常量的是()A).TRUE. B)FALSE C)ˊROOT=ˊ D)ˊ123.0ˊ4.下列叙述中错误的是()A)PROGRAM语句可以是FORTRAN77主程序的第一个语句B)每一个FORTRAN77程序块的最后一个语句必须是END语句C)FORTRAN77的所有语句都是可执行语句D)FORTRAN77的任何可执行语句都可以有标号5.下列FORTRAN77表达式中,值为.FALSE.的是()A).NOT.(.FALSE. .AND. .NOT. .TRUE.)B).NOT. .FALSE. .OR. .NOT. .TRUE.C).NOT. .TRUE. .AND. .NOT. .FALSE.D)X .GT. Y .OR. X .LE. Y6. 在计算机内部,一切信息存取、处理和传送的形式是()A) ASCII码B) BCD码C) 二进制D) 十六进制7.下列标识符中不能作为FORTRAN77的合法变量名的是()A)A_1 B) A1 C) A1A D) A+18.下列不是FORTRAN77赋值语句的是()A)X=.TURE. B) X=X*X C) X=X++ D) X=X**2**29.字符运算符‘AB’//‘CD’产生的新字符串的值为(□为空格)()A)‘ABCD’B) ‘AB//CD’C) ‘AB□CD’D) ‘AB□□CD’10.阅读下列FORTRAN77程序:READ(*,*) NX=1.0IF (N.GE.0) X=2*X-2.0IF (N.GE.5) X=2*XIF (N.GT.15) X=3*X-1.0WRITE(*,*) XEND运行上述程序时,如果从键盘输入15<回车>则最后输出的X值为()A)5.0 B)2.0 C)-1.0 D)0.011.阅读下列FORTRAN77程序:DO 20 M=2,5,2P=1.0DO 10 K=M,510 P=P+K20 CONTINUEWRITE(*,*) PEND运行上述程序后,输出的P值为()A)11.0 B)10.0 C)9.0 D)24.012. 阅读下列FORTRAN77程序:READ(*,100) X,Y,Z,SWRITE(*,*) S100 FORMA T(F2.1,3(1X,F3.1))END运行上述程序时,如果从键盘输入9876543210987654321<回车>则最后输出的S值为()A)9.8 B)98.7 C)8.7 D)87.613.阅读下列FORTRAN77程序:READ(*,*)AB=0.0IF (A.GE.1.0) THENB=B+2.0END IFIF (A.GE.2.0) B=B-1.0WRITE(*,*) BEND在执行时,从键盘输入5.0<回车>则输出的B值为()A)2.0 B)-1.0 C)0.0 D)1.014. 阅读下列FORTRAN77程序:P=0.0DO 20 N=2,6,2P=P+1/N20 CONTINUEWRITE(*,*) PEND运行上述程序后,输出的P值为()A)0.0 B)0.5 C)0.75 D)0.9115. 阅读下列FORTRAN77程序:READ(*,*) MN=1K=N10 IF (K.LT.M) THENN=N*KK=K+1GOTO 10END IFWRITE(*,*) NEND在执行上述程序时,如果从键盘输入6<回车>则执行后输出的N值为()A)720 B)120 C)96 D)2416.将二进制数10000001转换为十进制数应该是()A) 127 B) 129 C) 126 D) 12817. 在FORTRAN77源程序中不能用作续行标志的字符是()A) 0 B) X C) + D) $18. 要选拔身高T>1.7米且体重W<62.5公斤的人,FORTRAN的逻辑表达式是()A) T.CE.1.7.AND.W.LE.62.5 B) T.LE.1.7.OR.W.GE.62.5C) T.GT.1.7.AND.W.LT.62.5 D) T.GT.1.7.OR.W.LT.62.519. 在FORTRAN77的变量类型说明语句中没有()A) REAl语句B) CHAR语句C) INTEGER语句D) LOGICAL语句20. 一次成功的FORTRAN77源程序编译操作,不能()A) 同时编译一个主程序和一个子程序B) 同时编译几个子程序C) 同时编译一个主程序和几个子程序D) 同时编译几个主程序21. 阅读下列程序LOGICAL LREAD(*,*)A,BL=A.GT.BIF(L)THENX=B+2*AELSEX=BEND IFWRITE(*,*)XEND使用键盘为上述程序输入两个初值4和3,其输出的X值是()A) 4.0 B) 3.0 C) 11.0 D) 10.022. 阅读下列程序READ(*,*)KWRITE(*,100)K100 FORMA T(I5)END程序运行时输入初始值12345,那么显示结果是()A) 12345 B) 2345 C) **** D) *****23. 阅读下列程序LOGICAL L1,L2,L3,L4,L5DA TA L1,L2,L3/3*.TRUE./L4=.NOT.L1.AND..NOT.L2.AND.L3L5=.NOT.L1.OR..NOT.L2.OR.L3WRITE(*,*)L4,L5END程序运行结果是()A) T T B) T F C) F F D) F T24. 阅读下列程序CHARACTER*4 A,B,C*5DA TA A,B,C/'YOUR','BOYS','GIRLS'/WRITE(*,'(1X,A4,A5,A6,A1)')A,B,C,'!'END程序运行结果是()A) YOURBOYSGIRLS! B) YOUR□BOYS□GIRLS!C) YOUR□BOYSGIRLS! D) YOURBOYS□GIRLS!25.阅读下列FORTRAN77程序PARAMETER (A=1.0)READ(*,*)BIF(B.LT.A)THENB=AELSE IF(B.GT.A) THENB=B-AIF(B.GT.A)THENB= B-AENDIFELSEB=0.0ENDIFWRITE(*,*) BEND在执行时,从键盘输入5 〈回车〉输出的B值为()A)1.0 B) 2.5 C) 1.5 D) 3.0二、填空题(共20分,每小题2分)1.16位计算机整数的表示范围为。
Fortran复习题讲解
FORTRAN程序设计复习题选择题B (1)下列各FORTRAN表达式中合法的是A) S+T*2P >= 0.0 B) .NOT. (A*B+C)C) A2+B2/(C+D) <= 0.0 D) (A+B).NOT.A*B.GT.0.0(.NOT.只跟一个表达式)C (2)数学式(3/5)ex+y的FORTRAN表达式是A) 3*EXP(X+Y)/5 B) 3*E* *(X+Y)/5.0C) (3/5)*EXP(X+Y) D) (3.0/5.0)EXP(X+Y)D (3)下列FORTRAN77表达式中不合法的是A) A.GT.B.EQV.C.GT.D B) A.AND.B.AND.C.AND.DC) .NOT.(X.LE.0.0) D) A.LT.B.LT.C.LT.DD (4)下列叙述中不正确的是A) FORTRAN子程序可以单独编译B) 对一个FORTRAN源程序进行编译和连接无误后可生成可执行文件C) 即使编译和连接都正确无误,FORTRAN程序运行时仍可能出错D) FORTRAN连接的主要任务是把函数库中的函数翻译成机器指令(主要任务为连接目标文件)B (5)在下列FORTRAN77运算符中,优先级最高的是A) .AND. B) .NOT. C) .OR. D) .EQ.B (6)FORTRAN表达式"6/5+9/2**3/2"的值为A) 33 B) 1 C) 5 D) 3A (7)下列FORTRAN77 表达式中,合法的是:A)相当于0.0.LE.X .AND.(.NOT.(X.GE.10.0 ))A) 0.0.LE.X .AND..NOT.X.GE.10.0 B) 0.0.GE.X.LT.10.0C) 0.0.LE.X.GE.10. D) 10.0.LE.X.OR..AND.X.GT.0.0D (8)关于编译一个FORTRAN源程序文件,下列说法中错误的是A) 允许编译只有一个主程序而没有子程序的源文件B) 允许编译有多个子程序的源文件C) 允许编译只有一个子程序而没有主程序的源文件D) 允许编译有多个主程序的源文件C (9)在FORTRAN77源程序中,续行标志符必须放在A) 第1列 B) 第1-6列 C) 第6列 D) 第5列D (10)下列关于"SUBROUTINE MAP(X,Y)"语句行的叙述中,不正确的是A) 这是子程序的第一个语句 B) 字符串"MAP"是子程序名C) 变量X是子程序的形参 D) 子程序执行后,MAP将返回整型数据(子程序无返回值,自定义函数才有)A (11)FORTRAN表达式"2/4+0.5"的值是A) 0.5 B) 1 C) 1.0 D) 0D (12)FORTRAN表达式"MOD(4.9,1.3)"的值是A)1.3 B)0.0 C)4.9 D)1.0A (13下列FORTRAN运算符中,优先级最低的是A)逻辑运算符.AND. B)算术运算符*C)关系运算符 >= D)算术运算符+A (14下列语句函数的定义中正确的是A)F(X,Y)=(X+Y)/(X*Y)+7.0 B)FUNCTION FUN(I,J,K)=3*I+2*J+0.5*KC )H(A ,B ,C(I))=SIN(A)+SIN(B)+C(I) D)S(A ,B ,C)=A*B +S(A*A ,B ,C)B (15下列标识符中,不属于FORTRAN 常量的是A ).TRUE.B )FALSEC )ˊROOT =ˊD )ˊ123.0ˊB (16)"整型变量M 能被整型变量K 整除"的FORTRAN77表达式是A )MOD(M ,K)=0 (MOD(M ,K)= =0)B )M -M/K*K .EQ. 0C )MOD(K ,M)=0D )MOD(M ,K)=0 == .TRUE.C (17)设有下列数组说明语句:REAL:: A(1:10,-1:10)该数组说明语句定义了数组A 中的元素个数为A )100B )110C )120D )121A (18)按隐含规则(默认为整型),语句IP=3.1415926执行之后,IP 的值是A) 3 B) 3.1416 C) 3.141592 D)3.141593D (19)下列数据中,不符合 FORTRAN 常量表示法的是A) -25.6 B) 2.758D3 C)‘FOOT’‘=’ D) TRUEC (20)设C 是复型变量,A 与B 为有定义的实型变量,下列赋值语句中合法的是A) C=A+B B) C=(3.5,1.5**2)C) C=(2.0,3D-2) D) C=(A +B,A-B)B (21)有矩阵(数组)⎥⎦⎤⎢⎣⎡=22221111B 下列DATA 语句中正确的是A) DATA B/4*1.0,4*2.0/ B) DATA((B(I,J), J=1,4), I=1,2)/4*1.0, 4*2.0/C) DATA B/4*(1.0,2.0)/ D) DATA((B(I,J),I=1,2), J=1,4)/4*1.0, 4*2.0/C (21)在使用DO 循环及循环嵌套时,下列叙述中正确的是A) 不仅可以从循环体内转到循环体外,也可以从循环体外转到循环体内B) 外循环与内循环的DO 循环控制变量可以不同.也可以相同C) 可以从循环体内转到循环体外,但不能从循环体外转到循环体内D) DO 循环控制变量在循环体内可以再赋值,也可以被引用错误B (22)在FORTRAN 表达式中,各种运算的顺序是A) 逻辑运算,关系运算,算术运算 B) 算术运算,关系运算,逻辑运算C) 关系运算,逻辑运算,算术运算 D) 关系运算,算术运算,逻辑运算D (23)赋值语句X=4**(6/12)=4**0=1.0执行后,实型变量X 的值是A) 2 B) 2.0 C) 1 D) 1.0D (24)为了保证正确出数据,格式编辑符Ew.d 中w 与d 的关系应该是A) w>d B) w>d+2 C) w>d+4 D) w>d+6C (25)设下列各语句中用到的数组都已定义,则下列语句中正确的是A) READ(*,*)(I,A(I),I=1,10) B)READ(*,*)(B,(I,J),I=1,10,J=1,10)C) READ(*,*)N,(A(I),I=1,N) D) READ(*,*)(I=1,10,A(I))A (26)下列DO语句中,不正确实现循环的是(I-N规则:I-N会被视为整型)A) DO 10 S=-1.6,-5.3,-0.4 B) DO 10 K=-1.6,-5.3,-0.4C) DO 10 S=-5.3,-1.6,-0.4 D) DO 10 K=1.6,5.3,-1.4D (27)下列说法中正确的是A) 块IF结构中的THEN块或ELSE块不能是空块B) 块IF结构中至少有一个ELSE IF 语句或ELSE语句C) 每个ELSE IF 语句要有一个对应的END IF语句D) 一个块 IF 结构中只能有一个END IF语句A (28)下列数组说明语句中正确的是A) INTEGER A(-1:5,0:6) B) REAL M(10:5)C) DOUBLE Y(1:N+1) D) DOUBLE Z(14)B (29)设有一个FORTRAN77子程序如下:SUBROUTINE SS(X,Y,S,T)S=X+Y(S,T为传出,即需要输出的(相当于求圆的面积中的area),只能T=X*Y 为确定的数;X,Y为传入(相当于radius),可为表达式)END调用上述子程序的正确语句是A) CALL SS(2.4,W*W,5,5.9,Z)(多了一个)B) CALL SS(0.0,4.2,P,Q,R) (多了一个)C) CALL SS(F,G,7.2,5.1)D) CALL SS(4.4*I,5.8*J,C,D)(I,J可先赋值)A (30)在下列语句函数的定义中正确的是A) F(X,Y)=(X+Y)/(X*Y)+7.0 B) FUNCTION(I,J,K)=3*I+2*J+0.5*KC) H(A,B,C(I))=SIN(A)+SIN(B)+C(I) D) S(A,B,C)=A*B+S(A*A,B,C)B (31)COMMON语句的功能是A) 给同一程序模块中的若干变量分配同一存储单元B) 给不同程序模块中的变量分配相同的存储单元C) 给程序中任意两个变量分配相同的存储单元D) 给同一程序模块中的不同变量分配相同的存储单元B (32)下列表达式中值为整数4的是A) SQRT(16.0) B)27/6 C) 16**0.5 D) 4*1.0C (34)语句K=2+3.0**2/2执行后,整型变量 K的值是A) 6.5 B) 5 C) 6 D) 7C (36)适用于字符型 I/O的 FORTRAN77格式编辑将是A) Fw.d B) Iw.d C) A D) Gw.dC (37)给定子例行程序如下SUBROUTINE SUB(K,A)B=K+2(K为整型,B)错误;A不是整型,A)错误;K为传入,可为表达式,A=A+B A为传出,不能为表达式)END下列调用语句中正确的是A) CALL SUB(N,N) B) CALL SUB(X,X)C) CALL SUB(N+2,X) D) CALL SUB(N,X+3)C (38) 下列FORTRAN语句中,正确的是A) READ(*,*) (N,A(K),K=1,N) B) WRITE(*,*) (M(K,J),K=1,10, J=1,10) C) WRITE(*,*) (10,A(K),K=1,10) D) DATA A,B,C/2*0.0/C (39)对于下列给定的FORTRAN说明和赋初值语句:INTEGER A(2,2)DATA A/3,4,5,6/数组元数A(2,1)的初值为A) 3 B) 5 C) 4 D) 6C (40)下列对公用区的说明语句中错误的是A) COMMON A(5), B B) COMMON/AB/ A(5), BC) COMMON AB/A(5), B/ D) COMMON//A(5), BD (41)下列各逻辑IF语句中正确的是A) IF(X<0.0) THEN 10B) IF(X>=0.0).AND.(X.LT.1.0)Y=2*X+1.0C) IF(0.0>=X<=1.0) Y=2*X+1.0D) IF(X >= 0.0.AND.X <=1.0) Y=2*X+1.0二、阅读题1、阅读下列FORTRAN程序:program examplereal a,b,ca=1.0b=2.0c=3.0write(*,"(3(F5.2))") a,b,cend程序运行的结果是: 1.00 2.00 3.002、阅读下列FORTRAN程序:program exampleinteger :: a=1integer :: b=2real :: cc=a/bwrite(*,"(F5.2)") cend程序运行结果是: 0.003、阅读下列FORTRAN程序:program exampleimplicit noneinteger rain, windspeedwrite(*,*) "Rain:"read(*,*) rainwrite(*,*) "Wind:"read(*,*) windspeedIf ( rain>=500 .or. windspeed >=10 ) thenwrite(*,*) "停止上班上课"elsewrite(*,*) "照常上班上课"end ifstopend运行上述程序时,如果从键盘输入Rain:505<回车>Wind:8<回车>则最后输出的结果为: 停止上班上课4、阅读下列FORTRAN程序:program exampleimplicit nonereal a,b,anscharacter operatorread(*,*) aread(*,"(A1)") operatorread(*,*) bselect case(operator)case('+')ans = a+bcase('-')ans = a-bcase('*')ans = a*bcase('/')ans = a/bcase defaultwrite(*,"('Unknown operator ',A1)") operator stopend selectwrite(*,"(F6.2,A1,F6.2,'=',F6.2)") a,operator,b,ans stopend运行上述程序时,如果从键盘输入100<回车><回车>200<回车>则最后输出的结果为: Unknown operator ?5、阅读下列FORTRAN程序:program exampleimplicit noneinteger iinteger strleninteger, parameter :: key = 2character(len=20) :: stringwrite(*,*) "Encoded string:"read(*,*) stringstrlen = len_trim(string)do i = 1, strlenstring(i:i) = char( ichar(string(i:i)) + key )end dowrite(*,"('String:',A20)") stringstopendBCDIJK<回车>则最后输出的结果为: DEFKLM6、阅读下列FORTRAN程序:program exampleimplicit noneinteger i,jdo i=1, 2do j=2, 3, 2write(*, "(I2,I2)") i,jend dowrite(*,*) "another circle"end dostopend程序运行的结果是: 1 2another circle2 2another circle(按输出格式,1、2前均有一空格。
奥鹏兰大《Fortran语言》19秋学期考试在线考核试题
《Fortran语言》19秋学期考试在线考核试题下列标识符中,不能成为合法的FORTRAN90标识符的是__________A. A2_B3B. VOIDC. _123D. IF正确答案:C下列FORTRAN77运算符中,优先级最高的是__________A. .AND.B. .OR.C. .NE.D. —正确答案:D在使用DO循环及循环嵌套时,下列叙述中正确的是A. 不仅可以从循环体内转到循环体外,也可以从循环体外转到循环体内B. 外循环与内循环的DO循环控制变量可以不同.也可以相同C. 可以从循环体内转到循环体外,但不能从循环体外转到循环体内D. DO循环控制变量在循环体内可以再赋值,也可以被引用正确答案:C下列标识符中,不属于FORTRAN常量的是A. .TRUE.B. FALSEC. ˊ123.0ˊD. ˊROOT=ˊ正确答案:B根据I-N规则,下列为整型变量的变量名__________A. AASGB. TOSCKC. NU_MD. BOK正确答案:CFORTRAN语言中有:整数型、逻辑性、##、实数型、复数型五种基本数据类型。
正确答案:字符型计算机包括以下几个部分:##,存储器,##正确答案:运算器,控制器数组REALA(0:5,-1:5)的元素个数是##正确答案:EC算法的特性包括有穷性、确定性、##、有一个或多个输出和有效性。
正确答案:输入两个正整数S和T,求其最大公约数,请编写程序实现程序。
已知I是整型变量,当DO结构从“正常出口”结束时,语句“DOI=3,15,2”共计完成了##次循环。
正确答案:H简要说明循环形式的关系和区别。
正确答案:1)Do循环用来处理已确定循环次数的问题。
WHILE循环和UNTIL循环既可以用来处理已知循环次数的循环问题,也可以来处理不确定循环次数的问题。
什么是算法?正确答案:设计算法是程序设计的核心。
算法的概念:即计算机解题步骤或计算机算法要完成一件工作,包括设计算法和实现算法两个部分。
Fortran练习经典题目
Fortran练习经典题目a, 输入一个年、月、日并计算它是本年度的第几天。
b.输入任意一年份,给出该年出生人的属相,如1945年出生的人的属相为“鸡”。
c.显示输出2000~2099年的任何一年的某一月的月历,所要显示的年月有键盘输入。
如2002年5月的月历形式如下;5月2002年日一二三四五六1 2 3 4 5 6 78 9 10 11 12 13 1415 16 17 18 19 20 2122 23 24 25 26 27 2829 30 31d.显示输出2000~2099年的任何一年的年历,并写入一文本文件中。
e.以上功能都应从菜单中选择执行。
提示:a中若y为年份,d是该年的某月某日从1月1日开始经过的天数,则s=(y-1)*1.2425+d。
若s除以7后所得的余数取整后为0,则为周日,为1则周一。
program firstquestionimplicit noneinteger::q,i,ldayinteger::year,month,day,days,mday,dscharacter(len=2),dimension(1:37)::tem! 这个程序可以同时在屏幕和文本中输出计算结果。
为了计算不同的问题,引入变量q,当q=1时,计算某年月日是此年的第几天;! 当q=2时,计算某年的属相;当q=3时,计算月历;当q=4时,计算年历;当q=0时,退出此程序。
此外,此程序还设置了对输入! 年、月、日的判断,判断其是否合法。
print *,'when q=1,this program can resolve the question thatwhich day some day is in some year! this is the question one.' print *,'when q=2,this program can obtain the shengxiao of some year! this is the question two.'print *,'when q=3,this program can obtain the calendar of some month of some year(2000-2099)! this is the question three.' print *,'when q=4,this program can obtain the Almanac of some year(2000-2099)! this is the question four.'print *,'If you want to exit from this program,please input q=0.'doprint *,'input the number of q:'read *,qif(q==0) exitif (q==1) then2000 print *,'input the year, the month and the day:'read *,year,month,dayif (month>12.or.month<0) print *,'you input wrong month.' if (month>12.or.month<0) goto 2000call leapday(year,month,day,lday)if (lday==0) print *,'you input wrong day.'if (lday==0) goto 2000call numday(year,month,day,days)print '(a14,i3,a18)','The day is the',days,' day of this year.'open(25,file='days.dat',status='unknown')write(25,'(a14,i3,a18)') 'The day is the',days,' day of this year.' close(25)else if (q==2) thenprint *,'input the year:'read *,yearcall shengxiao(year)else if (q==3) then2001 print *,'input the year(2000-2099) and the month:'read *,year,monthif (year>2099.or.year<2000) print *,'you input wrong year,please input the year between 2000 and 2099.'if (year>2099.or.year<2000) goto 2001if (month>12.or.month<0) print *,'you input wrong month.' if (month>12.or.month<0) goto 2001open(27,file='yueli.dat',status='unknown')call nyli(year,month,mday,ds,tem)write(27, "(26x,i2,'月',3x,i4,'年')")month,yearwrite(27, '(18x,7a4)')'日','一','二','三','四','五','六'write(27, '(18x,7a4)')(tem(i),i=1,mday+ds)write(27,*)close(27)else if (q==4) then2002 print *,'input the year(2000-2099):'read *,yearif (year>2099.or.year<2000) print *,'you input wrong year,pleade input the year between 2000 and 2099.' if (year>2099.or.year<2000) goto 2002open(28,file='nianli.dat',status='unknown')do month=1,12call nyli(year,month,mday,ds,tem)write(28, "(26x,i2,'月',3x,i4,'年')")month,yearwrite(28, '(18x,7a4)')'日','一','二','三','四','五','六'write(28, '(18x,7a4)')(tem(i),i=1,mday+ds)write(28,*)end doclose(28)elseprint *,'you input the wrong number of q.' end ifend doend program firstquestionsubroutine shengxiao(year)implicit noneinteger::year,m,nm=year-1945if (m>=12.or.m<=-12) thenn=mod(m,12)elsen=mend ifopen(26,file='shengxiao.dat',status='unknown') if (n==0) thenprint *,'The shengxiao of this year is:鸡'write(26,*)'The shengxiao of this year is:鸡' else if(n==1.or.n==-11) thenprint *,'The shengxiao of this year is:狗'write(26,*)'The shengxiao of this year is:狗' else if(n==2.or.n==-10) thenprint *,'The shengxiao of this year is:猪'write(26,*)'The shengxiao of this year is:猪' else if(n==3.or.n==-9) thenprint *,'The shengxiao of this year is:鼠'write(26,*)'The shengxiao of this year is:鼠' else if(n==4.or.n==-8) thenprint *,'The shengxiao of this year is:牛'write(26,*)'The shengxiao of this year is:牛'else if(n==5.or.n==-7) thenprint *,'The shengxiao of this year is:虎'write(26,*)'The shengxiao of this year is:虎' else if(n==6.or.n==-6) thenprint *,'The shengxiao of this year is:兔'write(26,*)'The shengxiao of this year is:兔' else if(n==7.or.n==-5) thenprint *,'The shengxiao of this year is:尨'write(26,*)'The shengxiao of this year is:尨' else if(n==8.or.n==-4) thenprint *,'The shengxiao of this year is:蛇'write(26,*)'The shengxiao of this year is:蛇' else if(n==9.or.n==-3) thenprint *,'The shengxiao of this year is:马'write(26,*)'The shengxiao of this year is:马' else if(n==10.or.n==-2) thenprint *,'The shengxiao of this year is:羊'write(26,*)'The shengxiao of this year is:羊' else if(n==11.or.n==-1) thenprint *,'The shengxiao of this year is:猴'write(26,*)'The shengxiao of this year is:猴' end ifclose(26)end subroutine shengxiaosubroutine nyli(year,month,mday,ds,tem) implicit noneinteger::year,month,days,mday integer::i,m,ds,dts,qreal::scharacter(len=2),dimension(1:37)::temcall numday(year,month,1,days)call monday(year,month,mday)s=(year-1)*1.2425+daysds=int(s-int(s/7)*7)do i=1,37tem(ds+1)='1';tem(ds+11)='11';tem(ds+12)='12';tem(ds+2)='2';tem(ds+13)='13';tem(ds+14)='14';tem(ds+3)='3';tem(ds+15)='15';tem(ds+16)='16';tem(ds+4)='4';tem(ds+17)='17';tem(ds+18)='18';tem(ds+5)='5';tem(ds+19)='19';tem(ds+20)='20';tem(ds+6)='6';tem(ds+21)='21';tem(ds+22)='22';tem(ds+7)='7';tem(ds+23)='23';tem(ds+24)='24';tem(ds+8)='8';tem(ds+25)='25';tem(ds+26)='26';tem(ds+9)='9';tem(ds+27)='27';tem(ds+28)='28';tem(ds+10)='10';tem(ds+29)='29';tem(ds+30)='30';tem(ds+ 31)='31'; print "(26x,i2,'月',3x,i4,'年')",month,yearprint '(18x,7a4)','日','一','二','三','四','五','六'print '(18x,7a4)',(tem(i),i=1,mday+ds)print *end subroutine nylisubroutine numday(year,month,day,days)implicit noneinteger::year,month,day,days,nlogical::leapcall leapyear(year,leap)n=int(month/2)if (month<=8) thenif (mod(month,2)/=0) thendays=30*n+31*n+dayelsedays=30*(n-1)+31*n+dayend ifelseif (mod(month,2)/=0) thendays=30*(n-1)+31*(n+1)+dayelsedays=30*(n-1)+31*n+dayif(month>2) thenif (leap) thendays=days-1elsedays=days-2end ifend ifend subroutine numdaysubroutine monday(year,month,mday) implicit none integer::year,month,mday logical::leapcall leapyear(year,leap)select case (month)case (4,6,9,11)mday=30case (1,3,5,7,8,10,12)mday=31case (2)for_feb:select case (leap)case (.true.)mday=29case (.false.)mday=28end select for_febcase defaultend selectend subroutine monday subroutine leapyear(year,leap)implicit noneinteger::yearlogical::leapif (mod(year,4)/=0) thenleap=.false.else if (mod(year,100)/=0) thenleap=.true.else if (mod(year,400)/=0) thenleap=.true.elseleap=.false.end ifend subroutine leapyearsubroutine leapday(year,month,day,lday) implicit none integer::year,month,day,lday logical::leapcall leapyear(year,leap)select case (month)case (4,6,9,11)if (day>30.or.day<1) thenlday=0elselday=1end ifcase (1,3,5,7,8,10,12)if (day>31.or.day<1) thenlday=0elselday=1end ifcase (2)for_feb:select case (leap)case (.true.)if (day>29.or.day<1) thenlday=0elselday=1end ifcase (.false.)if (day>28.or.day<1) thenlday=0elselday=1end ifend select for_febcase defaultend selectend subroutine leapday素数是只能被1与其本身整除的数,下面给出一种寻找素数的方法:a生存一个数组,将其所有的元素初始化为1b 从数组下标为2的元素开始,每次寻找数值为1 的数组元素。
大学FORTRAN考试试题样题(1)
大学FORTRAN考试试题样题(1)《高级语言程序设计(FORTRAN)》考试样题一、选择题(每小题2分,共40分)1. 下列标识符中不能作为FORTRAN的合法变量名的是_____D_____。
A) A_1 B) A1 C) A1A D) A+12. 在FORTRAN的变量类型说明语句中没有 BA) REAL语句B)CHAR语句C)INTEGER语句 D)LOGICAL语句3.FORTRAN90 源程序的扩展名是 C 。
A. TXTB. FC. F90D. FOR4.下列关于符号常量的说法正确的是___C____。
A.符号常量的定义应该放在所有语句之前B.符号常量不可以是字符型常量C.在一个程序单位中定义一个符号常量后,不能再改变它的值D.符号常量定义语句与赋值语句一样,是可执行语句5、在下列写法中,__D______不是FORTRAN常量。
A. .TRUE.B.1E-2C. (0.0,2.4)D.1,000,0006.表达式15/4/2.0的值是 B 。
A.整数2 B.实数1.5 C.实数2.25 D.实数1. 37. 下列不是FORTRAN赋值语句的是 _____D______。
A) X=.TRUE. B) X=X*X C) X=X**2**2 D) X=X++8. 梯形的上底为A,下底为B,高为H,计算其面积的FORTRAN表达式中错误的是____A____。
A)1/2*(AB)*H B)(A+B)*H/2 C)(A+B)/2*H D)0.5*(A+B)*H9. 要选拔身高T>1.7米且体重W<62.5公斤的人,FORTRAN的逻辑表达式是__C_____。
A)T.ce.1.7.AND.w.le.62.5 B)T.le.1.7.OR.w.ge.62.5C)T.gt.1.7. AND.w.lt.62.5D)T.gt.1.7.OR.w.lt.62.510.FORTRAN 90规定,变量类型声明的优先顺序是 C 。
fortran模拟试题
软件技术基础(FORTRAN)笔试模拟试题(带答案)一.概念选择题(单选题,将正确的答案填入括号内。
每题1分,共15分)1. 已知整型变量L=5,M=13,N=4,表达式L*M/N 、L/N*M 和M/N*L 的值分别是(A )。
A )16 13 15B )16.25 16.25 16.25C )16.0 13.0 15.0D )16 16 162.将数学式)||(ln 215-+e x 改写为FORTRAN 表达式,正确的是( D )。
A) 1/2*(LOG(ABS(X))+E**(-5))B) 1.0/2*(LN(ABS(X))+E**-5)C) 1/2.0*(LN(ABS(X))+E -5)D) 1.0/2*(LOG(ABS(X))+EXP(-5))3. 设A=.TRUE., B=.FALSE., C=.FALSE., 逻辑表达式(A.OR.B).AND.C 与A.OR..NOT.B 的值是( B )。
A) .T. 与 .F. B).F. 与 .T. C) .T. 与 .T. D) .F. 与 .F.4. 数组REAL A (0:5,-1:5)的元素个数是 ( D )。
A )25B )30C )36D )425. 下列数组说明符中错误的是( A )。
A )K(3:2,1:2)B ) K(-1:1,2)C )K(-2:2,-1:1)D )K(2:2,5)6. 关于USE 语句的正确说法是( C )。
A)USE 语句是可执行语句 B)用USE 语句可以代替INCLUDE 语句C)USE 语句必须放在程序单元体的开头 D)USE 语句的位置任意7. 语句OPEN (9,FILE=‘DATA.TXT ’)打开的是 ( B ) 文件。
A )无格式顺序B )有格式顺序C )无格式直接D )有格式直接8. 阅读下列FORTRAN 程序, 程序运行时执行循环体的次数是( A )。
X=0DO L=10, 5, 1X=X+1.0ENDDOENDA) 0 B) 1 C) 6 D) 无穷9.结构化程序设计中有三种基本结构,下列不属于三种基本设计结构的是( D )。
1998~2002年计算机考试二级FORTRAN(含答案)
1998~2002年计算机二级考试FORTRAN部分1998年4月二级笔试试题FORTRAN部分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,则输出的结果为()。
READ(8 ,100) SWRITE( 8,100)S100 FORMAT(2F4.1)ENDA.345.6B.45.6C.456.D.* * *23、下列程序执行后输出( )DIMENSION M(5)READ(*,*)(M(I),I=1,5)DO 10 I=1,510 WRITE(*,22)(M(J),J=1,I)22 FORMAT(1X,3I3)ENDA、7B、8C、9D、524、FORTRAN 77规定,变量类型的优先顺序是()。
A、隐含约定(I-N规则)、Implicit说明、类型说明B、类型说明、隐含约定(I-N规则)、Implicit说明C、类型说明、Implicit说明、隐含约定(I-N规则)D、Implicit说明、类型说明、隐含约定(I-N规则)25、设T=.TRUE.F=.FALSE.下列表达式中值为.TRUE.的是( )。
A、.T.AND.F.AND.7.GE.4B、T.AND..NOT.T.AND.TC、((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的值是()。
DO 10 I=1,5SUM=0DO 10 J=I,4,-110 SUM=SUM+I+JA、0.0B、19.0C.27.0D.76.027、下列语句中,正确的语句函数定义语句是()。
大学FORTRAN考试试题1[1]
大学FORTRAN考试试题1[1]1.下列叙述中,正确的是(D )A.语句标号的大小影响程度执行的顺序B.程序完全按语句出现的先后顺序执行C.不同程序单位不能有相同的语句标号D.同一程序单位不能有相同的语句标号2.下列标识符中,不能作为合法的FORTRAN90标识符的是( C) A.A3_B3 B.VOID C._123 D.IF3.下列哪一个为正确的常量( D )A.123,000 B. 3.5E+2.5 C. TRUE D. “HELLO”4.若A=2,B=2,I=3,则表达式A**B**I的值为( C )A. 64B.12C.256 D16.5.圆的直径存放在整型变量D之中,下列计算圆面积的表达式中正确的是( D )A. 3.14159*(D/2)*(D/2)B. 3.14159*(D*D/4)C. 3.14159*(D/2)**2D. 3.14159*D*D/46.下列运算符中,运算优先级最高的是(B )A. 关系运算B. 算术运算C. 逻辑非运算D. 逻辑与运算7.下列FORTRAN的表达式中值为0.5的是( C)A.MOD(4.8,0.5) B.100/20/10 C.50.0/4/25 D.MOD (15,10)/108.下列是完整的FORTRAN程序,编译时出错的语句是( C )A.PROGRAM PRINT B.PARAMETER (PI=3.1415926)C.PI=PI+1 D.WRITE(*,*)SIN(PI+0.5)END9.变量的类型定义中,优先级由高到低的顺序为( A )A.类型说明语句、IMPLICIT 说明语句、隐含约定B.隐含约定、IMPLICIT 说明语句、类型说明语句C.IMPLICIT 说明语句、类型说明语句、隐含约定D.隐含约定、类型说明语句、IMPLICIT 说明语句10.“两整数M与N不能同时小于零”的FORTRAN表达式( D ) A.M>=0.AND.N>=0B.(M.GE.0.AND.N.LT.0).OR.(M.LT.0.AND.N.GE.0)C.(M.LE.0.AND.N.LE.0).OR.(M.LE.0.AND.N.GE.0)D.M.GE.0.OR.N.GE.011.下列逻辑表达式描述的是(不会) X.GT.3.AND.X.LT.10.AND.MOD(X,3).NE.0.OR.X.EQ.2.OR.X.EQ.3 A.10以内的素数B.10以内的合数C.10以内的奇数D.10以内的偶数12.下面正确的逻辑IF语句是(C )A.IF(X.EQ.Y)THEN GOTO 10 B.IF M.LT.N PRINT*,M C.IF(ABS(X).LT.1E-6) A=1 D.IF(A.AND.(A.LE.0.0) A=313.下列语句中正确的是( C )A.DATA A,B,C/3*(-10.0)/ B.READ(*,*)(N,A(K),K=1,N)C.WRITE(*,*)(10,A(K),K=1,10) D.READ(*,*)N,N+114. 如果J是整型变量,则循环语句:DO J=5.5,-1.5,-2.5 所执行的循环次数是(C)A.4 B.3 C.2 D.115.如有语言:INTEGER B (-1:-2,3:7),则数组B 中所含的元素个数为( 无答案) A.0 B.10 C.12 D.2116. 关于FORTRAN90 的CASE结构,SELECT CASE(表达式)中的表达式的数据类型不允许为( A)A. 实型B. 字符型C. 实型D. 逻辑性17.下面符号在FORTRAN90 中表示续行符的是( B)A.! B. & C. # D. %18. 下列程序段中,错误的语句是( D)A.PARAMETER(N=10)B. INTEGER:: M=20C.M=M+ND.PRINT(*, *)M, N19.A. FUNCTIONB. SUBROUTINEC. BLOCK DA TAD. SUB20.下列语句中,错误的语句是( D)。
大学FORTRAN语言试题
大学FORTRAN语言试题一、选择题(15×1分=15分)1.Fortran程序设计语言允许使用的专用字符集是。
A.(),.;[]+-*/=:空格B.(),.αβ+-*/=:空格C.(),.+-*/$'=:空格D.{},.;?+-*/=:空格2.按隐含规则确定变量的数据类型,Fortran表达式(A112/BC1+15.123456789.0_8)-(1000.0_4/3.0+ABI*ABJ)的值的数据类型为。
A.复型B.整型C.实型(种别为8)D.实型(种别为4)3.执行循环语句DO I=0.5,4.5,1.5,正常退出循环后,循环执行的次数和循环变量I的值分别为。
A.4和4.5 B.5和5 C.4和6 D.5和64.语句A(M(I))=MOD(I,7)是。
A.函数定义语句B.赋值语句C.非法语句D.说明语句5.下列不合法的是:_____A.A<B<C<D B..NOT.(X<0) C.A>B.EQV.C>D D.A.AND.B.AND.C6.若数组说明符ARRAY(-5:5,-10:0)的元素个数为。
A.144 B.121 C.110 D.1007.设循环初值、终值和增量分别为M1,M2和M3,循环次数的计算公式是。
A.INT((M2-M1)/M3)B.INT((M2-M1)/M3)+1C.MAX(INT(M2-M1+M3)/M3,0) D.MIN(INT(M2-M1+M3)/M3,0)8.下列字符表达式中正确的是。
A.’ABCD’+’MN’’D’B.’ABCD’//’MN’’D’C.CHAR(65)+’N’//’CH’D.’123 45’-’5’9.语句integer,dimension(1:-1)::a,下列说法中正确的是:_____A.a数组的元素个数为0 B.a数组的元素个数为3C.a数组的元素个数为1 D.该说明语句是错误的10.子程序的虚元可以是:A.变量名、数组名、过程名B.变量名、数组名、过程名和符号常量名C.变量名、数组名、数组片段、过程名D.任意符号名11.c为复型量,下列正确的是:A.c=(1/2,1/5) B.c=sqrt((0.1,4.5)) C.c=1.0+4i D.c=(x,y)12.数学式的FORTRAN表达式是()A.2/3*SIN(3.14/4)B.2SIN(3.14/4)/3C.2.0*SIN( /4.0)/3.0 D.2*SIN(3.14/4)/313.执行下列赋值语句后,变量X的值为()X=4+36**(7/14)A.10.0 B.5.0 C.10 D.514.下列不合法的是:A.A<B<C<D B..NOT.(X<0) C.A>B.EQV.C>D D.A.AND.B.AND.C15.执行下列程序时由键盘输入13579.2468,输出结果为:READ’(2(F4.1,2X))’,A,BPRINT’(2(F4.1,2X))’,A,BA.135.7 246.8 B.13.5 24.6 C.**** **** D.*** ****二、填空题(15×1分=15分)1.FORTRAN90自由格式的程序续行标记为______字符,一般写在_____位置;自由格式的程序注释标记为____字符。
计算机技术基础Fortran试题库
一、选择题1、下列关于"SUBROUTINE MAP(X,Y)"语句行的叙述中,不正确的是( )A) 这是子程序的第一个语句B) 字符串"MAP"是子程序名C) 变量X是子程序的形参D) 子程序执行后,MAP将返回整型数据2、FORTRAN表达式"2/4+0.5"的值是( )A) 0.5 B)1 C)1.0 D) 03、阅读下列FORTRAN程序:PI=3.14159265WRITE(*,'(F7.4) ')PIEND程序运行后输出结果是( )A) 3.142 B) 3.1415 C) 0.31416 D) 3.14164、圆的直径存放在整型变量K之中,下列计算圆面积的表达式中正确的是( )A) 3.1415926*K*K/4 B) 3.1415926*(K*K/4)C) 3.1415926*(K/2)**2 D) 3.1415926*(K/2)*(K/2)5、要判断"月收入M在2000元以上(含2000元)且5000元以下)不含5000元)"的职工,应该使用的逻辑表达式是( )A) M .GE. 2000 .AND. M .LE. 5000 B) M .GE. 2000 .OR. M .LE. 5000C) M .GE. 2000 .AND. M .LT. 5000 D) M .GE. 2000 .OR. M .LT. 50006、设FORTRAN子程序如下:SUBROUTINE SUB(I,X)B=I+1X=X+BEND若主程序中的变量M,B已按I-N规则赋值,则调用上述子程序的语句中正确的是( )A) CALL SUB(M,M) B) CALL SUB(M+4,B)C) CALL SUB(B,B) D) CALL SUB(M,B+4)7、下列不是FORTRAN常量的是( )A) (3.0,4.0) B) 3.1416D+00C) 2/3 D) 'Very good!'8、阅读下列FORTRAN程序:F=1.0DO 20 K=3, 7, 3DO 20 L=K-1, K20 WRTTE(*,'(I3, F8.1)'K, F*KEND 程序运行结果的最后一行是( )A) 3 6.0B) 6 6.0 C) 6 180.0 D) 7 180.09、在FORTRAN中,下列运算符的优先顺序是( )A) 逻辑运算,关系运算,算术运算B) 关系运算,逻辑运算,算术运算C) 算术运算,关系运算,逻辑运算D) 关系运算,算术运算,逻辑运算10、使用FORTRAN部函数时,所给的自变量( )A) 只能是常量B) 只能是变量C) 只能是常量或者变量D) 可以是常量、变量或者表达式11、设X=2.0, Y=8.0, Z=6.0, L=.TRUE.,则下列FORTRAN表达式中值为.TRUE.的是( )A) X+Z.GT.Y.AND.L B) .NOT.(Y.LT.Z+X).NEQV..NOT.LC) .NOT.L.OR.(L.EQV.Y+X.EQ.Z) D) Y+X.GE.Z+X.AND.(L.AND..FALSE.)12、下列输出语句行中正确的是( )A) WRITE(*,*)(A(K,L),K=1,3,L=1,3)B) WRITE(*,*)A(K,L),K=1,3,L=1,3C) WRITE(*,*)((A(K,L),K=1,3),L=1,3)D) WRITE(*,*)(A(K,L),K=1,3),L=1,313、给定下列FORTRAN子程序如下:SUBROUTINE SUB(K,A)A=SQRT(K*K+1.0)END下列调用语句中正确的是( )A) CALL SUB(N,N) B) CALL SUB(X,X)C) CALL SUB(N,X*X) D) CALL SUB(11,X)14、阅读下列FORTRAN程序:INTEGER AA(2,3)DATA AA/1,2,3,4,5,6/CALL S2D19(AA)CALL S2D19(AA(1,2))ENDSUBROUTINE S2D19(BB)INTEGER BB(2,2)WRITE(*,'(1X,2I3)') BB(1,1),BB(2,2)END程序运行结果是( )A) 1 4 B) 15 C) 1 4 D) 1 23 6 2 6 2 5 3 415、阅读下列FORTRAN程序:INTEGER A(3,3)DO 10 K=1,3DO 10 L=1,310 A(K,L)=K*10+LWRITE(*,'(1X,3I3)')AEND程序运行结果是: ( )A) 11 21 31 B) 11 12 13 C) 31 32 33 D) 33 32 3112 22 32 21 22 23 21 22 23 32 22 2113 23 33 31 32 33 11 12 13 31 21 1116、阅读下列FORTRAN程序:WRITE(*,10)'YEAR:', 199610 FORMAT(/3X,A,I4)END程序运行结果是(^代表空格,下同) ( )A) ^^^^^YEAR:1996 B) ^^YEAR:1996C) 空白行D) 空白行^^^^^YEAR:1996 ^^YEAR:199617、某函数子程序中使用了IMPLICIT、READ、PLEX和FUNCTION四种语句,其中属于可执行语句的是: ( )A)FUNCTION B) READ C) PLEX D) IMPLICIT18、阅读下列FORTRAN程序:DIMENSION M(4,4)DATA M/1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6/DO 10 I=1,4WRITE (*,100)(M(I,J),J=1,I)10 CONTINUE100 FORMAT(1X,4I2)END 程序运行的结果是( )A) 1 2 3 4 B) 1 5 9 3 C) 1D) 16 7 8 6 0 4 2 6 2 6 61 2 1 5 3 7 1 9 3 7 116 6 4 8 2 6 3 4 4 8 2 6619、阅读下列FORTRAN程序:CHARACTER*10 A, B*6DO 10 I=1,10A(I:I)=' '10 COUNTINUEA(1:5)='ABCDE'B='FGHIJK'A(4:9)=BWRITE(*,100) A100 FORMAT(1X,A)END 程序运行结果是:( )A) ABCDEFGHIJ B) ABCDEGHIJK C) ABCFGHIJK D) BCDEFGHIJK20、阅读下列FORTRAN程序:INTRINSIC SIN,COSWRITE(*,*)FUN(SIN,30.0)/FUN(COS,30.0)ENDFUNCTION FUN(F,X)X=X*3.14159/180FUN=F(X)END 程序运行结果是( )A) sin30°的值B) cos30°的值C) tg30°的值D) ctg30°的值二、填空题1、下列FORTRAN子程序的功能是用以下公式计算一组数据Z1,Z2,…,Zn的标准差σ:σ2=(Z12 +Z22+…+Zn2)/n-[(Z1+Z2+…+Zn)/n]2请在程序中的下划线处填入合适的容。
免费在线作业答案兰州大学《Fortran语言》15秋在线作业3满分答案
免费在线作业答案兰州大学《Fortran语言》15秋在线作业3满分答案兰州大学《Fortran语言》15秋在线作业3满分答案兰州大学《Fortran语言》15秋在线作业3满分答案一、单选题(共 14 道试题,共 70 分。
)1. 用8位无符号二进制数能表示的最大十进制数为A. 127B. 128C. 255D. 256正确答案:C2. 阅读下列FORTRAN77程序: P=0.0 DO 20 N=2,6,2 P=P+1/N 20 CONTINUE WRITE(*,*) P END 运行上述程序后,输出的P值为A. 0.0大众理财作业满分答案B. 0.5C. 0.75D. 0.91正确答案:A3. 一次成功的fortran77源程序编译操作,不能A. 同时编译一个主程序和一个子程序B. 同时编译几个子程序C. 同时编译一个主程序和几个子程序D. 同时编译几个主程序正确答案:D4. 一片存储容量是1.44MB的软磁盘,可以存储大约140万个A. ASCII字符B. 中文字符C. 磁盘文件D. 子目录>正确答案:A5. 阅读下列FORTRAN77程序: DO 10 M=1,5,2 DO 10 N =2,6,3 10 K=M+N WRITE(*,*) K END 上述程序执行后,输出的结果是A. 10B. 11C. 12D. 39正确答案:A6. 阅读下列FORTRAN77程序: K=1 J=2 CALL SUBS(K,J,L,3) WRITE(*,50) K,J,L 50 FORMAT(1X,3I1) END SUBROUTINE SUBS(M,N,K,L) N=N +2 M=M+1 J=1 K=J +L END 运行上述程序后,输出的结果为A. 254B. 412C. 244D. 4247. 在64位高档微机中,一个字长所占的二进制位数为A. 8B. 16C. 32D. 64正确答案:D8. 下列FORTRAN77语句中,错误的是A. READ(*,*)(A(K),K=1,10)B. READ(*,*)(N,A(K),K=1,N)C. WRITE(*,*)(A(K),K=1,0)D. WRITE(*,*)(N,A(K),K=1,N)正确答案:B9. 若实型函数子程序FUN1没有形式参数,则正确形式是___A. REALFUNCTIONFUN1B. FUNCTIONFUN1C. FUNFUN1()D. FUNCTIONFUN1()正确答案:D10. 等价语句的主要用途是___ FUNCTION语句的A. 节省内存空间B. 便于进行数据传递C. 使多个变量具有同一值D. 节省运算时间正确答案:A11. 阅读下列FORTRAN77程序:READ(*,100) K WRITE(*,100) K 100 FORMAT(I4) END 运行上述程序时,如果从键盘输入6271234<回车> 则最后输出的结果为A. 6271B. 271C. 627D. ****正确答案:B12. 在fortran77的变量类型说明语句中没有A. real语句B. char语句C. integer语句D. logical语句正确答案:B13. 下列关于FORTRAN77源程序编辑规则的叙述之中,正确的是A. 编辑时一行都必须从第7列开始B. 主程序第一行必须是PROGRAM语句C. 每个FORMAT语句必须具有标号D. 每个子程序中必须有一个RETURN语句14. 阅读下列FORTRAN77程序:DO 20 M=2,5,2 P=1.0 DO 10 K=M,5 10 P=P+K 20 CONTINUE WRITE(*,*) P END 运行上述程序后,输出的P值为A. 11.0B. 10.0C. 9.0D. 24.0正确答案:B《Fortran语言》15秋在线作业3二、判断题(共 6 道试题,共 30 分。
FORTRAN笔试
一、判断题(共20分,每题1分,√表示对,×表示错)1.FORTRAN源程序的一条语句无法在一行内写下时,在行末用续行标志“!”,表示下一行是当前行的继续。
2.语句X=X+1的含义是将内存中名为X+1的存储单元的值赋给变量X。
3.如果程序单元中有说明语句PARAMETER(A=2.1),则不允许在该程序单元中改变A的值。
4.主程序和子程序可以储存到不同的文件中。
5.即使编译和连接都正确无误,FORTRAN程序运行时仍可能出错。
6.在数据块子程序中,可以调用另一个数据块子程序。
7.设有如下输入语句READ '(1X, F5.2)' , X若由键盘输入:12.3456789,则变量Y的值为12.34。
8.如果有以下程序段CHARACTER::A=’FORTRAN’则A内存储的实际值是’F’。
9.M=2000,为了在屏幕上输出□□***2000*** (其中□表示空格)。
则应使用的语句为:WRITE(*,100)M100 FORMAT(2X,’***’,I4,’***’)10.模块可用USE引用,也可用CALL调用。
11.语句函数定义语句在程序内的位置是:在程序块开头语句之后,END语句之前。
12.若有以下程序段:INTEGER,POINTER ::P1, P2INTEGER,TARGET::I=20, J=30P1=>I; P2=>J; P1=>P2; P2=>P1运行程序,I、J的值都为20。
13.COMMON语句的功能是给不同程序模块中的若干变量分配同一存储单元。
14.设C是复型变量,A、B是实型变量。
把A 的值赋给C的实部,把B的值赋给C的虚部的赋值语句是C=CMPLX(A,B)。
15.顺序存储结构的存储一定是连续的,链式存储结构的存储空间不一定是连续的。
16.A2B的FORTRAN表达式为A**2*B。
17.程序中说明了变量a具有POINTER属性,若a=>b,则b应具有PARAMETER属性。
noip2007 初赛普及组C++试题 及答案
第十三届全国青少年信息学奥林匹克联赛初赛试题NOIP2007 初赛试题(普及组C++ 二小时完成)一、单项选择题(共20 题,每题 1.5 分,共计30 分。
每题有且仅有一个正确答案)。
1. 在以下各项中,()不是CPU 的组成部分。
A. 控制器B.运算器C.寄存器D.主板2.在关系数据库中,存放在数据库中的数据的逻辑结构以()为主。
A. 二叉树B.多叉树C.哈希表D.二维表3.在下列各项中,只有()不是计算机存储容量的常用单位。
A. ByteB. KBC.UBD.TB4.ASCII 码的含义是()。
A. 二─十进制转换码B.美国信息交换标准代码C. 数字的二进制编码D.计算机可处理字符的唯一编码5.一个完整的计算机系统应包括()。
A.系统硬件和系统软件B.硬件系统和软件系统C. 主机和外部设备D.主机、键盘、显示器和辅助存储器6. IT 的含义是()。
A. 通信技术B.信息技术C.网络技术D.信息学7.LAN 的含义是()。
A. 因特网B.局域网C.广域网D.城域网8. 冗余数据是指可以由其他数据导出的数据,例如,数据库中已存放了学生的数学、语文和英语的三科成绩,如果还存放三科成绩的总分,则总分就可以看作冗余数据。
冗余数据往往会造成数据的不一致,例如,上面 4 个数据如果都是输入的,由于操作错误使总分不等于三科成绩之和,就会产生矛盾。
下面关于冗余数据的说法中,正确的是()。
A. 应该在数据库中消除一切冗余数据B. 用高级语言编写的数据处理系统,通常比用关系数据库编写的系统更容易消除冗余数据C. 为了提高查询效率,在数据库中可以适当保留一些冗余数据,但更新时要做相容性检验D. 做相容性检验会降低效率,可以不理睬数据库中的冗余数据9.在下列各软件中,不属于NOIP 竞赛(复赛)推荐使用的语言环境有()。
A. gccB. g++C. Turbo CD. free pascal10. 以下断电之后仍能保存数据的有()。
FORTRAN程序设计测试试题(级补考)
FORTRAN程序设计试题(级补考)————————————————————————————————作者:————————————————————————————————日期:232010级程序设计基础(Visual FORTRAN )试卷(B 卷)答题说明:(1)请按要求将答案书写在答题纸指定的位置上;(2)密封线内学号栏填写完整的8位学号;答题纸中上方填写在教学班中的序号。
装订线班级:姓名:密封兰州交通大学试卷(主卷)考题书写要求:上下不 [C] 有些FORTRAN 语句在程序执行时不产生任何机器操作。
[D] 在FORTRAN 中“=”表示相等的意思,如A=B 表示变量A 与B 的值相等。
10.阅读下列FORTRAN 程序:pi=3.14159265write(*,'(f7.4) ') pi end程序运行后输出结果是 [A] 3.142[B] 3.1415 [C] 0.31416[D] 3.141611.下列输入输出语句中错误的是 。
[A] print*, ´x=´, x, ´x*y**2=´, x*y**2 [B] write ( * , * ) a, b, no, ´y=´, y [C] read*, n, m, 5.0k[D] write ( *,22 ) a, b, i, k, c 22 format ( 4x, 2f5.0, 2i5 )12.要判断"月收入m 在2000元以上(含2000元)且5000元以下)不含5000元)"的职工,应该使用的逻辑表达式是[A] m .ge. 2000 .and. m .<=. 5000 [B] m .ge. 2000 .or. m .le. 5000 [C] m .>= 2000 .and. m .lt. 5000 [D] m >=.2011 年 9 月 日一、选择题(在每小题给出的4个选项中只有一项是正确的,将正确选项的字母序号填在答题纸表格的对应空位中。
注册环保工程师之注册环保工程师公共基础试卷包括详细解答
注册环保工程师之注册环保工程师公共基础试卷包括详细解答单选题(共20题)1. 离散型随机变量X的分布为P(X=k)=Cλk(k=0,1,2,…),则不成立的是:A.AB.BC.CD.D【答案】 D2. 下列各组元素中,其性质的相似是由镧系收缩引起的是:A.AB.BC.CD.D【答案】 A3. 三相电源电压虽然对称,若负载()而又无中性线时,将造成有的相电压远高于负载的额定电压,而有的相电压远低于负载的额定电压,使负载不能正常工作,这是不允许的,必须要接中性线,而且中性线不能接入熔断器或刀开关。
A.对称B.不对称C.为感性D.为容性【答案】 B4. 已知顺序数据文件FILE3. DAT有如下数据:A.N=7B.N=8C.N=4D.N=9【答案】 B5. 已知下列反应的平衡常数:A.AB.BC.CD.D【答案】 A6. 某放热反应的正反应活化能是10kJ/mol,则逆反应的活化能是()。
A.等于10KJ/molB.大于10kJ/molC.小于10kJ/molD.无法确定【答案】 B7. 方程y"=e2x-cosx的通解为( )。
A.AB.BC.CD.D【答案】 D8. 根据《中华人民共和国招标投标法》的规定,下列包括在招标公告中的是:A.招标项目的性质、数量B.招标项目的技术要求C.对投标人员资格的审查标准D.拟签订合同的主要条款【答案】 A9. 阅读下列FORTRAN77程序:A.150B.120C.180D.240【答案】 A10. 刚性双原子分子理想气体,当度为其内能为:A.AB.BC.CD.D【答案】 C11. 则下列结论中正确的是A.AB.BC.CD.D【答案】 C12. 阅读以下FORTRAN程序:A.8B.3C.7D.6【答案】 D13. 化二次积分A.AB.BC.CD.D【答案】 D14. 设A是3阶实对称矩阵,P是3阶可逆矩阵,B=P-1AP,已知a是A的属于特征值λ的特征向量,则B的属于特征值λ的特征向量是:A.PaB.P-1C.PTaD.(P-1)Ta【答案】 B15. 下列化合物中,酸性最强的是( )。
兰大《Fortran语言》15春在线作业3 答案
7.使用CONMON语句的主要目的是___
A.简化程序设计
B.提高运算速度
C.增强程序的通用性
D.加快批量数据的传递速度
正确答案:D
8.阅读下列FORTRAN77程序:K=1 J=2 CALL SUBS(K,J,L,3) WRITE(*,50) K,J,L 50 FORMAT(1X,3I1) END SUBROUTINE SUBS(M,N,K,L) N=N+2 M=M+1 J=1 K=J+L END运行上述程序后,输出的结果为
A. .102E+02
B. .103E+02
C. .162E+02
D. .163E+02
正确答案:B
11.设Z是复型变量,X和Y为实型变量,下列赋值语句中不合法的是___
A. Z=X+Y
B. Z=(X,Y)
C. Z=(X+Y,X-Y)
D. Z=(X,Y)
正确答案:C
12.阅读下列FORTRAN77程序:SUBROUTINE ABC(X,Y,Z) Y=Y-1.0 Z=Z+X END Y=2.5 CALL ABC(6.5,Y,Y) WRITE(*,*) Y END运行上述程序后,输出的Y值为
A. 1.5
B. 8.0
C. 9.0
D. 10.5
正确答案:B
13.设有整型矩阵B=为给矩阵B赋初值,下列DATA语句中正确的是
A. DATAB/4*(3,4)/
B. DATAB/4*3,4*4/
C. DATA((B(I,J),J=1,4),I=1,2)/4*3,4*4/
D. DATA((B(I,J),I=1,2),J=1,4)/4*3,4*4/
FORTRAN试卷汇总
FORTRAN 机试试卷班级: 姓名: 学号: 机器号 得分:考生请注意:考试时间为60分钟,请将结果和程序写在试卷对应的位置上,只写结果....不给分,结果对而程序错误的倒扣分................。
1、 有一函数:y=⎩⎨⎧≥+<01cos 0ln sin 2x x x x x 从键盘输入x,输出y 的值。
当X=-6时,y= ;当x=6时,y= 。
2、求2000~5000中第五大的素数。
第五大的素数为: 。
3、已知函数)1sin()ln(+=x e x y x ,用随机函数10*ran(iseed )+1生成10个自变量x ,从键盘读入iseed ,当读入5时,求x 和y 的平均值。
x 的平均值为: ;y 的平均值为: 。
FORTRAN 机试试卷班级: 姓名: 学号: 机器号 得分:考生请注意:考试时间为60分钟,请将结果和程序写在试卷对应的位置上,只写结果....不给分,结果对而程序错误的倒扣分................。
1、 有一函数:y=⎪⎩⎪⎨⎧≥-<≤<)10(113)101(2)1(cos x x x xx x当x=-0.5时,y= ;当x=0.5时,y= 。
2、随机生成500个1~1000的整数,输出最大和最小的数所在的位置。
其中随机数的生成函数为ran(iseed)从键盘读入iseed 。
当读入8时:最大的数在第 个;最小的数在第 个;3、已知函数y=e x cos(x+1),用随机函数100*ran( iseed)+1生成10个自变量x ,求y 的最大值为: ;对应的x 的值为: 。
FORTRAN 机试试卷班级: 姓名: 学号: 机器号 得分: 考生请注意:考试时间为60分钟,请将结果和程序写在试卷对应的位置上,只写结果不给......分,结果对而程序错误的倒扣分..............。
1、有一函数:y=⎪⎪⎩⎪⎪⎨⎧≥+<≤<)10(1)101(2)1(cos 22x xx x x x e 当x=-10时,y= ;当x=15时,y= ;2、 3)2sin(cos )(++=t t t f ,求⎰=π5.10)(dx x f I (矩形法,区间等分成1000分)。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
贵州大学2006-2007学年第一学期考试试卷 B高级语言程序设计注意事项:1. 请考生按要求在试卷装订线内填写姓名、学号和年级专业。
2. 请仔细阅读各种题目的回答要求,在规定的位置填写答案。
3. 不要在试卷上乱写乱画,不要在装订线内填写无关的内容。
4. 满分100分,考试时间为120分钟。
一、选择题(共50分,每小题2分,各题中A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确的编号填在括号内)1. 使用超大规模集成电路制造的计算机应该归属于()A) 第一代B) 第二代C) 第三代D) 第四代2. 下列FORTRAN77运算符中,优先级最低的是()A)逻辑运算符.AND. B)算术运算符*C)关系运算符.GE. D)算术运算符+3.下列标识符中,不属于FORTRAN77常量的是()A).TRUE. B)FALSE C)ˊROOT=ˊ D)ˊ123.0ˊ4.下列叙述中错误的是()A)PROGRAM语句可以是FORTRAN77主程序的第一个语句B)每一个FORTRAN77程序块的最后一个语句必须是END语句C)FORTRAN77的所有语句都是可执行语句D)FORTRAN77的任何可执行语句都可以有标号5.下列FORTRAN77表达式中,值为.FALSE.的是()A).NOT.(.FALSE. .AND. .NOT. .TRUE.)B).NOT. .FALSE. .OR. .NOT. .TRUE.C).NOT. .TRUE. .AND. .NOT. .FALSE.D)X .GT. Y .OR. X .LE. Y6. 在计算机内部,一切信息存取、处理和传送的形式是()A) ASCII码B) BCD码C) 二进制D) 十六进制7.下列标识符中不能作为FORTRAN77的合法变量名的是()A)A_1 B) A1 C) A1A D) A+18.下列不是FORTRAN77赋值语句的是()A)X=.TURE. B) X=X*X C) X=X++ D) X=X**2**29.字符运算符‘AB’//‘CD’产生的新字符串的值为(□为空格)()A)‘ABCD’B) ‘AB//CD’C) ‘AB□CD’D) ‘AB□□CD’10.阅读下列FORTRAN77程序:READ(*,*) NX=1.0IF (N.GE.0) X=2*X-2.0IF (N.GE.5) X=2*XIF (N.GT.15) X=3*X-1.0WRITE(*,*) XEND运行上述程序时,如果从键盘输入15<回车>则最后输出的X值为()A)5.0 B)2.0 C)-1.0 D)0.011.阅读下列FORTRAN77程序:DO 20 M=2,5,2P=1.0DO 10 K=M,510 P=P+K20 CONTINUEWRITE(*,*) PEND运行上述程序后,输出的P值为()A)11.0 B)10.0 C)9.0 D)24.012. 阅读下列FORTRAN77程序:READ(*,100) X,Y,Z,SWRITE(*,*) S100 FORMA T(F2.1,3(1X,F3.1))END运行上述程序时,如果从键盘输入9876543210987654321<回车>则最后输出的S值为()A)9.8 B)98.7 C)8.7 D)87.613.阅读下列FORTRAN77程序:READ(*,*)AB=0.0IF (A.GE.1.0) THENB=B+2.0END IFIF (A.GE.2.0) B=B-1.0WRITE(*,*) BEND在执行时,从键盘输入5.0<回车>则输出的B值为()A)2.0 B)-1.0 C)0.0 D)1.014. 阅读下列FORTRAN77程序:P=0.0DO 20 N=2,6,2P=P+1/N20 CONTINUEWRITE(*,*) PEND运行上述程序后,输出的P值为()A)0.0 B)0.5 C)0.75 D)0.9115. 阅读下列FORTRAN77程序:READ(*,*) MN=1K=N10 IF (K.LT.M) THENN=N*KK=K+1GOTO 10END IFWRITE(*,*) NEND在执行上述程序时,如果从键盘输入6<回车>则执行后输出的N值为()A)720 B)120 C)96 D)2416.将二进制数10000001转换为十进制数应该是()A) 127 B) 129 C) 126 D) 12817. 在FORTRAN77源程序中不能用作续行标志的字符是()A) 0 B) X C) + D) $18. 要选拔身高T>1.7米且体重W<62.5公斤的人,FORTRAN的逻辑表达式是()A) T.CE.1.7.AND.W.LE.62.5 B) T.LE.1.7.OR.W.GE.62.5C) T.GT.1.7.AND.W.LT.62.5 D) T.GT.1.7.OR.W.LT.62.519. 在FORTRAN77的变量类型说明语句中没有()A) REAl语句B) CHAR语句C) INTEGER语句D) LOGICAL语句20. 一次成功的FORTRAN77源程序编译操作,不能()A) 同时编译一个主程序和一个子程序B) 同时编译几个子程序C) 同时编译一个主程序和几个子程序D) 同时编译几个主程序21. 阅读下列程序LOGICAL LREAD(*,*)A,BL=A.GT.BIF(L)THENX=B+2*AELSEX=BEND IFWRITE(*,*)XEND使用键盘为上述程序输入两个初值4和3,其输出的X值是()A) 4.0 B) 3.0 C) 11.0 D) 10.022. 阅读下列程序READ(*,*)KWRITE(*,100)K100 FORMA T(I5)END程序运行时输入初始值12345,那么显示结果是()A) 12345 B) 2345 C) **** D) *****23. 阅读下列程序LOGICAL L1,L2,L3,L4,L5DA TA L1,L2,L3/3*.TRUE./L4=.NOT.L1.AND..NOT.L2.AND.L3L5=.NOT.L1.OR..NOT.L2.OR.L3WRITE(*,*)L4,L5END程序运行结果是()A) T T B) T F C) F F D) F T24. 阅读下列程序CHARACTER*4 A,B,C*5DA TA A,B,C/'YOUR','BOYS','GIRLS'/WRITE(*,'(1X,A4,A5,A6,A1)')A,B,C,'!'END程序运行结果是()A) YOURBOYSGIRLS! B) YOUR□BOYS□GIRLS!C) YOUR□BOYSGIRLS! D) YOURBOYS□GIRLS!25.阅读下列FORTRAN77程序PARAMETER (A=1.0)READ(*,*)BIF(B.LT.A)THENB=AELSE IF(B.GT.A) THENB=B-AIF(B.GT.A)THENB= B-AENDIFELSEB=0.0ENDIFWRITE(*,*) BEND在执行时,从键盘输入5 〈回车〉输出的B值为()A)1.0 B) 2.5 C) 1.5 D) 3.0二、填空题(共20分,每小题2分)1.16位计算机整数的表示范围为。
2.“M不能被N整除”的FORTRAN表达式为。
3.书写FORTRAN源程序时,每行最多为列。
4.当I=2,K=2,M=7,L=-3时,表达式(I*(K-M))/(9+L)的计算结果是。
5.阅读下面的程序COMPLEX AA=(2.15,6.10)B=AA=BWRITE(*,*) AEND程序的输出结果为。
6.两个字符型数据进行比较,一般按其代码的值进行比较,其中字符最小。
7.INDEX(‘FOLLOW□ME’,‘E’)的函数值为。
8.下面的程序执行后,输入6.0时,Y的值为。
READ(*,*)XIF(X.LT.0.0)Y=0.0IF(X.LT.5.0) Y=1.0IF(X.LT.10.0) Y=5.0Y=6.0WRITE(*,*) YEND9.下面的程序段中,循环的执行次数为次。
DO 10,I=-2,-11,-3 F=F*I10 CONTINUE END10.阅读下面的FORTRAN 程序:LOGICAL P ,Q READ (*,10) P ,Q 10 FORMA T (1X ,2L4)X=0.0 Y=0.0IF(P) X=1.0 IF(Q) Y=1.0 WRITE(*,*) X,Y END执行以上程序,输入FTTFFTTFFTT ,最后输出的X 与Y 的值分别为 , 。
三、编程题(共30分,每小题10分)1. 设计程序打印“九九表”,即1×1=1, 1×2=2……,直到9×8=72,9×9=812.求Y 值,X 由键盘输入。
Y=X ( 0 ≤X<10 )X 2+1 ( 10≤X<20 )X 3+X 2+1 ( 20≤X<30 )3. 设计程序用于求级数)1(1......321211+⨯++⨯+⨯n n 的值,直到级数中某一项的值小于10-4为止。