Fortran90试题

Fortran90试题

ID:40528546

大小:37.50 KB

页数:4页

时间:2019-08-04

Fortran90试题_第1页
Fortran90试题_第2页
Fortran90试题_第3页
Fortran90试题_第4页
资源描述:

《Fortran90试题》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、Fortran复习题目类型:1、选择题2、填空题3、简答题4、编程题样题一、选择题1.下列名称中,符合FORTRAN90命名规则的是 。A.a-b-c  B.$123 C.length_1 D.date.year2.关于FORTRAN90程序单元,以下四种说法中正确的是 。A.一个FORTRAN90程序由多个程序单元组成,其中有一个且只能有一个主程序单元B.一个FORTRAN90程序由多个程序单元组成,其中有一个且只能有一个模块单元C.一个FORTRAN90程序允许有多个程序单元,但每类程序单元只能有一个D.

2、一个FORTRAN90程序允许有多个程序单元,但主程序单元和模块单元只能有一个3.关于FORTRAN90的CASE结构,以下说法中正确的是 。A.CASE结构内必须取DEFAULT作为情况选择器的最终值B.CASE结构的情况表达式不能是字符类型C.CASE结构的情况表达式和情况选择器的取值类型必须相同D.CASE结构的不同情况选择器取值可以重复4.已知数组说明REALA(20:22,0:9,-3:-1),数组A的数组元素个数是 。A.164B.360C.450D.905.子程序的形式参数(虚拟变元或哑元)可以

3、是 。A.变量名、数组名、过程名B.变量名、数组名、过程名和符号常量名C.变量名、数组名、数组片段、过程名D.任意符号名6.语句OPEN(3,FILE=’ABC’,ACCESS=’DIRECT’,RECL=40)打开的是 文件。A.有格式顺序存取B.无格式顺序存取C.有格式直接存取D.无格式直接存取7、下列关于"SUBROUTINEMAP(X,Y)"语句行的叙述中,不正确的是()A)这是子程序的第一个语句B)字符串"MAP"是子程序名C)变量X是子程序的形参D)子程序执行后,MAP将返回整型数据8、FORTR

4、AN表达式"2/4+0.5"的值是()A)0.5B)1C)1.0D)09、阅读下列FORTRAN程序:PI=3.14159265WRITE(*,'(F7.4)')PIEND程序运行后输出结果是()A)3.142B)3.1415C)0.31416D)3.141610、圆的直径存放在整型变量K之中,下列计算圆面积的表达式中正确的是()A)3.1415926*K*K/4B)3.1415926*(K*K/4)C)3.1415926*(K/2)**2D)3.1415926*(K/2)*(K/2)二、填空题1、下列FOR

5、TRAN函数子程序的功能是用以下公式计算一组数据Z1,Z2,…,Zn的标准差σ:σ2=(Z12+Z22+…+Zn2)/n-[(Z1+Z2+…+Zn)/n]2请在程序中的下划线处填入合适的内容。【1】SIGMA(Z,N)REALZ(N)SUMX=0.0SUMX2=0.0DOK=1,N【2】SUMX=SUMX+XSUMX2=SUMX2+X*XENDDOAV=SUMX/NAV2=SUMX2/NS2=AV2-AV*AVSIGMA=【3】END【1】FUNCTION【2】X=Z(K)【3】SQRT(S2)三、简答题1.

6、将下面的数学式子写成FORTRAN90表达式。2.有一整型数组A(-1:1,2),请写出它的存储结构。参考答案1.log(a+b)/(exp(2*x)+sqrt(1+c))2.存储结构A(-1,1)A(0,1)A(1,1)A(-1,2)A(0,2)A(1,2)四、编程题1、以循环来计算1/1!+1/2!+1/3!+1/4!+……+1/10!的值。2、利用选择排序法编制程序,将数组A中所有的数值(5,3,6,4,8,7,1,9,2,10)从小到大排列。1、解题程序:programmainimplicitnone

7、integer,parameter::max=10integerirealitemrealansans=1.0item=1.0doi=2,maxitem=item/real(i)ans=ans+itemenddowrite(*,*)ansstopendprogram2、排序程序:programmainimplicitnoneinteger,parameter::size=10integer::a(size)=(/5,3,6,4,8,7,1,9,2,10/)integer::i,jinteger::tdoi=1

8、,size-1doj=i+1,sizeif(a(i)>a(j))thent=a(i)a(i)=a(j)a(j)=tendifenddoenddowrite(*,"(10I4)")astopend

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。