FORTRAN机试题(A卷).docVIP

《高级语言程序设计(FORTRAN)》机试题(A卷) 注： (1) 答题时间 分钟，开卷，要求独立完成,每次违规机试成绩扣20分。在盘的根目下以位学号为名建立考试文件夹，考试创建的文件均存放在此文件夹下。Fortran PowerStation 4.0的Microsoft Developer Studio,进入Fortran PowerStation 4.0的集成开发环境。 (4) 从File菜单中选择New菜单项，在弹出的对话框中选取Project Workspace建立一个项目工作间，在接着弹出的对话框的Type 选择Console Application, Name栏内填入项目名称（输入Test），Location内填入保存位置(输入F:\XXXXXXXX为你本人的8位学号)，单击Create按钮。 1.计算下面分段函数的值，编写程序实现之。 ? ? ? ? ? ? 以T1.F90为文件名保存源程序。 PROGRAM EX1 IMPLICIT NONE REAL X,Y READ*,X IF(X0)THEN Y=EXP(2*(ABS(X))**(1.0/2))+SIN(X) ELSEIF(X==0)THEN Y=2 ELSE Y=X/(1+X**2)**(1.0/2) ENDIF PRINT*,Y=,Y END 2. 在1(500中,找出能同时满足用3除余2,用5除余3,用7除余2的所有整数。编写程序实现之。 以T2.F90为文件名保存源程序。 PROGRAM EX2 IMPLICIT NONE INTEGER I DO I=1,500 IF(MOD(I,3)==2.AND.MOD(I,5)==3.AND.MOD(I,7)==2)THEN PRINT*,I=,I ENDIF ENDDO END 3．我国古代“算经”里提出“百钱买百鸡”问题：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，问鸡翁、母、雏各几何？请编程求解该问题。 以T3.F90为文件名保存源程序。 PROGRAM EX3 INTEGER::X,Y,Z,N=0,SUM REAL MONEY DO X=0,100 DO Y=0,100 DO Z=0,100 SUM=X+Y+Z MONEY=15*X+9*Y+Z IF(SUM==100.AND.MONEY==300)THEN N=N+1 PRINT*,公鸡,X ,母鸡,Y ,鸡雏,Y ENDIF ENDDO ENDDO ENDDO END 4. 矩阵A=，编程计算该矩阵四边元素之和。（注使用DATA语句对数组赋初值。 以T4.F90为文件名保存源程序。 5. 自定义一个计算阶乘函数函数。 以T5.F90为文件名保存源程序。 IMPLICIT NONE INTEGER M,N,FAC,Y READ*,M,N Y=FAC(N)/FAC(M)/FAC(N-M) PRINT*,Y END FUNCTION FAC(X) IMPLICIT NONE INTEGER FAC,X,I FAC=1 DO I=1,X FAC=FAC*I ENDDO END 考试交卷 1．关闭所有打开的文件，选定“8位学号”文件夹，单击鼠标右键，在弹出菜单中选择[添加到“8位学号.rar”],将整个考试文件夹压缩打包到“8位学号.rar”文件。 2. 登录到8（用户名：JLHSTD ，密码：12345），将“8位学号.rar”上传到“007土木FORTRAN机试交卷”下你所在班级的文件夹内。 x0 x=0 x0