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

考试时间填写： 年 月 日 考试用中南林业科技大学课程考试试卷 装订线(答题不得超过此线) 学院 专业班级 年级 姓名 学号 课程名称： Fortran语言程序设计 ；试卷编号：A 卷；考试时间：120分钟题号一二三四总分应得分30102040 实得分一、填空题（30分，每题2分）得分评卷人复查人1. Fortran语言中有：整数型 逻辑型 字符型 实数型 复数型五种基本数据类型。2. Fortran程序的书写格式有两种固定格式 自由格式。3. 字符型常数this”s的字符长度为64. 下列程序运行结果为125。Program mainImplicit noneInteger:floor=5,i Do i=1, floor If(i=3)cycleIf(i=4)cycle Write(*,*)i End do end5. 下列程序的运行结果为76.0,2.0。 Program main Implicit none Real : a, b, m A=2.0 B=76.0 If(ab)then M=a A=b B=m End if Write(*,*) “a=”,a “b=”,b end6. 下列程序的运行结果是10302。 Program testImplicit noneInteger:sum,isum=0.0do i=1,203,2 sum=sum+iend dowrite(*,*) iend7. 下列程序的运行结果是12000。Program testImplicit noneInteger:iInteger:a(5)=(/ (i, i=1,5) /)Integer:b(5)=0 Where (a3) b=a End whereWrite(*,”(5(i3,1x)”) bend8. 下列程序的运行结果是30。Program testImplicit noneInteger,parameter: limit=10Integer counterInteger: ans=0Counter=2do while(countera p=3 write(*,*)aend11.二维数组在内存中的存储顺序为： 1324 。12. 下列程序的运行结果是55555 。Program testImplicit noneInteger:iInteger:a(5)Forall ( i=1:5 ) A(I)=5End forallWrite(*,*)aStopend13.数学表达式13-1/2的值为：13。14.逻辑表达式(（35）.and.(41).or.(5100)then grade=”?”elseif( score=90 )then grade=”A”elseif( score=80 )then grade=”B”elseif( score=70 )thengrade=”C”elseif(score=60)thengrade=”D”elseif(score=0)thengrade=”E” ELSE grade=”?”endifwrite(*,*)” 成绩等级为:”,gradeend2.编写程序,读入一年级5个班同学的数学成绩，每个班有10名学生。program mainimplicit noneinteger,parameter:classes=5integer,parameter:students=10integer:student( students , classes )integer:sinteger:cdo c=1, classes do s=1, students write(*,*)number,s,classes,c read(*,*) student(students,classes) end doend doend四、程序编写题（40分）得分评卷人复查人1. 计算1+2+3+4+100= Program testImplicit noneInteger:sum,isum=0.0do i=1,100,1