- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
秋F笔试卷
第二部分 FORTRAN90程序设计
一、选择题(用答题卡答题,答案依次填在21~30答题号内)
21. 以下所列标识符中,不是FORTRAN90内部函数的是 21 。
REAL B. INTEGER C. INT D. CMPLX
22. a是含有n个元素的一维数组。以下所列赋值语句中有语法错误的是 22 。
a(1:n:1)=(/1,2,3,i,i=4,n/) B. a(1:n:1)=(/(i,i=1,n)/)
a(1:n)=(/1,2,3,(i,i=4,n)/) D. a=(/(i,i=1,n)/)
23. 一个复杂表达式内可能有各种类型的子表达式,程序执行时计算各子表达式的先后次序是 23 。
括号内的表达式、算术表达式、逻辑表达式、关系表达式
括号内的表达式、关系表达式、逻辑表达式、算术表达式
括号内的表达式、算术表达式、关系表达式、逻辑表达式
括号内的表达式、逻辑表达式、关系表达式、算术表达式
24. 若有语句列: INTEGER,DIMENSION(1:2,1:4)::a
a=RESHAPE((/1,3,5,7,2,4,6,8/),(/2,4/))则数组求和函数SUM(a,DIM=2)的值是 24 。
常量:36 B. 一维数组:4,12,6,14 C. 一维数组:14,22 D. 常量:22
25. 以下五种形式的数组:①常数组,②可调维数组,③假定形状数组,④假定大小数组,⑤动态数组。其中不能出现在哑元表中的是 25 。
①、 B. ①、、④ C. ①、、⑤ D. ⑤
26. 若数组说明语句为:REAL(kind=8),DIMENSION(-2:2 , -4:4 , -3:3)::a
则函数值LBOUND(a,DIM=3)是 26 。
A. -2 B. -4 C. 1 D. -3
27. 下列关于DO循环的表示中, 27 不是正确的DO循环结构。
DO……………ENDDO
DO index=expr1,expr2,expr3……………ENDDO
DO UNTIL(expression)……………ENDDO
DO WHILE(expression)…………… ENDDO
28. 一般而言,过程(函数过程和子程序过程)定义含有过程名和过程体(一系列实现其功能的语句),以下选项中没有过程体的是 28 。
哑过程 B. 外部过程 C. 系统提供的过程(如SIN等) D. 内部过程
29. 下列用于区分递归函数过程和非递归函数过程的说法中,错误的是 29 。
前者必须在FUNCTION前用RECURSIVE 加以说明,后者无此要求
前者定义中必定对自身有直接引用,后者在过程体内不能对自身直接引用
前者定义中必定有对自身的直接或间接引用,后者不会出现这种引用
若某问题既可用递归也可用非递归函数过程解决,则前者执行效率低,后者执行效率高
30. FORTRAN文件系统中标准输入文件指键盘、标准输出文件指屏幕,以下叙述中错误的是 30 。
标准输入文件、标准输出文件以及磁盘文件均可按有格式、顺序方式读写
标准输入文件、标准输出文件以及磁盘文件均可按有格式、直接方式读写
磁盘文件才可按有格式、直接方式读写,而标准输入文件、标准输出文件不可以
磁盘文件才可按无格式、顺序方式读写,而标准输入文件、标准输出文件不可以
二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行)
1. 以下程序执行后,输出的第一行是 (1) , 第二行是 (2) , 第三行是 (3) 。
PROGRAM spin_square
IMPLICIT NONE
INTEGER::nc,nr,i,j,k
INTEGER,DIMENSION(1:3,1:3)::array
nc=3; nr=1; i=3; j=3
array(i,j)=9
DO k=8,1,-1
IF(j nr .AND. i==nc)THEN
j=j-1
ELSEIF(j==nr .AND. i nr)THE
您可能关注的文档
最近下载
- 2024NIHSS评分量表解读PPT.pptx VIP
- 跨文化交际――中西方文化差异PPT课件.ppt VIP
- 12J1工程做法图集标准.docx VIP
- 《跨文化交际》课件:探索不同国家的文化差异.ppt VIP
- 四法一纲.doc VIP
- 新人教版8年级上册物理全册教学课件(2024年秋季新版教材).pptx
- 领导力与管理沟通PPT课件(共19章)第9章 非语言表达.pptx VIP
- 领导力与管理沟通PPT课件(共19章)第8章 书面表达.pptx VIP
- 2025年农村公路路面改造以工代赈项目可行性研究报告-新大纲.docx VIP
- 江苏省化工和危险化学品生产企业安全审计表解读 2025年1月2日.pptx VIP
文档评论(0)