内容发布更新时间 : 2026/9/1 23:59:11星期一 下面是文章的全部内容请认真阅读。
考试时间填写： 年 月 日 考试用 中南林业科技大学课程考试试卷
课程名称： Fortran语言程序设计 ；试卷编号：A 卷；考试时间：120分钟
二 10 三 20 四 40 总分 学院
专业班题号 一 级 年级 应得分 30 姓名 实得分 学号 得分 一、填空题（30分，每题2分） 评卷人 复查人 1. Fortran语言中有：整数型 逻辑型 字符型 实数型 复数型五种基本数据类型。 2. Fortran程序的书写格式有两种固定格式 自由格式。 3. 字符型常数’this”s’的字符长度为6 4. 下列程序运行结果为125。 装订线(答题不得超过此线) Program main Implicit none Integer::floor=5,i Do i=1, floor If(i==3)cycle
If(i==4)cycle
Write(*,*)i End do end
5. 下列程序的运行结果为76.0,2.0。
Program main Implicit none Real :: a, b, m A=2.0 B=76.0
If(a Write(*,*) “a=”,a “b=”,b end 6. 下列程序的运行结果是10302。 Program test Implicit none Integer::sum,i sum=0.0 do i=1,203,2 sum=sum+i end do write(*,*) i end 7.下列程序的运行结果是12000。 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.下列程序的运行结果是30。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.下列程序的运行结果是2,3。 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.下列程序的运行结果是3。 Program main implicit none integer, target :: a=1 integer, pointer :: p p=>a p=3 write(*,*)a end 11.二维数组 12.下列程序的运行结果是55555 。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的值为：13。 14.逻辑表达式(（3>5）.and.(4>1)).or.(5<8)的值为: ture 。 15. 下列程序的运行结果是(3.000000,6.000000)。 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 12在内存中的存储顺序为： 1324 。 34 二、程序说明题（10分，每空2分）