《FORTRAN90程序设计》课程复习.docVIP

考试说明 【上机考试】 共有：“操作系统题、改错题、程序填空题、程序设计”题四题 具体注意： 操作系统题 注意事项： 1.共有5小题 2.不得删除考生文件夹下与试题无关的文件或文件夹，否则将影响考生成绩 3.WARN文件夹是备份文件夹，请不要在该文件夹下操作 已知考生文件夹下有如下文件夹与文件： 考生文件夹─┬─MYBOOK─┬POLICE.XLS │ ├GOOD.TXT │ └THANK ├─IMAGE┬RED.BMP │ ├YELLOW.JPG │ └RECORD─┬─HAPPY.RMVB │ └PHOTO.MP3 └─DATA─┬─OLD.PAS └─HOUR 请进行以下操作： 1.将其中的YELLOW.JPG文件删除。 2.将其中的文件GOOD.TXT改名BEST.RTF。 3.将其中的文件夹THANK删除。 4.在文件夹DATA下建立一个新文件夹TEST。 5.将文件PHOTO.MP3复制到新文件夹TEST中。 下面点击“操作系统”进入系统环境进行操作。 改错题 注意事项 1.标有!==ERROR?的程序行有错,请直接在该行修改 2.请不要删除 !==ERROR?错误标志 3.请不要将错误行分成多行 4.请不要修改任何注释 题目： 下面程序的功能是输出正整数10至60之间的所有素数。请改错。 PROGRAM EX IMPLICIT NONE INTEGER::I,J DO I=10,60 DO J=2,I-1 IF (MOD(I,J)=0) THEN EXIT !==ERROR1 END DO IF(JI) PRINT *,I !==ERROR2 END DO END EX !==ERROR3 点击“程序设计”进入编辑环境进行修改，通过运行检查正确情况。 程序填空题 注意事项 1.请删除标有!==BLANK?的程序行上的下划线,将正确的答案填在原下划线处 2.请不要删除!==BLANK?填空标志，否则将会无分。 3.请不要将需要填空的行分成多行 4.请不要修改任何注释 题目: 下面程序的功能是求两个正整数M,N的最大公约数。请填空。 PROGRAM EX IMPLICIT NONE INTEGER ::M,N,K,YS READ *,M,N IF(MN) THEN K=M ________ !==BLANK1 N=K END IF YS=MOD(_______) !==BLANK2 DO WHILE(YS/=0) M=N N=YS YS=MOD(_______) !==BLANK3 ENDDO PRINT *,N END 点击“程序设计”进入编辑环境进行填空，通过运行检查正确情况。 程序设计题 [注意] 1.请不要修改题目中已经给出的任何 语句,否则可能本题没有分数 2.程序编辑确定后,必须运行一次 3.只能在 !*********** BEGIN *************** 和 !*********** END ************* 之间的空白处编写程序 题目： 已知二维数组A为： 3 1 2 5 7 0 9 3 8 5 6 4 求数组A中最大元素M及所在的位置（行下标为H，列下标为L）。 输出格式: M= 9,H= 2,L= 3 点击“程序设计”进入编辑环境进行编程： PROGRAM EXAM IMPLICIT NONE INTEGER,DIMENSION(3,4)::A DATA A/3,7,8,1,0,5,2,9,6,5,3,4/ INTEGER::M,H,L !M表示最大数,H和L分别表示行下标和列下标 !!考生做题开始 !!************ BEGIN ******************* INTEGER::I,J M=A(1,1);H=1;L=1 DO I=1,3 DO J=