FORTRAN95程序设计试题(2010级补考)

2010级程序设计基础（Visual FORTRAN ）试卷（B 卷）

答题说明：（1）请按要求将答案书写在答题纸指定的位置上；

（2）密封线内学号栏填写完整的8位学号；答题纸中上方填写在教学班中的序号。

装订线 班级 姓名： 学号

密封线

兰州交通大学试卷（主卷）

考题书写要求：上下不得超过黑线两端点

[C] 有些FORTRAN 语句在程序执行时不产生任何机器操作。

[D] 在FORTRAN 中“=”表示相等的意思，如A=B 表示变量A 与B 的值相等。 10．阅读下列FORTRAN 程序：

pi=3.14159265 write(*,'(f7.4) ') pi end

程序运行后输出结果是 [A] 3.142

[B] 3.1415

[C] 0.31416

[D] 3.1416

11．下列输入输出语句中错误的是 。

[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 >=. 2000 .or. m < 5000

13．已定义a 为整形变量，不能正确表达数学关系：1010.and.a<15 [D] .not.(a<=10).and..not.(a>=15) 14．要实现“当x>y 时，z=x+y ，否则z=x-y ”。以下能完成该功能的程序段是 。 [A] if (x>y) z=x+y [B] if (x>y) then z=x+y else z=x-y z=x-y [C] z=x-y [D] if (x>y) if (x>y) z=x+y z=x+y else z=x-y end if 15.对下列程序段的叙述正确的是 。 character*5 str1,str2*3，str3*10 str1=’new’ str2=’chinese’ str3=str1//str2 ……

[A] 字符变量str1的值为’□□new’ [B] 字符变量str2的值为’chi ’

[C] 字符变量str2的值为’ese ’ [D] 字符变量str3的值为’new chinese ’ 2011 年 9 月 日

一、选择题（在每小题给出的4个选项中只有一项是正确的，将正确选项的字母序号填在答

题纸表格的对应空位中。每题1分，共30分。） 1．下列叙述不正确的是 。 [A] FORTRAN 语言属于高级语言。

[B] 程序设计语言是全部计算机指令的集合。 [C] 高级语言程序能被计算机直接识别、理解和执行。

[D] FORTRAN 95语言具有模块化、结构化和面向对象三种特征。 2．在Visual Fortran 中，运行一个FORTRAN 程序的步骤是 。

[A] 编译、链接、编辑、运行 [B] 编译、编辑、链接、运行 [C] 编辑、编译、链接、运行 [D] 编辑、编译、运行、调试 3．下面名称中是合法的变量名的是 。 [A] a-b-c

[B] a&b

[C] sum_1

[D] dat.year

4．下面是FORTRAN 95中正确的表达式的是 。

[A] a*cos(x)+∣b ∣ [B] 2*exp(2*x)/sqrt(16) [C] b2-4ac [D] mod （24.5,0.5） 5．下列四个整数中，哪一个是合法整数 。

[A] 8#159

[B] #458d [C] 5,234

[D] 358_3 6．在FORTRAN 中，下列运算符的优先顺序是 。

[A] 逻辑运算，关系运算，算术运算 [B] 关系运算，逻辑运算，算术运算 [C] 算术运算，关系运算，逻辑运算 [D] 关系运算，算术运算，逻辑运算

7．下列FORTRAN 语言标点符号中表示续行的是 。

[A] & [B] # [C] ！ [D] ； 8、 FORTRAN 表达式"2/4+0.5"的值是 [A] 0.5

[B] 1

[C] 1.0

[D] 0

9．下列说法中，正确的是 。

[A] 在FORTRAN 程序中，各类语句的位置是任意的。

[B] 任何一个FORTARN 语句在程序执行时都会产生某种机器操作。

教学班中学生序号

装订线 班级 姓名： 学号

密封线

考题书写要求：上下不得超过黑线两端点

16.关于FORTRAN95的块case 结构，以下说法中正确的是 。

[A] 块case 结构中必须以default 作为最终的选择 [B] 块case 结构的条件表达式不能是字符类型

[C] 块case 结构的条件表达式和条件选择表达式的取值类型必须相同 [D] 块case 结构的不同条件选择表达式取值可以重复 17．逻辑表达式：

ichar （x （1：1））>= 97 .and. ichar （x （1：1））<= 122 是用来判断___ ___。

[A ] 字符串x 的第一个字符是否为一个大写字母 [B ] 字符串x 的第一个字符是否为一个小写字母 [C ] 字符串x 的第一个字符是否为一个数字字符

[D ] 字符数组x 的第一个元素是否为字母字符

18．有复数为（2.3,1.4_8），要保存该数需要的内存单元大小为 。

[A] 4字节 [B] 8字节 [C]16字节 [D] 32字节 19．对于DO 语句：“ do i=10,1,-2”，可计算出循环次数为 。 [A] 10次 [B] 8次 [C] 6次 [D] 5次 20．阅读下列FORTRAN 程序段：

f=1.0 do k=3, 7, 3 do i=k-1, k print *，k, f*k enddo enddo

程序运行结果的最后一行是 。 [A] 3 6.0 [B] 6 6.0 [C] 6 180

[D] 7 180

21．设有数组说明语句“dimension a(10, 0:3, -2:2)”,则a 数组中元素个数为 个。

[A] 200 [B] 160 [C] 150 [D] 120 22．下列程序的输出结果是 。 integer k(2,3)

data k/10,20,30,40,50,60/

write(*,'(1x,6i4)')((k(i,j),j=1,3),i=1,2) end

[A ] 10 20 30 40 50 60 [B ] 10 30 50 20 40 60 [C ] 10 30 50 20 40 60 [D ] 10 20 30 40 50 60

23．阅读程序：

character a(4) data a/’1’,’2’,’3’,’4’/ do i=1,4

print*, (a(j),j=1,i) enddo end

程序运行后，输出的图形为 。

[A] ???1 [B] 1 ??12 12 ?123 123 1234 1234 [C] ???4 [D] 1

??43 2 ?432 3 4321

4

24、下列对语句函数的描述中，不正确的是 。 [A] 语句函数只能在本程序单元中被引用。

[B] 语句函数的虚参不可以与同一程序中的其他变量同名。 [C] 语句函数如果没有虚参，函数名后的一对括号也必不可少。 [D] 语句函数应放在所有可执行语句之前和所有说明语句之后。

25．下列关于"subroutine map(x ，y)"语句行的叙述中，不正确的是 。 [A] 这是子程序的第一个语句 [B] 字符串"map"是子程序名 [C] 变量x 是子程序的形参

[D] 子程序执行后，map 将返回整型数据

26．有函数子程序： function fun(x,y)

下面的四个调用中，用法不正确的是 。 [A] if(fun(2.3，5.6) .ge. 100) then [B] y=fun(0.5，1.2) + fun [C] t=sin(fun(5.6，1.9) + x)

[D] write(*,*)fun(4.5，3.4)+fun(10.1，89.5)

27．下列主程序中的common 语句无意义的是

主程序 子程序

[A ] common m,n

common a,l [B ] common m,n

common k,l [C ] common a(5),m

common b(5),l [D ] common a,b,c

common x,y common z

兰州交通大学试卷（附卷）

勤学习 祝成功 守纪律 莫舞弊

装班级 姓名： 学号

密考题书写要求：上下不得超过黑线两端点

28．子程序的虚参可以是 。 [A ] 变量名、数组名、过程名 [B ] 变量名、数组名、过程名和符号常量名 [C ] 变量名、数组名、数组片段、过程名 [D ] 任意符号名 29．有如下定义： type student integer num character*10 name real score end type type(student):: stu 结构体变量stu 占据内存单元字节数是 。 [A] 4 [B] 12 [C] 18 [D] 不确定 30．语句open(1, file=’in.dat ’) 打开的是 文件。 [A] 有格式顺序存取 [B] 无格式顺序存取 [C] 有格式直接存取 [D] 无格式直接存取 二、填空题（每空2分，共20分。请将以下程序空缺补充完整，并将正确答案写在答题纸相应位置上） 1．从键盘输入a ，x 的值，输出y 的值。x a x y ln 2π++= real a, x,y read *,a,x y= （1） print*，y

end 2．计算表达式 2+（2+4）+（2+4+6）+（2+4+6+8）+ … +（2+4+6+8+ … + n ）的值。

（运行时从键盘输入 n 的值。

） read(*,*) n m=0 k=0 do i=2,n,2

k= （2） m= （3） enddo

write(*,*) 'm=', m end

3．以下程序在主程序中输入10个数据，调用排序子程序，将10个数按升序排序后输出到一个文本文件中。

integer a(10) read *, a

call sort(a,10)

open(1,file=”out.dat ”)

（4） close(1) end

subroutine sort(a, n)

（5） do i=1,n-1

do j= （6） if(a(i)>a(j)) then

t=a(i); a(i)=a(j); （7） endif

enddo enddo end

4．利用递归函数fib(n)，求出前20个斐波那契数：1,1,2,3,5,8，……。斐波那契数由下面的递推公式定义。

??

?

??>-+-===)2( )1()2()1( 1)0(0

)(n n Fib n Fib n n n Fib

parameter (n=20) integer a(n) do i=1,20 a(i)=fib(i)

装班级 姓名： 学号

密考题书写要求：上下不得超过黑线两端点

enddo print "(5i6)",a

（8）

recursive function fib(n) （9） if(n==0) then f=0

else if(n==1) then f=1 else

f= （10） endif end

三、阅读程序，在答题纸上写出程序的运行结果。（每题3分，共15分）

1．logical k

read(*,*)a,b k=a.gt.b if(k)then x=b+2*a else x=b end if

write(*,*)x end

从键盘输入：4, 3

2．integer ：：n ，k real ：：s ，t read *, n s = 0.0 k = 1

if ( n >= 5 ) then s = s + 12 t = 1

do while ( k < n ) t = t * 2 s = s + t k = k +1 end do end if print * , s end

从键盘输入：6

5．common a(5)

do i=1,5 a(i)=i enddo call sub(p) print *,p end

subroutine sub(s) common b(5) s=0 do i=1,5 s=s+b(i) enddo end

四、编程题（第1小题7分，第2小题8分，3、4小题各10分，共35分）

1．编程输出u 的值，其中，u=y x

，???≥-?+=b a b a b a b a x ，???≥+?=b

a b a y b)b/(a b)-a/(a 。a ，b 的值由键盘输入。（7分）

2．打印由1，2，3这三个数字组成的所有可能的三位数。（允许出现各位数字相同的数，如111，222，…）。（8分）

3．编程计算 1/1!+1/2!+1/3!+1/4!+……+1/10! 的值。（10分） 4．编程求一个4×3矩阵的转置矩阵。（10）

装订线 班级： 姓名 学号：

密封线

兰州交通大学试卷（答题纸）

考题书写要求：上下不得超过黑线两端点

四、编程题（第1小题7分，第2小题8分，3、4小题各10分，共35分）

2010级程序设计基础（Visual FORTRAN ）试卷答题纸 核分人签名： 答题说明：（1）请按要求将答案书写在答题纸指定的位置上； （2）密封线内学号栏填写完整的8位学号；答题纸中上方填写在教学班中的序号。

一、选择题（在每小题给出的4个选项中只有一项是正确的，将正确选项的

字母序号填在答题纸表格的对应空位中。每题1分，共30分） 二、填空题（每空2分，共20分） 1．（1） （6） 2．（2） （7） （3） 4．（8） 3．（4） （9） （5） （10）

3分，共15分）

1． 4．

2．

3．

5．

教学班中学生的序号□□