fortran考试试题(A)有答案版

中南林业科技大学课程考试试卷 考试时间 填写： 填写： 课程名称： 课程名称： Fortran 语言程序设计 ；试卷 学 年 考试时间： 编号： 月 日 编号：A 卷；考试时间：120 分钟 院 考 专 试用 题 一二 三 四 总 业 号 分 班 应 30 10 20 40 级 得 年 分 级 实 姓 得 名 分 学 填空题( 号 一、填空题(30 分，每题 2 分) 得分 评 卷 复 查 人 人装订线(答题不得超过此线)

1. Fortran 语言中有：整数型 逻辑型 字符型 实数 语言中有： 复数型五种基本数据类型 五种基本数据类型。 型 复数型五种基本数据类型。 2. Fortran 程序的书写格式有两种固定格式 自由格 程序的书写格式有两种固定格式 式。 3. 字符型常数 字符型常数’this”s’的字符长度为 6 的字符长度为 4. 下列程序运行结果为 125。 。 Program main1

Implicit none Integer::floor=5,i Do i=1, floor If(i==3)cycle If(i==4)cycle Write(*,*)i End do end 5. 下列程序的运行结果为 Implicit none Real :: a, b, m A=2.0 B=76.0 If(a<b)then M=a A=b B=m End if Write(*,*) “a=”,a “b=”,b end 6. 下列程序的运行结果是

Program test

Implicit none

Integer::sum,i sum=0.0 do i=1,203,2 sum=sum+i end do write(*,*) i

end

7. 下列程序的运行结果是

Program test

Implicit none

Integer::i

Integer::a(5)=(/ (i, i=1,5) /)

Integer::b(5)=0

Where (a<3)

b=a

End where

Write(*,”(5(i3,1x))”) b

end

8. 下列程序的运行结果是。

Program test

Implicit none

Integer,parameter:: limit=10

Integer counter

Integer:: ans=0

Counter=2

do while(counter<=limit)

ans=ans+counter

counter=counter+2

end do

Wrte(*,*)ans

end

9. 下列程序的运行结果是

Program main

implicit none

integer ::a=1

integer ::b=2

call add ( a )

Call add ( b)

Write(*,*) a , b

Stop

end

Subroutine add (sum)

Implicit none

integer :: sum

sum=sum+1

Return

end

10. 下列程序的运行结果是。

Program main

implicit none

integer, target :: a=1

integer, pointer :: p

p=>a

p=3

write(*,*)a

end

211.二维数组在内存中的存储顺序为： 1324 。 3412. 下列程序的运行结果是

Program test

Implicit none

Integer::i

Integer::a(5)

Forall ( i=1:5 )

A(I)=5

End forall

Write(*,*)a

Stop

end

13.数学表达式13-1/2的值为：

14.逻辑表达式(（3>5）.and.(4>1)).or.(5<8)的值为: ture 。

15. 下列程序的运行结果是

Program test

Implicit none

Complex a,b,c

A=(1.0,2.0)

b= (2.0,4.0)

c=a+b

Write(*,*) c

Stop

end

二、程序说明题（10分，每空2分）

Fortran语句中，“！”后的内容为对整个程序或某行程序的说明，请在下面程序中感叹号后，对相应fortran语句进行说明。（10分，每空2分）

Program test

Implicit none

integer, parameter :: students=5 ！定义一个永久

integer :: student (students) ！ 定义一个长度为 integer :: I

Do i=1, students

write(*,"('number',i2)")I ！ 输出I的数值

read(*,*) student (i) ！输入一个数值赋值 end do

end

三、程序完善题（20分，每空2分）

1.编写程序，读入一个学生的考试成绩，然后输出该成绩的等级。成绩等级规定为：90～100分为A级，80～89分为B级，70～79分为C级，60～69分为D级，60分以下为E级。若输入负分或大于100分的成绩，则程序输出一个“？”号。

program main

implicit none integer::score character grade write(*,*)” score:”

grade=”?”

)then

elseif(score>=60)then elseif(score>=0)then grade=”D”

grade=”E”

endif

end write(*,*)” 成绩等级为:”,grade

个班有2.编写程序10名学生。,读入一年级 5个班同学的数学成绩，每

program main

implicit none

integer,parameter::classes=5

integer,parameter::students=10 , )

integer::s integer::c

write(*,*)"number",s,"classes",c end do

end do

end

四、程序编写题（40分）

1. 计算1+2+3+4+ +100=

Program test

Implicit none

Integer::sum,i sum=0.0 do i=1,100,1 sum=sum+i end do write(*,*) i

end

2.编写程序将100个整数按照从小到大的顺序排列（备注：用子程序实现排序功能，然后通过主程序来调用）。