fortran期中考试试卷

一、单项选择题（在每小题的四个备选答案中选号内。

每小题1分，共40分）1. 下列文件类型中不是文本文件的是 ( D )A. *.BATB. *.FORC. *.TXTD. *.BMP2．计算机最主要的工作特点是( A )A. 存储程序与自动控制B. 高速度与高精度C. 可靠性与可用性D. 有记忆能力3．微型计算机中，控制器的基本功能是 (D ) A. 算术和逻辑运算 B. 存储各种控制信息C. 保持各种控制状态D. 控制计算机各部件协调一致地工作4．断电会使存储数据丢失的存储器是(A )A. RAMB. 硬盘C. ROMD. 软盘5. 可以使用的汉字输入方法是 ( A )A. 扫描、语音、手写、键盘输入B. 智能ABC、拼音、指纹、笔画输入C. 刷卡、双拼、五笔、全拼输入D. A、B、C全对6．存储高精度48×48点阵汉字的字模信息需要的字节数是(B )A. 48×48B. 6×48C. 6×6D. 6×247．计算机辅助设计的英文缩写是 (C )A. CAIB. CAMC. CADD. CAT8. 编译系统的作用是(C )A. 执行源程序B. 管理软件资源的使用C. 将源程序转换为机器语言程序D. 管理硬件资源的使用9．在计算机网络中，通常把提供并管理共享资源的计算机称为 (B ) A. 集线器 B. 服务器 C. 网关 D. 网桥10．下列四项中，不合法的IP地址是(D )A. 10．0．0．8B. 127．0．0．1C. 205．211．31．199D. 198．47．267．243 11．Windows的“桌面”指的是 ( A ) A. 整个屏幕 B. 全部窗口 C. 某个窗口 D. 活动窗口12．关于“开始”菜单，下列说法不正确的是 C )A. 单击“开始”按钮可以启动“开始”菜单B.“开始”菜单包括关机、帮助、程序、设置、运行等菜单项C. 可以在“开始”菜单中添加菜单项，但不能删除菜单项D. 用户想做的事情几乎都可以从“开始”菜单开始13．在Word编辑状态下，当前编辑的文档是C盘中的d1.doc文档，要将该文档保存到软盘上，应当使用 B ) A. “文件”菜单中的“保存”命令 B. “文件”菜单中的“另存为”命令C. “文件”菜单中的“新建”命令D. “插入”菜单中的命令14．在Word编辑状态下，插入分节符或分页符操作可通过实现 A ) A.插入菜单中的分隔符命令 B.格式菜单中的段落命令C.格式菜单中的制表符命令D.工具菜单中的选项命令15．在Word的编辑状态中，对已经输入的文档进行分栏操作，需要使用的菜单是C ) A. 编辑 B. 视图 C. 格式 D. 工具16．在Word文档中插入数学公式，应选“插入”菜单中的命令是 D ) A. 符号 B. 图片 C. 文件 D. 对象17．Excel中，要使单元格A2显示0.4，应在其中输入 B ) A. 2/5 B. =2/5 C. ="2/5" D. "2/5"18．在Excel的单元格中，需输入05250123（兰州理工大学学生学号）时，应输入D ) A. 05250123 B. "05250123" C. 05250123’ D. ’0525012319．在Excel中，A5的内容是“A5”，拖动填充柄至C5，则B5、C5单元格的内容分别为 C ) A. B5、C5 B. B6、C7 C. A5、A5 D. A6、A720．在PowerPoint中，把已创建的多媒体演示文档转移到其他未安装PowerPoint 的机器上放映可以用的命令 A ) A.“文件”菜单中的“打包”命令 B.“文件”菜单中的“发送”命令C.“编辑”菜单中的“复制”命令D.“幻灯片放映”菜单中的“设置放映方式”命令21．PowerPoint中建立的一个演示文稿中，设置幻灯片背景时，下列说法错误的是A )A. 不可以同时对全部幻灯片设置背景B. 可以使用图片作为幻灯片背景C. 可以为单张幻灯片进行背景设置D. 可以为幻灯片设置不同的颜色、图案或者纹理的背景22．PowerPoint中，关于在幻灯片中插入多媒体内容的说法中错误的是 B ) A. 可以插入声音（如鼓掌声） B. 放映时只能自动放映，不能手动放映C. 可以插入影片D. 可以插入音乐（如CD乐曲）23．配置高速缓冲存储器（Cache）是为了解决 C )A. 内存与辅助存储器之间速度不匹配问题B. CPU与辅助存储器之间速度不匹配问题C. CPU与内存储器之间速度不匹配问题D. 主机与外设之间速度不匹配问题24．为解决某一特定问题而设计的指令序列称为 C ) A. 文档 B. 语言 C. 程序 D. 系统25．操作系统是计算机系统中的 A ) A. 核心系统软件 B. 关键的硬件部件 C. 广泛使用的应用软件 D. 外部设备26．英文字母“A”的10进制ASCII值为65，则英文字母“Q”的10进制ASCII值为 B ) A. 51 B. 81 C. 73 D. 9427．在多媒体计算机中，麦克风属于 D ) A. 运算设备 B. 输出设备 C. 存储设备 D. 输入设备28．二进制数11111110.11转换成十进制数是 B ) A. 255.125 B. 254.75 C. 256.125 D. 255.7529．在下列各项中，不是Internet提供的基本服务的一项是 D ) A. 文件传输 B. E-mail C. 远程登录 D. 实时控制30．OSI的中文含义是 C ) A. 网络通信协议 B. 国家信息基础设施C. 开放系统互联参考模型D. 公共数据通信网31. 下列DATA语句中正确的是 B )A. DATA A, B/2*(-1.0)/B. DATA /A,B/-1.0, -1.0/C. DATA A, B/2*-1.0/D. DATA A/-1.0, B/-1.0/32. FORTRAN 77规定，变量类型的优先顺序由高到低是 D )A. 隐含约定（I-N规则）、Implicit说明、类型说明B. 类型说明、隐含约定（I-N规则）、Implicit说明C. Implicit说明、类型说明、隐含约定（I-N规则）D. 类型说明、Implicit说明、隐含约定（I-N规则）33. 为了保证正确输出数据，编辑符Ew.d中w与d的关系至少应该是 C )A. w≥d+2B. w≥d+4C. w≥d+6D. w≥d+834.在FORTRAN77源程序中不能用作续行标志的字符是 A )A. 0B. XC. +D. $35. 下列表达式中值是3的是 C )A. SQRT(9.0)B. 9**0.5C. MOD(33,10)D. 1.0*336．下面循环语句中循环体被执行的次数是 B ) DO 30 i=-1,-12,-3<循环体>30 CONTINUEA. 0B. 4C. 8D. 1237. 设a和b是整型变量，则表示条件“1≤a＜8 和1＜b≤8”中只要有一个成立即可的逻辑表达式是 A )A. 1.LE.A.AND.A.LT.8.OR.1.LT.B.AND.B.LE.8B. (1.LE.A.AND.A.LT.8).AND..NOT.(1.LT.B.AND.B.LE.8)C. 1.LE.A.AND.A.LT.8.AND.1.LT.B.AND.B.LE.8D. .NOT.(1.LE.A.AND.A.LT.8).OR. .NOT.(1.LT.B.AND.B.LE.8)38. 若有INTEGER B(-1:1,2:4)，则数组B中所含的元素个数为 B )A.8B. 9C.6D. 439.下列表达式值的类型是 D ) 1十SIN（X＊EXP(Y)．LE．1E一5A. 整型B. 实型C.复型D. 逻辑型40. 设A、B是两个实型变量且已赋值，Z是复型变量，如要以A为实部，B为虚部构成一复数值A+Bi，并赋给变量Z，其FORTRAN语句是 C )A. Z = (A,B)B. Z = COMPLEX(A,B)C. Z = CMPLX(A,B)D. Z = A +B*i二、填空题（根据题义在程序的空白处填上适当1．计算机病毒实质上是人为特制的对计算机有破坏作用的【程序】。

FORTRAN90试题_3_计算机基础部分单项选择题（每题1分，共⼗分）（⼀）微型机的性能指标主要取决于 1 。

1．A) 内存 B) 中央处理器 C) 硬盘 D) 显⽰卡（⼆）与⼗进制数35等值的⼆进制数为 2 。

2．A) 100011 B) 110001 C) 11101 D) 101011 （三）硬盘⼯作时，应尤其注意防⽌ 3 。

3．A) 空⽓潮湿 B) 空⽓中的尘埃 C) 光线直射 D) 强烈震动（四）下列选项中， 4 不属于系统软件。

4．A) C 语⾔编译程序B)Windows C) Unix D)Office （五）计算机联⽹的主要⽬的是 5 。

5．A) 数度快 B) 资源共享 C) 精度⾼ D) 容量⼤（六）下列⽹络的IP 地址中， 6 正确的是。

6．A) 202.245.101.201 B) 204.256.9.101 C) 202.155.98.C D) 249.220.258.202（七）在多媒体计算机系统中，不能⽤于存储多媒体信息的是 7 。

7．A) 光缆 B)光盘 C) 硬盘 D) 磁带（⼋）计算机病毒不能通过 8 传播。

8．A) 硬盘 B) 优盘 C) D 打印机 D) ⽹络（九）在Windows 98中，将⼀个应⽤程序窗⼝最⼩化后，该应⽤程序 9 。

9．A) 任在后台运⾏ B) 暂时停⽌运⾏ C) 完全停⽌运⾏ D) 从任务栏退出（⼗）在Windows 环境下，若要将当前窗⼝存⼊剪贴板，则可以按 10 。

10．A) Ctrl + Print Screen B) Alt + Print Screen C) Shift + Print Screen D) Print ScreenFORTRAN90语⾔⼀、语⾔基础单项选择(每题2分，共20分)(⼀) 下⾯程序段中，错误的语句是 1 。

1. A) REAL,PARAMETER :: S = 1.73B) REAL :: X = 3 C) S = S + XD) PRINT *, S, X(⼆) ⼀个梯形的上底长为A,下底长为B,⾼为H,正确计算这个梯形⾯积的FORTRAN90表达式为 2 。

《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循环既可以用来处理已知循环次数的循环问题，也可以来处理不确定循环次数的问题。

什么是算法？正确答案:设计算法是程序设计的核心。

算法的概念：即计算机解题步骤或计算机算法要完成一件工作，包括设计算法和实现算法两个部分。

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．Ｎ＞＝０B．(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)。

一、选择题1、下列关于"ＳUＢRＯUTＩNE MAＰ(X，Ｙ)＂语句行的叙述中，不正确的是（)A) 这是子程序的第一个语句 B) 字符串"MＡＰ"是子程序名C）变量X是子程序的形参 D) 子程序执行后，MAP将返回整型数据２、 FORTRAN表达式"２/４+0.5＂的值是( )A) 0.5 Ｂ) 1 C） 1.０Ｄ) 03、阅读下列FORTＲＡN程序:PI=3.1４15926５WＲＩTE(*,'(F7.４）')PI ﻫEＮD程序运行后输出结果是（ ) ﻫA) ３.142 B）３.1４15 C) 0.3１４16 D) ３．14164、圆的直径存放在整型变量K之中,下列计算圆面积的表达式中正确的是( )Ａ) 3.14１5９２６＊K*K/4 B） 3.１415926＊(K＊K／4)Ｃ) 3.１4１592６*(Ｋ/2)＊*2 D） 3.14１5９26*(Ｋ／２）*(K／2)５、要判断"月收入M在２０00元以上(含2０00元)且5００0元以下)不含５000元)"的职工,应该使用的逻辑表达式是( ) ﻫＡ) M .ＧE. 2０00 .AND. M .LE. 5000 B）M ．GE. ２０００．ＯR． M .LE. ５000C）Ｍ .ＧＥ. 2000 .AND．Ｍ．LT．５0０0 D) M .GE. 2000 .OＲ. M .LＴ. 50006、设FORTRAＮ子程序如下:SUBＲOUTIＮE SUB(I，X)B=Ｉ+１X=Ｘ+B ﻫEND ﻫ若主程序中的变量M,B已按I-N规则赋值,则调用上述子程序的语句中正确的是( ）A) CAＬL ＳＵB(M,M） B) CALL SUB(M＋4,B) ﻫC） CALL SUB（Ｂ,B) D) CALＬ SＵB(M,B+4)7、下列不是FORTＲAN常量的是（) ﻫA）(3.0,4.0) B) 3.１416Ｄ+00 Ｃ) 2／3 D) 'Very good!'8、阅读下列FOＲＴＲAN程序:F=1．0 ﻫDO 20 K＝3, ７， 3ＤＯ 20 L=K-1, Ｋ20 WＲTTE(*,'(I３, Ｆ8．1)'Ｋ，F＊KEＮＤﻫ程序运行结果的最后一行是( ）ﻫA) 3 6．0 Ｂ) 6 6.0 C) 6 180.０Ｄ) 7 180.09、在ＦOＲTRＡN中，下列运算符的优先顺序是( ）ﻫA) 逻辑运算,关系运算,算术运算B) 关系运算，逻辑运算,算术运算C）算术运算，关系运算,逻辑运算 D) 关系运算,算术运算，逻辑运算10、使用ＦORTRAN内部函数时，所给的自变量（ )A) 只能是常量 B) 只能是变量C) 只能是常量或者变量 D) 可以是常量、变量或者表达式11、设X＝2.0，Y=8.0, Z=6.0，Ｌ＝.TRUE.,则下列ＦOＲTRAN表达式中值为.TRUＥ.的是( ) ﻫA） X＋Z.GT.Y.ANＤ．L Ｂ) .NOT.（Y.LT.Z+X).NEQV..NOT．LC）．NOT.L.OR.(Ｌ.EQV．Y＋Ｘ.ＥQ.Z) Ｄ) Y＋X.GＥ．Z＋Ｘ．AＮD．(Ｌ.AＮD.．FALSE．)１2、下列输出语句行中正确的是( )Ａ) ＷRＩTＥ（＊，*)(Ａ(Ｋ,L),K=１，３,Ｌ＝１，３)Ｂ) WＲITE(*，*)A(Ｋ，L）,K＝1,3，Ｌ=1，3C) WRITE(*,*）((A(Ｋ,L)，K=1,3), L=1，3) ﻫD) WＲＩTE(*,*)(A(K,L），K=1,３),Ｌ＝１，31３、给定下列FORTRAN子程序如下：ﻫSＵＢROUTＩNE ＳUB(K，A) ﻫA＝SQRT(K*K+1．0) ﻫEND ﻫ下列调用语句中正确的是( )A) CALL SUＢ(N,N) B) CALL SＵB（Ｘ,Ｘ) ﻫC) CＡLL SUB(N，X*Ｘ) D) CALL SUＢ(11,Ｘ)１4、阅读下列FORTRAN程序:INTEGEＲ AA(2，3）DATA AA／1,２，3,4,5,６／CALL Ｓ２Ｄ１9（AＡ) ﻫCALL S2Ｄ1９(AA(1,2））ENDSUＢROUTINＥ S２D1９(ＢB)INＴEGEＲＢＢ(2,2)WRITE(*,'(1Ｘ，2I3)') BB（1,1）,BB(2,2) ﻫEND程序运行结果是( ) ﻫA) 1 4 B) 1 ５ C) １ 4 D) １ 23 6 2 6 2 ５ 3 4１5、阅读下列FORＴRAN程序:ＩNＴEGER A(３,3)。

FORTRAN90语言部分一、 语言基础单项选择(每题2分，共20分)(一)下面的函数计算中，错误的是 1 。

A) SQRT(9) B) REAL(9) C) ABS(9) D) MOD(9,2)(二)运行下面的程序时(P,W,X,Y 都是实型变量)， READ(*,10) P,W,X,Y WRITE(*,20)X,Y10 FORMAT(1X,F3.1,3(1X,F4.2)) 20 FORMAT(1X,F4.1,3(1X,F5.2)) END如果从键盘输入数据：12345678901234567890，则输出结果为 2 。

A) 1.23 56.78 B) 12.3 67.89 C) 12.3 45.67 D) 34.5 67.89(三)数学式a acb x 24sin 22-+的FORTRAN 表达式为 3 。

A) SIN(X**2)+SQRT(B*B-4*A*C)/2/A B) SIN(X)**2+ SQRT(B*B-4*A*C)/2/AC) (SIN(X**2)+SQRT(B*B-4*A*C))/(2*A) D) (SIN(X)**2+SQRT(B*B-4*A*C))/(2*A)(四)表示条件“A 加B 大于C 并且C 大于等于D ”的FORTRAN90逻辑表达式是 4 。

A) A+B>C >=D B) (A+B)>C >=DC) A+B>C.AND. C>=DD) (A+B)>C.OR. C>=D(五)通过下面的赋值，字符变量LINE 的值是 5 。

表示空格。

CHARACTER(LEN=4)::LINE LINE=’10’A) 10  B) 1000 C) ‘10’ D) ’10 ’(六)下面对二维数组的说明语句中，正确的语句是 6 。

A) 显式形状数组的说明：REAL,DIMENSION(10,:) ::AB) 动态数组的说明方式：REAL,DIMENSION(:,:), ALLOCATE ::A C) 假定形状数组的说明：REAL,DIMENSION(10,:) ::A D) 指针数组的说明：POINTER,DIMENSION(1:3,2:4) ::A (七)下面的模块中，错误的语句是 7 。

1、某次物理期中考试的考题太难，老师决定调整全体学生的成绩，调整的公式是把原成绩开平方再乘以10，请写一个程序来读入一位学生的初始成绩，并计算调整后的分数。

parameter(n=3)real a(n)print*,'请依次输入学生成绩'do i=1,nread*,a(i)a(i)=10*(a(i)**1/2)enddoprint*,'调整后的分数为',aend2、假如所得税有三个等级，而且随年龄不同又有不同算法：第一类：年轻级（小于50岁）月收入在1000元（含）以下的税率为3%，在1000至5000（含）元之间的税率为10%，在5000元以上的税率为15%；第二类：老年级（50岁以上（含50岁））月收入在1000元（含）以下的税率为2%，在1000至5000（含）元之间的税率为7%，在5000元以上的税率为10%。

请写一个程序来输入一位上班族的年龄、年收入，并计算他（她）应缴的税金。

real a,b,cprint*,'请输入年龄和月收入'read*,a,bif(a<50.and.b<=1000) c=b*0.03if(a<50.and.b>1000.and.b<=5000) c=30+(b -1000)*0.15if(a<50.and.b>5000) c=30+400+(b -5000)*0.15if(a>50.and.b<=1000) c=b*0.02if(a>50.and.b>1000.and.b<=5000) c=20+(b -1000)*0.07if(a>50.and.b>5000) c=20+280+(b -5000)*0.1print*,cend3、二维整型数组⎥⎥⎥⎦⎤⎢⎢⎢⎣⎡=574936821a ，请用data 语句对数组赋值，并且求主对角元素之和sum ，并把结果写入新的文件output.txt 中。

《高级语言程序设计 (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.5 D)T.gt.1.7.OR.w.lt.62.510．FORTRAN 90 规定，变量类型声明的优先顺序是 C 。

一、判断题（共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属性。

一、选择题1、数据说明中的种别（kind）参数值在编译系统内不能随意，以下说明中不能普遍适用的是。

A、integer(kind=8)::a,b,cB、complex(kind=8)::a,b,cC、integer(kind=2)::a,b,cD、real(kind=8)::a,b,c2、圆的直径存放在整型变量K中，下列计算圆面积的表达式中正确的是。

A、3.1415926*K*K/4B、3.1415926*(K*K/4)C、3.1415926*(K/2)**2D、3.1415926*(K/2) *(K/2)3、以下是用于定义逻辑型变量。

A、realB、characterC、logicalD、complex4、斜杠编辑符/ 在输出语句中的作用是。

A、跳过若干字符B、换行C、输出若干空格D、不换行5、integer ,dimension (2:4) :: A , B(5) , C数组B的上、下维界是。

A、2 和4B、1和5C、0和5D、5和56、一个完整的FORTRAN源程序的组成不应该。

A、只有一个主程序，没有子程序B、有一个主程序和若干子程序C、有一个主程序和一个子程序D、只有子程序，没有主程序7、在编译FORTRAN90源程序Text1.f90时，output窗口提示如下信息：Error: An unterminated block exists.do i=1,3以下说法错误的是。

A、该信息提示：存在一个没有结束的程序块B、源程序中DO循环结构没有结束C、DO结构入口语句少了步长D、在源程序中添加End Do语句可以消除此错误8、下面哪些情况在主调程序中必须写接口块。

①实元是关键字变元②外部过程扩展了赋值号的功能③被调用的过程中有假定形状数组作为虚元④使用了模块⑤如果调用一个外部过程，该过程的结果为数组（只有函数如此）A、①②③⑤B、①②③C、①②③④⑤.D、③⑤9、某函数子程序中使用了IMPLICIT NONE、DIMENSION、ALLOCATE、FUNCTIOIN 四种语句，其中属于可执行语句的是。

课程名称：Fortran语言程序设计；试卷编号：A 卷；考试时间：120分钟学院1.Fortran语言中有：整数型逻辑型字符型实数型复数型五种基本数据类型。

2.Fortran程序的书写格式有两种固定格式自由格式。

3. 字符型常数’this”s’的字符长度为64. 下列程序运行结果为125。

Program mainImplicit noneInteger::floor=5,iDo i=1, floorIf(i==3)cycleIf(i==4)cycleWrite(*,*)iEnd doend5. 下列程序的运行结果为76.0,2.0。

Program mainImplicit noneReal :: a, b, mA=2.0B=76.0If(a<b)thenM=aA=bB=mEnd ifWrite(*,*) “a=”,a “b=”,bend6. 下列程序的运行结果是10302。

Program testImplicit nonesum=0.0do i=1,203,2sum=sum+iend dowrite(*,*) iend7.下列程序的运行结果是12000。

Program testImplicit noneInteger::iInteger::a(5)=(/ (i, i=1,5) /)Integer::b(5)=0Where (a<3)b=aEnd whereWrite(*,”(5(i3,1x))”) bend8.下列程序的运行结果是30。

Program testImplicit noneInteger,parameter:: limit=10Integer counterInteger:: ans=0Counter=2do while(counter<=limit)ans=ans+countercounter=counter+2end doWrte(*,*)ansend9.下列程序的运行结果是2,3。

软件技术基础(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 ）42 5. 下列数组说明符中错误的是（ 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 )。

FORTRAN90模拟测验一（笔试部分）一．选择题（从4个可选答案中选择一个正确答案添入空白处）1．FORTRAN 90规定程序中名称的长度不能超过个字符。

A．8 B．15 C．31 D．632．关于FORTRAN 90程序单元，以下四种说法中正确的是。

A．一个FORTRAN 90程序由多个程序单元组成，其中有一个且只能有一个主程序单元B．一个FORTRAN 90程序由多个程序单元组成，其中有一个且只能有一个模块单元C．一个FORTRAN 90程序允许有多个程序单元，但每类程序单元只能有一个D．一个FORTRAN 90程序允许有多个程序单元，但主程序单元和模块单元只能有一个3．FORTRAN 90程序中允许使用的三个通用标志符是。

A．！% & B．@ , ; C．! ; & D．; & *4. 下列中，所指的FORTRAN 90表达式都是正确的。

①∣A*x+B*y+C*z∣② b*b+4*a*c③ .NOT. .TRUE. .AND. .FALSE. ④‘A’<= ch <= ‘Z’⑤ X>100 = = .TRUE. ⑥ SQRT(A2+B2)⑦π*R**2 ⑧‘HAPPY ’+‘NEW ’+‘YEAR.’A. ①②⑤B．②③④⑧C．②③⑤D．②⑤⑥⑦5. FORTRAN 90规定，变量类型声明从高到低的优先顺序是。

A．隐含约定（I-N规则）、IMPLICIT声明、类型声明B．类型声明、隐含约定（I-N规则）、IMPLICIT声明C．类型声明、IMPLICIT声明、隐含约定（I-N规则）D．IMPLICIT声明、类型声明、隐含约定（I-N规则）6．数组声明语句为：INTEGER，DIMENSION(-5:-1,-3:3,11:15) ：：num 数组元素num(-2,1,13)是存储结构中第个元素。

A．70 B．85 C．90 D．947．类型声明语句为：INTEGER(2) I 数据输出语句为：PRINT *，I变量I中数据输出域宽是字符。

《Fortran 语言程序设计》考试试题 一、关键字解释及表达式互换（共10题，每题2分，共20分） 1. READ*, X,Y 2. REAL 3．12 FORMAT(2X,I5) 4．COMPLEX 5．LOGICAL 6．INTEGER,DIMENSION(4,5)::A 7．SELECT CASE(R3) 8．写出 x e y cos 21∙的fortran 表达式 9．写出COS （(A+1)*（A+1)）/(N*N+1)数学表达式 10．写出 1-⎪⎪⎭⎫ ⎝⎛n y x 的fortran 表达式 二、下面分别是程序中的一段代码，请指出其错误？（共2题，（共2题，1题12分，2题8分，共20分） 1. …………………… E=(E*T+23) IF(E>=500) GOTO 5 DO N=1,1O ，0 5 T=SS*3.45 PRINT*,R,T END DO ……………… 2. PROGRAM ex IMPLICI NONE INTEGER :: n CHARACTER(LEN=3) :: a,b,c READ*, n a=n b=’nkd_lixy ’c=sqrt(a**2+b**2) print*,c 学生班级________________学生学号：□□□□□□□□□□□□学生姓名：________________ ………………装订线………装订线………装订线…………试卷须与答题纸一并交监考教师…………装订线………装订线………装订线………………………………三、请写出下面程序的运行结果（共4题，每题10分，共40分）1.写出下列程序的作用是解决什么问题的？PROGRAM GH1REAL X,YREAD*,XIF (X<=0) Y=LOG(SQRT(X*X+1))IF (X>0) Y=SIN(X**3)+ABS(X)PRINT*,”Y=”,YEND2．写出下列程序的运行结果，程序运行时输入 5，6，7，8 四个数。

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分）。

FORTRAN90考试笔试题1FORTRAN90试题(A)答案请写在答题部分A.试题部分⼀、单项选择(每题2分，共40分)1、下列标识符中不能作为FORTRAN90的合法变量名的是__1___.A)A_1 B) A1 C) A1A D) A+12、表达式1+SQRT(B*B－4.0*A*C)*ABS(X)<3E－5值的类型为: __2___.A)逻辑型B)整型C)实型D)字符型3、下列DATA语句中正确的是 __3___.A) DATA /A,B/-1.0, -1.0/ B) DATA A, B/2*(-1.0)/C) DATA A, B/2*-1.0/ D) DATA A/-1.0, B/-1.0/4、通过下⾯的赋值，字符变量LINE的值是 4 。

表⽰空格。

CHARACTER(LEN=4)::LINELINE=’10’A) 10 B) 1000 C) ‘10’ D) 105、设M=2000,为了在屏幕上输出□□***2000*** (其中□表⽰空格)，则应使⽤的格式输出语句为 __5___.A) WRITE(*,10)M10 FORMAT(2X,’***’,I4,’***’)B) WRITE(*,10)M10 FORMAT(3X,’***’,M,’***’)C) WRITE(*,10)M10 FORMAT(3X,’***’,I4,’***’)D) WRITE(*,10)M10 FORMAT(1X,’2X’,17,’***’)6、若有格式输⼊语句如下:INTEGER A(4)READ(*,2O)A20 FORMAT(4I2)如果在执⾏时从键盘输⼊□1□23□456□789↙ (其中□为空格, ↙为回车键)则读⼊后的A(3)值为 __6___.A)56 B) 456 C) 34 D) 37、执⾏下列赋值语句R=25**（6/12）后，变量R的值为_7___：A）5.0 B)0 C)1 D)1.08、下列有关数组的说法正确的是__8___.A) 数组定义语句只能定义⼀维或⼆维数组B) 数组元素下标不能出现负值C) 在赋值语句中出现的A(3)肯定是数组元素D) 程序中使⽤的数组必须进⾏说明9、下列说法中正确的是__9___.A)输⼊字符串常量时,其长度必须和所定义的变量长度相等B)字符串常量在⽤键盘输⼊时,两边必须⽤撇号C)两个字符型变量⽐较,该两个变量的长度必须⼀致D)定义字符型变量⽤CHARACTER语句10、在下⾯的模块定义中，错误的语句是__10___.A) MOUDLE APIB) REAL::PIC) PI=3.14D) END MOUDLE API11、阅读下列FORTRAN90程序：DO I=4，2，-1A=1.0DO J=I，4，2A=A+1.0ENDDOENDDOWRITE(*，*)AEND运⾏上述程序后，输出的A值为 __11___.A) 5.0 B) 4.0 C) 3.0 D) 2.012、执⾏READ*,A,B,C语句时键⼊2*3,4,5，则变量A,B,C的值依次是__12___.A)2,3,4 B) 3,4,5 C)6,3,4 D)3,3,413、在过程调⽤中当虚参是数组时，对应的实参应该是同⼀类型的数组或__13___.A)常量B)变量C)数组元素D)函数名14、阅读下列程序INTEGER A(3,3)DATA A/1,2,3,4,5,6,7,8,9/WRITE(*,100)((A(K,J),J=1,K),K=1,3)100 FORMAT(1X,10I2)END程序执⾏后, 输出的结果为__14___.A)□1□4□5□7□8□9 B) □1□2□3□4□5□7C)□1□4□7□2□5□3 D) □1□2□5□3□6□915、阅读下列FORTRAN90程序:READ(*,*)AB=0.0IF(A>1.0)B=B+2.0IF(A>2.0)B=B-1.0WRITE(*,*)BEND在执⾏时,从键盘输⼊5.0↙ (其中↙为回车键)则输出的B值为__15___.A) 2.0 B) -1.0 C) 0.0 D) 1.016、阅读下列程序INTEGER:: A(3,3) A(:,1)=(/1,4,7/) A(:,2)=(/2,5,8/) A(:,3)=(/3,6,9/) WRITE(*,10)(A(I,I),I=1,3) 10 FORMAT(1X,3I2) END 程序执⾏后, 输出的结果为__16___. A) □1□4□7 B) □2□5□8 C) □3□6□9 D) □1□5□917、M 是由INTEGER,DIMENSION(10)::M 语句定义的⼀个⼀维数组，则数组⽚断M(2:8:3)包含的三个元素是__17___.A) M(2),M(5),M(8) B) M(2),M(8),M(3) C) M(2),M(3),M(4 ) D) M(5),M(6),M(7)18、下⾯程序：READ *, KWRITE(*, 100) K 100 FORMAT(I5) END在运⾏时输⼊值12345后，其输出结果为__18___.A) 12345 B) 1234 C)2345 D)01234 19、阅读下列程序 READ*,N SUM=1.0 F=1 K=1 DO WHILE(KA)K K N K 1)1(1111--=∑-+B) K KN K 1)1(111∑-=-+C) KK NK 1)1(111-=∑-+D) KKNK 1)1(11∑=-+20、阅读下列程序CHARACTER(LEN=5) STRREAD(*,100)STRWRITE(*,200)STR100 FORMAT(A9)200 FORMAT(A4)END如果在执⾏时由键盘输⼊FORTRAN90输出的结果为__20___.A)FORTR B)ORTR C)RAN9 D)AN9⼆、阅读下列程序，写出程序的运⾏结果(每题6分，共24分)程序1：PROGRAM EXAM2IMPLICIT NONECHARACTER(LEN=20)::LINEINTEGER :: I, N=5,M=10DO I=1,NLINE=' 'LINE(M+I: M+I)='#'PRINT*,LINEENDDOEND程序2：X=1.0Y=2.0CALL SUB(X,Y,Z,3.0)WRITE(*,100)X,Y,Z100 FORMAT(1X,F3.1)ENDSUBROUTINE SUB(A,B,X,Z)A=A+1B=B+2.0Y=1.0X=Y+ZEND程序3：PROGRAM EXAM3IMPLICIT NONEINTEGER:: I,MAXI,NUM=5INTEGER,DIMENSION(:),ALLOCATABLE:: ARRAY_LISTALLOCATE(ARRAY_LIST(NUM))ARRAY_LIST=(/20,10,30,50,40/)MAXI=1DO I=2,NUMIF(ARRAY_LIST(I)>ARRAY_LIST(MAXI))MAXI=I ENDDOWRITE(*,*)MAXI,ARRAY_LIST(MAXI) DEALLOCATE(ARRAY_LIST) END程序4： TYPE SSREAL X CHARACTER(LEN=5) STR INTEGER N END TYPE TYPE(SS)::A READ*,A WRITE(*,100)A100 FORMAT(1X,F4.2,A6,I3) END 如果在执⾏时由键盘输⼊ 34.5,’****’,23三、阅读下列程序，在空⽩处填写适当的内容(每空2分，共20分) 1．下列FORTRAN 程序的功能是从键盘输⼊⼀个整数,当该整数能被5整除时输出“YES ”,否则输出“NO ”。

FORTRAN程序设计复习题及答案FORTRAN程序设计复习题一、选择题B (1)下列各FORTRAN表达式中合法的是A) S+T*2P >= B) .NOT. (A*B+C)C) A2+B2/(C+D) <= D) (A+B).NOT．A*B．GT．(.NOT.只跟一个表达式)C (2)数学式(3/5)ex+y的FORTRAN表达式是A) 3*EXP(X+Y)/5 B) 3*E* *(X+Y)/C) (3/5)*EXP(X+Y)D) 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．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) .AND.. B) 10.0C) D)提示：A）相当于 .AND.（.NOT.（））D (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+"的值是A) B) 1 C) D) 0提示：2/4默认等于整型，=》D (12)FORTRAN表达式"MOD，"的值是A) B)0.0 C) D)A (13下列FORTRAN运算符中，优先级最低的是A）逻辑运算符.AND. B）算术运算符*C)关系运算符 >= D)算术运算符＋A (14下列语句函数的定义中正确的是A）F(X，Y)＝(X＋Y)/(X*Y)＋ B）FUNCTION FUN(I，J，K)＝3*I ＋2*J＋*K C）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）FALSE C）ˊROOT＝ˊ D）ˊˊB（16）"整型变量M能被整型变量K整除"的FORTRAN77表达式是A）MOD(M，K)＝0 （MOD(M，K)= =0）B）M－M/K*K .EQ. 0C）MOD(K，M)＝0 D）MOD(M，K)＝0 == .TRUE.C （17）设有下列数组说明语句： REAL:: A(1:10，－1:10)该数组说明语句定义了数组A 中的元素个数为 A ）100 B ）110 C ）120 D ）121 A (18)按隐含规则（默认为整型），语句IP=执行之后，IP 的值是A) 3 B) 3.1416C)D)D (19)下列数据中，不符合 FORTRAN 常量表示法的是A) B)C)‘FOOT’‘=’ D) TRUEC (20)设C 是复型变量，A 与B 为有定义的实型变量，下列赋值语句中合法的是A) C=A+BB) C=,**2) C) C=,3D-2)D) C=(A ＋B ,A-B )B (21)有矩阵(数组)=22221111B下列DATA 语句中正确的是A) DATA B/4*,4* B) DATA((B(I,J), J=1,4), I=1,2)/4*, 4* C) DATA B/4*,/ D) DATA((B(I,J),I=1,2), J=1,4)/4*, 4* C (21)在使用DO 循环及循环嵌套时，下列叙述中正确的是A) 不仅可以从循环体内转到循环体外，也可以从循环体外转到循环体内 B) 外循环与内循环的DO 循环控制变量可以不同．也可以相同C) 可以从循环体内转到循环体外，但不能从循环体外转到循环体内 D)DO 循环控制变量在循环体内可以再赋值，也可以被引用B (22)在FORTRAN 表达式中，各种运算的顺序是 A) 逻辑运算，关系运算，算术运算B) 算术运算，关系运算，逻辑运算C) 关系运算，逻辑运算，算术运算D) 关系运算，算术运算，逻辑运算D (23)赋值语句X=4**(6/12)=4**0=执行后,实型变量X的值是A) 2 B) 2.0 C) 1 D)D (24)为了保证正确出数据,格式编辑符中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=,, B) DO 10 K=,,C) DO 10 S=,, D) DO 10 K=,,D (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,W*W,5,,Z)（多了一个）B) CALL SS,,P,Q,R) （多了一个）C) CALL SS(F,G,,D) CALL SS*I,*J,C,D)（I,J可先赋值）A (30)在下列语句函数的定义中正确的是A) F(X,Y)=(X+Y)/(X*Y)+B) FUNCTION(I,J,K)=3*I+2*J+*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 B)27/6 C) 16** D) 4*C(34)语句K=2+**2/2执行后，整型变量 K的值是A) B) 5 C) 6D) 7C (36)适用于字符型 I/O的 FORTRAN77格式编辑将是A) B) C) A D)D (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*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) COMMONND. IF>=X<= Y=2*X+D) IF(X >= <= Y=2*X+二、阅读题1、阅读下列FORTRAN程序:program examplereal a,b,ca=b=c=write(*,"(3)") a,b,cend程序运行的结果是:2、阅读下列FORTRAN程序：program exampleinteger :: a=1integer :: b=2real :: cc=a/bwrite(*,"") cend程序运行结果是:3、阅读下列FORTRAN程序:program exampleimplicit noneinteger rain, windspeedwrite(*,*) "Rain:"read(*,*) rainwrite(*,*) "Wind:"read(*,*) windspeedIf ( rain>=500 .or. windspeed >=10 ) then write(*,*) "停止上班上课"elsewrite(*,*) "照常上班上课"end ifstopend运行上述程序时，如果从键盘输入Rain：505<回车>Wind：8<回车>则最后输出的结果为: 停止上班上课4、阅读下列FORTRAN程序:program exampleimplicit nonereal a,b,anscharacter operatorread(*,*) aread(*,"(A1)") operator read(*,*) bselect case(operator)case('+')ans = a+bcase('-')ans = a-bcase('*')ans = a*bcase('/')ans = a/bcase defaultwrite(*,"('Unknown operator ',A1)") operator stop end selectwrite(*,",A1,,'=',") a,operator,b,ansstopend运行上述程序时，如果从键盘输入100<回车><回车>200<回车>则最后输出的结果为: Unknown operator5、阅读下列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前均有一空格。