Fortran模拟试卷1-8

FORTRAN90FORTRAN90 模拟测验一 笔试部分 模拟测验一 笔试部分 一 一 选择题 从选择题 从 4 4 个可选答案中选择一个正确答案添入空白处 个可选答案中选择一个正确答案添入空白处 1 FORTRAN 90 规定程序中名称的长度不能超过 个字符 A 8B 15C 31D 63 2 关于 FORTRAN 90 程序单元 以下四种说法中正确的是 A 一个 FORTRAN 90 程序由多个程序单元组成 其中有一个且只能有一个主程序单元 B 一个 FORTRAN 90 程序由多个程序单元组成 其中有一个且只能有一个模块单元 C 一个 FORTRAN 90 程序允许有多个程序单元 但每类程序单元只能有一个 D 一个 FORTRAN 90 程序允许有多个程序单元 但主程序单元和模块单元只能有一个 3 FORTRAN 90 程序中允许使用的三个通用标志符是 A C P2 J P1 P2 P2 P1 A 20 20B 20 30C 30 20D 30 30 15 下列语句函数声明中 正确的是 A FUN1 I I 5 I 10 I 2B FUN2 MAT 5 A 5 A MAT 5 C FUN3 X Y 5 0 X 2 Y 2 5 0 2D FUN4 X Y SQRT X 2 Y 2 5 0 2 二 填空题 在空白处添入正确内容 填空题 在空白处添入正确内容 1 下列程序执行后 num 1 3 1 num 2 3 2 num 3 1 3 INTEGER 1 DIMENSION 1 3 1 3 num 0 INTEGER 1 i 1 j 2 k num i j 1 DO k 2 9 i i 1 j j 1 IF I 1 AND j 1 THEN i i 2 j j 1 ELSEIF i 1 THEN i 3 ELSEIF i 1 AND j 1 THEN j 3 ELSEIF i 3 AND ja p2 b c 2 p1 3 p2 WRITE FMT I4 c CALL sp p1 p2 c 2 p1 3 p2 WRITE FMT I4 c END PROGRAM main SUBROUTINE sp p1 p2 INTEGER 2 POINTER p1 p2 p3 p3 p1 p1 p2 p2 p3 END SUBROUTINE sp 6 下列程序执行后 输出的第一行是 12 第二行是 13 FUNCTION s sum str1 str2 RESULT s result CHARACTER len INTENT in str1 str2 INTEGER s result i1 j1 i2 j2 i1 1 j1 len str1 DO WHILE str1 i1 i1 i1 i1 1 ENDDO DO WHILE str1 j1 j1 j1 j1 1 ENDDO i2 1 j2 len str2 DO WHILE str2 i2 i2 i2 i2 1 ENDDO DO WHILE str2 j2 j2 j2 j2 1 ENDDO s result j1 i1 1 j2 i2 1 END FUNCTION s sum PROGRAM Main INTERFACE OPERATOR FUNCTION s sum str1 str2 RESULT s result CHARACTER len INTENT in str1 str2 INTEGER s result END FUNCTION s sum END INTERFACE CHARACTER len 80 string1 string2 INTEGER m 20 mresult sresult string1 I am a teacher string2 He is a student sresult string1 string2 mresult sresult m print sresult print mresult END PROGRAM Main 7 下列程序执行后 输出的第一行是 14 第二行是 15 MODULE student record TYPE student CHARACTER len 20 name INTEGER 2 score 2 END TYPE student END MODULE student record PROGRAM Main USE student record TYPE student students 2 s REAL a1 a2 s name Wang gang s score 1 70 s score 2 80 students 1 s s name Zhao wei s score 1 50 s score 2 90 students 2 s a1 students 1 score 1 students 1 score 2 2 a2 students 2 score 1 students 2 score 2 2 PRINT a1 a1 PRINT a2 a2 END PROGRAM main 8 为了提高精度 采用如下迭代公式求解非线性方程 f x 的近似根 迭代公式 其中 当 f xn 1 10 7时 则可取此 xn 1为近似根 使用语句函数定义 g x y 函数 x1 x2 x3 为给定的三个初始近似根 从键盘输入 本程序求 f x ex 3x 2 的根 PROGRAM Main INTERFACE FUNCTION f x RESULT g result REAL 4 x g result 16 END INTERFACE PARAMETER eps 1E 7 REAL 4 x1 x2 x3 root y READ x1 x2 x3 y root x1 x2 x3 f WRITE FMT 1X root F9 6 y END PROGRAM Main yx y f x f y x g h x f xx x fxx n 2nn nn1n x x g x x g x fh 2n1n 1nn 2n FUNCTION root x1 x2 x3 f RESULT root result g x y 17 REAL 4 x1 x2 x3 root result h f x1 g x3 x2 g x2 x1 xnew x3 f x3 x3 x1 f x3 h DO WHILE 18 x1 x2 x2 x3 x3 19 h f x1 g x3 x2 g x2 x1 xnew x3 f x3 x3 x1 f x3 h ENDDO 20 END FUNCTION Root FUNCTION f x RESULT f result REAL 4 x f result f result EXP x 3 x 2 END FUNCTION f 9 有 M 只猴子要选猴王 选举办法为 所有猴子排成一列 从头到尾 1 2 3 报数 所报 数能被 N 整除者留下 其余退出 留下者再从头到尾报数 所报数能被 N 整除者留下 其余退 出 按上述规则反复报数 直到留下不足 N 只猴子时 则此时报 1 者为猴王 选举猴王程序如 下 PROGRAM main EXTERNAL king INTEGER PARAMETER max 50 INTEGER 2 king num max m n READ m n DO i 1 m 21 ENDDO PRINT 1X 猴王为编号是 I2 的猴子 king 22 END PROGRAM main FUNCTION king k m n INTEGER 2 king k m k1 m m1 n p m1 m DO WHILE 23 P 0 DO i 1 m1 IF 24 THEN p p 1 k1 p k i ENDIF ENDDO DO I 1 p k I k1 I ENDDO 25 ENDDO m m1 king k 1 END FUNCTION king 10 数据文件 score dat 中有某班学生成绩数据 每个学生的数据有 学号 姓名 成绩 学号为 字符串 域宽 7 位 姓名为字符串 域宽 8 位 成绩为整数 域宽为 3 位 数据之间紧密排列 一行一个学生记录 从数据文件中读取数据 统计参加补考的学生人数 并从屏幕上输出补考 学生人数及名单 使用学生信息派生类型 studen record 有三个成员 学号 姓名 成绩 定义班级结构体数组 class 内部子例行程序统计补考人数并输出有关信息 模块 student data 定义派生类型 结构体数组及内部子程序 MODULE student data TYPE student record CHARACTER number 7 name 8 INTEGER score 26 PRIVATE max class input PARAMETER max 50 27 class max INTEGER n 0 CONTAINS SUBROUTINE input OPEN 1 FILE score dat DO WHILE NOT EOF 1 28 READ 1 A A I3 class n number class n name class n score ENDDO END SUBROUTINE input SUBROUTINE search INTEGER m 0 CALL input DO i 1 n IF 29 THEN m m 1 PRINT 1X A 2X A 2X I3 class i number class i name 否则返回 0 含有错误的源程序为 PROGRAM MAIN PARAMETER N 10 INTEGER 2 A N B R1 DATA A 11 12 13 14 15 16 17 18 19 20 OPEN 1 FILE MFY1 OUT B 14 CALL Y A B N R1 WRITE 1 RESULT R1 ENDPROGRAM SUBROUTINE Y S W M R INTEGER 2 M I J R INTEGER 2 S M W F F 0 I 1 J M DO WHILE IW THEN I N 1 k k 1 1 3 1 2 1 1 1 ELSE I N 1 ENDIF ENDDO R N END SUBROUTINE 要求要求 1 必须将上述源程序录入到文件 MYF1 F90 中 然后根据题目的要求以及程序中前后 语句的逻辑关系 改正程序中的错误 2 改错时 除可以增加说明语句和可调换语句顺序外 不允许增加或删除任何语句 3 改正后的程序存放在考试盘 MYF1 F90 文件中 注意注意 本题完成后必须将文件 MYF1 F90 MYF1 OUT MYF1 EXE 拷贝到考试盘中供阅卷使用 二 编程题二 编程题 题目 编写程序计算 其中 K 是 的整数部分 使用 INT 函数求整数部分 s s 是 的和 N 的值通过创建的数据文件 MYF2 DAT 读入 输入 N 的值为 3 5 要求要求 1 必须将源程序存到文件 MYF2 F90 中 2 建立数据文件 MYF2 DAT 所需 N 的值通过该数据文件读入 3 用文件操作语句 存入结果文件 MYF2 OUT 中 注意注意 本题完成后必须将文件 MYF2 F90 MYF2 DAT MYF2 OUT MYF2 EXE 拷贝到考试盘中 供阅卷使用 0N 2221 N21 FORTRAN90FORTRAN90 模拟测验三 笔试部分 模拟测验三 笔试部分 一 选择题 从一 选择题 从 4 4 个可选答案中选择一个正确答案添入空白处 个可选答案中选择一个正确答案添入空白处 1 下列字符串中可用作 FORTRAN90 变量名的是 A ABC B A BCD C 2ABC D AB C 2 下列数据中不符合 FORTRAN90 常数表示的为 A 21 50 B 0 0D0 C TRUE D 1000 3 执行 WRITE 8 1X 2I4 I I 1 3 后生成 个记录 A 1 B 2 C 3 D 12 4 数学表达式的 FORTRAN 表达式为 A SQRT X 3 LOG X 2 Y 2 X B SQRT X 3 LOG X 2 Y 2 X C SQRT X 3 LN X 2 Y 2 X D SQRT X 3 LN X 2 Y 2 X 5 表达式 B SQRT B B 4 0 A C LE 3E 5 值的类型是 A 逻辑型 B 整型 C 实型 D 字符型 6 下面格式输入语句 READ 3F3 1 X 如果输入 1234 567 则 X 的值为 A 123 0 B 12 3 C 1234 D 1234 567 7 FORTRAN90 语言中变量名长度为 个字符 A 1 8 B 8 C 1 31 D 31 8 按隐含约定 设 X 2 5 Y 1 0 Z 3 0 执行赋值语句 I X Y Z 后 I 的值为 A 2 0 B 2 C 3 D 3 0 9 下列语句中那个语句是错误的是 A READ X B READ X C PRINT X D PRINT X 10 说明语句 REAL A 1 2 1 10 说明数组 A 的元素个数为 A 11 B 12 C 22 D 24 11 M 能被 N 整除的 FORTRAN 表达式为 A M M 0 B M MOD N EQ 0 C M N EQ 0 D MOD M N EQ 0 12 以下关于接口块的说法中 不正确的是 A 通知编译程序主调程序调用过程时所需要的接口信息 B 可用于重载赋值 C 接口块中可以包含可执行语句D 可用于自定义运算符 13 以下关于 FORTRAN90 中有关哑元 形参 实元 实参 说法中 不正确的是 A 实元和哑元个数一定要相等B 实元和哑元个数可以不相等 C 哑元可以用可调数组D 哑元可以用假定形状数组 14 下列关键字中不能用于说明变量属性的是 A SAVEB OPTIONAL C CYCLE D INTENT 15 以下关于派生类型的说法中 不正确的是 A 派生类型说明中 不能有任何可执行语句 B 可将一个派生类型变量的值整体赋给另一个派生类型变量 C 派生类型成员为字符型时 长度可以不确定 D 派生类型成员可以是自身同类型的指针 x yx ln x 22 3 二 填空题 在空白处添入正确内容 二 填空题 在空白处添入正确内容 1 阅读以下程序 FUNCTION fac A RESULT rfac INTEGER A rfac INTEGER SAVE C 3 B 1 C C 1 rfac A B C END FUNCTION PROGRAM main INTEGER A 3 J fac DO J 0 2 PRINT fac J ENDDO END PROGRAM main 执行以上程序后 输出的第一行是 1 第三行是 2 2 阅读以下程序 SUBROUTINE swap S1 S2 CHARACTER S1 S2 CHARACTER 3 T T S1 S1 S2 S2 T END SUBROUTINE PROGRAM MAIN CHARACTER 3 S1 BD S2 BC S3 AB IF S1 S2 CALL swap S1 S2 IF S2 S3 CALL swap S2 S3 IF S1 S2 CALL swap S1 S2 PRINT S1 PRINT S2 PRINT S3 END PROGRAM MAIN 执行以上程序后 输出的第一行是 3 第二行是 4 第三行是 5 3 阅读以下程序 MODULE aa INTEGER J 2 END MODULE aa SUBROUTINE p USE aa DO I 1 3 J J 1 PRINT I3 J ENDDO PRINT END SUBROUTINE PROGRAM MAIN USE aa DO I 0 2 CALL p ENDDO PRINT I END PROGRAM MAIN 执行以上程序后 输出的第一行是 6 第二行是 7 第三行是 8 4 阅读以下程序 PROGRAM MAIN INTEGER A 3 3 I J K N DO K 1 5 IF K 3 THEN DO I 1 K N N 1 A I K I 1 N ENDDO ELSE DO I 1 6 K N N 1 A K 3 I 4 I N ENDDO ENDIF ENDDO DO K 1 3 DO I 1 3 PRINT I3 A K I ENDDO PRINT ENDDO END PROGRAM MAIN 执行以上程序后 A 1 3 的值是 9 A 2 2 的值是 10 A 3 1 的值是 11 5 阅读以下程序 sum 1 0 ID 1 0 K 1 10 K 1 0 K ID ID 2 0 sum K ID IF ID LE 7 GOTO 10 WRITE sum WRITE ID END 执行以上程序后 输出的第一行是 12 第二行是 13 6 阅读以下程序 REAL A 10 IP DO K 1 10 A K IP K 2 IP K ENDDO WRITE 100 A 1 A 2 100 FORMAT 1X 2F3 1 END REAL FUNCTION IP N M 0 DO K 1 N M M K ENDDO IP M END 执行以上程序后 A 1 的值是 14 A 2 的值是 15 7 求多项式 0 1 1 n 1 n 1 n n之和的外部函数 数组 A 表示多项式系数 变量 T 表示 n S 表示多项式之和 FUNCTION p A N x RESULT r p 16 S 17 T 1 0 DO I 1 N T 18 S S A I T 19 PRINT S S 20 END 8 用选择法 将 N 个整数按从小到大排列 PARAMETER numl 500 INTEGER num numl READ N num I 21 DO I 1 N 1 min I DO J 22 IF num min GT num J 23 ENDDO IF min NE I THEN it num I num I num min 24 ENDIF ENDDO PRINT num I I 1 N END 9 以下程序是通过超载赋值 运算符 实现将字符的 ASCII 码赋给整型变量的功能 SUBROUTINE CTOI I C INTEGER INTENT OUT I CHARACTER INTENT IN C I 25 END SUBROUTINE PROGRAM MAIN INTERFACE ASSIGNMENT SUBROUTINE 26 INTEGER INTENT OUT I CHARACTER INTENT IN C ENDSUBROUTINE 27 INTEGER I CHARACTER C A I C PRINT C I END PROGRAM MAIN 10 求N PRINT Input N READ N M 1 28 DO nfac nfac M IF 29 THEN PRINT N nfac 30 ENDIF M M 1 ENDDO END FORTRAN90FORTRAN90 模拟测验三 上机部分 模拟测验三 上机部分 一 一 改错题改错题 题目题目 本程序从键盘输入 n 个整数 并存在数组中 以 0 作为输入数据的结束标志 如果 相邻的两数之和为素数 则输出它们的元素名称和元素值 这里第一个元素和最后一个非零元素 也认为是相邻元素 从键盘输入的数据为 5 7 4 9 31 6 0 含有错误的程序为 FUNCTION PRIME N RESULT RP IMPLICIT NONE J SQRT REAL N I 2 RP 1 DO WHILE I J IF N I I N RP 0 I I 1 ENDDO END FUNCTION PROGRAM MAIN INTEGER I J N A 30 PRIME N 1 PRINT 请输入数据 READ A N DO WHILE A N 0 N N 1 PRINT 请输入数据 READ A N ENDDO DO I 1 N 1 J I 1 IF J N J 1 IF PRIME A J 1 THEN PRINT 1X A I2 I3 3X A I3 I3 I A I J A J ENDIF ENDDO END 要求要求 1 必须将上述源程序录入到文件 MYF1 F90 中 然后根据题目的要求以及程序中前后 语句的逻辑关系 改正程序中的错误 2 改错时 除可以增加说明语句和可调换语句顺序外 不允许增加或删除任何语句 3 改正后的程序存放在考试盘 MYF1 F90 文件中 注意注意 本题完成后必须将文件 MYF1 F90 拷贝到考试盘中供阅卷使用 二 编程题编程题 题目 求的近似值 当求出的最后一项小于 1 0E 6 时 就认为满足精度要 i i ii S 1 2 1 求 输出 S 的近似值 及相应的 i 值 要求要求 1 必须将源程序存到文件 MYF2 F90 中 2 用文件操作语句将求出的 S 近似值和相应 i 值存入结果文件 MYF2 OUT 中 注意注意 本题完成后必须将文件 MYF2 F90 及 MYF2 OUT 拷贝到考试盘中供阅卷使用 FORTRAN90FORTRAN90 模拟试题四 笔试部分 模拟试题四 笔试部分 一 一 选择题选择题 从 从 4 4 个可选答案中选择一个正确答案添入空白处 个可选答案中选择一个正确答案添入空白处 1 下面是 5 个准备用作子程序 辅程序 的形参 四组选择中其形参均正确的是 常数符号名 变量名 数组元素名 形式过程 数组名 A B C D 2 语句 OPEN 3 FILE ABC ACCESS DIRECT RECL 40 打开的是 文件 A 有格式顺序存取B 无格式顺序存取 C 有格式直接存取D 无格式直接存取 3 辅程序引用时 某实参可为常数 函数引用及表达式时 其相应形参是 A 变量名B 数组名C 过程名D 4 并非所有的标准函数名均可作为过程形实结合的实参 例如 就不能 A ABSB SINC REALD LOG 5 以下程序片段中其值均为 9 的元素是 INTEGER N 1 1 1 1 1 1 N RESHAPE 1 2 3 4 5 6 7 8 9 10 11 12 13 14 13 12 11 10 9 8 7 6 5 4 3 2 1 3 3 3 A N 1 1 1 与 N 1 1 0 B N 1 1 0 与 N 1 1 0 C N 1 1 1 与 N 1 1 1 D N 1 1 1 与 N 1 1 1 6 下列数据中 不符合 FORTRAN90 常量表示的是 A 25 6B 3 2344D0C BOOT D TRUE 7 运行下列程序时输入数据 5E2 后 其输出结果是 READ E5 2 X WRITE 1X F6 2 X END A 5 00B 500 00C 0 05D 圆心在原点的两个同心圆 半径分别为 2 和 4 描述点 X Y 在小圆外 大圆内 包括在两圆周 上 的表达式是 A ABS X 2 0B 2 0 SQRT X X Y Y 4 0 C X X Y Y 4 0 D X OR Y 2 0 AND X OR Y A LOGICAL L INTEGER I J READ X Y L IF L THEN CALL one PRINT 1X 5I4 B I J J 1 5 I 1 5 ELSE CALL two PRINT 1X 5I4 B I J J 1 5 I 1 5 ENDIF END SUBROUTINE one USE AA C A INTEGER I IT DO I 1 5 IT C I X C I X C I Y C I Y IT ENDDO END SUBROUTINE two USE AA X2 X Y2 Y D A INTEGER I IT DO I 1 5 IT D X2 I D X2 I D Y2 I D Y2 I IT ENDDO END 6 以下程序运行后 下列变量的输出结果是 C 11 F 12 A 20 13 C 21 14 INTEGER A 100 B 100 C I REAL F C 1 DO I 1 100 C C 1 A I C B I C C ENDDO CALL SS A 10 C B 20 A 10 F PRINT 1X C I4 1X F F6 1 C F END SUBROUTINE SS A B C D E INTEGER A 50 C 50 B D REAL E E B D PRINT 1X A 20 I4 1X C 21 I4 A 20 C 21 END 7 下列程序运行后的输出结果 第二行为 15 REAL P 5 2 0 3 0 5 0 1 0 3 0 X Y Z INTEGER K L M N N K L M K L M X 1 0 REAL N 2 3 2 Y 2 0 CALL SS X P 1 Z X WRITE 1X X F4 1 1X Z F4 1 X Z END SUBROUTINE SS A B X W REAL A B X Y W A A 1 B B 1 Y 2 0 PRINT 1X W F4 1 W X W Y END 8 下面程序的功能是统计输入英文句子中每个单词所包含的字母个数 程序中数组 ICOUNT 用于 存放统计结果 假设英文句子由字母 空格和句点组成 单词个数不超过 10 每个单词不超过 10 个字母 单词之间有一个空格 句子以句点 结尾 句子长度不超过 72 个字符 INTEGER ICOUNT 10 I NUM CHARACTER 1 ICHR 72 READ 72A1 ICHR NUM 1 DO 16 IF ICHR I 17 IF ICHR I THEN 18 ELSE 19 ENDIF ENDDO PRINT 1X 72A1 ICHR I I 1 72 PRINT 1X 10I5 ICOUNT I 20 END 9 下面程序的功能是计算 7 x 642 531 5 x 42 31 3 x 2 1 xxSIN 753 1 的值 直到最后一项的绝对值小于 1 0E 5 为止 REAL X Y A B T INTEGER N READ X T 21 B 1 0 Y T N 2 DO WHILE 22 A X 2 N 1 2 N 1 B 23 T A B Y Y T N N 1 ENDDO PRINT 1X F5 2 I3 F12 7 X N 1 Y END 10 下面程序的功能是输入十个任意四位整数 A 用来检验 inver 子程序的可靠性 其中 CALL inver A B 应能将 A 中四位数倒过来成为 B 如 A 1966 可得 B 6691 最后计算并输出由 具体数字构成的算式 C A B INTEGER A B C I DO I 1 10 READ A DO WHILE A9999 READ A ENDDO CALL inver A B C A B PRINT 1X I5 I4 I4 C A B ENDDO END SUBROUTINE inver M N IMPLICIT NONE 24 A M DO I 1 4 NN I MOD A 10 25 ENDDO B 0 DO J 1 4 K NN J 10 4 J B B K ENDDO 26 END 11 下面的程序建立一个链表 子程序 fmax 的功能是 求出链表所有结点中数据成员值最大的 结点的位置 并由参数 s 返回给主函数 该函数的第一个参数是链表的首指针 MODULE AA TYPE NODE INTEGER DATA TYPE NODE POINTER NEXT END TYPE NODE CONTAINS SUBROUTINE FMAX HEAD S I 27 INTEGER I J 0 P HEAD S P IF NOT ASSOCIATED P RETURN DO WHILE ASSOCIATED P J J 1 IF 28 THEN I J S P ENDIF 29 ENDDO END SUBROUTINE SUBROUTINE PRINTL H TYPE NODE POINTER H P P H DO WHILE ASSOCIATED P PRINT P DATA P P NEXT ENDDO END SUBROUTINE END MODULE AA PROGRAM MAIN 30 TYPE NODE POINTER H P P1 INTEGER A I NULLIFY P PRINT INPUT DATA READ A DO WHILE A 1 ALLOCATE P P DATA A IF NOT ASSOCIATED H THEN H P P1 P ELSE P1 NEXT P P1 P ENDIF PRINT INPUT DATA READ A ENDDO NULLIFY P CALL PRINTL H CALL FMAX H P I PRINT DDD IF ASSOCIATED P PRINT P DATA I END FORTRAN90FORTRAN90 模拟试题四 上机部分 模拟试题四 上机部分 一 一 改错题改错题 题目 本程序的功能是 求 100 到 999 之间所有三位同构数 所谓三位同构数就是该数出 现在其平方的末三位 含错误的程序为 SUBROUTINE FIND NT FLAG MT IMPLICIT NONE LOGICAL FLAG INTEGER N NT MT K FLAG FALSE N NT MT N N K 1 DO N N 10 IF N 0 EXIT K K 1 ENDDO IF MOD MT 10 NT FLAG TRUE END PROGRAM MAIN LOGICAL FLAG OPEN 1 FILE MYF1 OUT DO N 100 999 CALL FIND N FLAG M IF FLAG WRITE 1 1X N I6 M I8 N M END 要求要求 1 必须将上述源程序录入到文件 MYF1 F90 中 然后根据题目的要求以及程序中前后语 句的逻辑关系 改正程序中的错误 2 改错时 除可以增加说明语句和可调换语句顺序外 不允许增加或删除任何语句 3 改正后的程序存放在考试盘 MYF1 F90 文件中 并将运行结果以 MYF1 OUT 为文件名存 于考盘中 注意 本题完成后必须将文件 MYF1 拷贝到考试盘中供阅卷使用 二 二 编程题编程题 题目 函数 f x 的展开式如下 7 x7cos 6 5 4 3 2 1 5 x5cos 4 3 2 1 3 x3cos 2 1 xcos x f 其中 2n 1 1 3 5 7 9 11 2n 1 2n 2 4 6 8 10 12 2n 将上式编写成外部函数 当通项的绝对值小于 EPS 时 计算停止 在主程序中从数据文件内读出三组 X 和 EPS 的值如下 0 071068 1E 10 0 8660254 1E 9 1 5707963 1E 9 并将三个计算结果写入输出文件 要求 1 按要求编写程序 并将源程序录入到文件 myf2 f90 中 2 建立数据文件 myf2 dat 将三组输入数据在程序运行前输入到该文件中 程序从 该文件中读取数据 3 将程序运行结果存放于 myf2 out 文件中 4 数据文件的打开 读写 关闭均要求用 FORTRAN 90 语言文件操作语句实现 注意 本题完成后必须将 myf2 f90 myf2 dat myf2 out 和 myf2 exe 拷贝到考试盘中 x0 1n2 x 1n2cos n2 1n2 xcos 1n FORTRAN90FORTRAN90 模拟测验五 笔试部分 模拟测验五 笔试部分 一一 选择题 从选择题 从 4 4 个可选答案中选择一个正确答案添入空白处 个可选答案中选择一个正确答案添入空白处 1 一个完整的 FORTRAN 90 源程序的组成不应该 A 只有一个主程序没有外部子程序 B 只有一个主程序和若干子程序 C 只有一个主程序和一个子程序 D 只有外部子程序而没有主程序 2 下列关于 FORTRAN 90 源程序编辑规则的叙述之中 正确的是 A 任何以符号 开头的内容均是注释行 B 主程序第一行必须是 PROGRAM 语句 C 要实现有格式输入输出 必须有 FORMAT 语句 D 每个子程序中必须有一个 RETURN 语句 3 下列关于 FORTRAN 90 源程序编辑规则的叙述之中 正确的是 A IMPLICIT 语句可以放在 REAL 语句行之后 B DATA 语句可以放在说明语句位置 C 注释行不可以放在 END 语句行之后 D FORMAT 语句可以放在 PROGRAM 语句行之 前 4 阅读下列程序 F 1 0 DO J 3 7 2 DO K J 1 J F F K ENDDO ENDDO WRITE I3 F8 1 J F END 程序运行结果是 A 3 6 0 B 5 120 0 C 9 5040 0 D 9362880 0 5 阅读下列程序 A 3 5 CALL suna A A A WRITE F4 1 A CONTAINS SUBROUTINE suba X Y Z Y Y 2 0 Z Z X END SUBROUTINE END 程序运行的结果是 A 7 0 B 5 0 C 3 0 D 1 5 6 阅读下列程序 CHARACTER A 4 B 5 C 4 DATA A B C BIG MIDDLE SMALL WRITE 20 A B C 20 FORMAT 1X A2 A3 A4 END 程序运行结果是 A BIGMIDDLE B C BIGMIDSMA D BIMIDSMAL 7 阅读下列程序 FUN c d a c b d DATA a b 1 0 1 0 WRITE F4 1 FUN a b FUN b a END 程序运行结果是 A 0 0 B 4 0 C 2 O D 3 O 8 阅读下列程序 READ 500 R W WRITE 500 R W 500 FORMAT F5 2 F5 3 END 程序运行时输入初始值 01234567899 结果显示的是 A 12 34 B 12 3456 789 C D 123 4567 899 9 阅读下列程序 DIMENSION M 3 3 DATA M 1 2 3 4 5 6 7 8 9 WRITE 100 M 3 J J 1 3 100 FORMAT 3I2 END 程序运行结果是 A 2 5 8 B 3 6 9 C 4 5 6 D 7 8 9 10 阅读下列程序 DIMENSION S 3 DATA S 1 0 2 0 3 0 WRITE LA 3 S CONTAINS FUNCTION LA N X DIMENSION X N LA 0 L 2 DO I 1 N LA LA X I L ENDDO END FUNCTION END 程序运行结果是 A 1 0000000 B 2 0000000 C 1 D 2 11 阅读下列程序 DIMENSION N 2 DO I 1 2 N I 0 ENDDO K 2 DO I 1 K DO J 1 K N J N I 1 ENDDO ENDDO WRITE 100 N 100 FORMAT I3 I3 END 程序运行结果是 A 2 3 B 3 3 C 2 2 D 3 2 12 阅读下列程序 INTEGER A 3 3 DATA A 9 8 7 6 5 4 3 2 1 WRITE 10 A M N N 1 M M 1 3 10 FORMAT I2 2I2 3I2 END 程序运行结果是 A 9 6 3 B 9 8 7 C 9 D 9 5 2 5 4 8 5 6 5 1 1 7 4 1 3 2 1 CHARACTER 4 A B C 5 DATA A B C YOUR BOYS GIRLS WRITE 1X A4 A5 A6 A1 A B C END 程序运行结果是 A YOURBOYSGIRLS B YOUR 凵 BOYS 凵 GIRLS C YOUR 凵 BOYSGIRLS D YOURBOYS 凵 GIRLS 14 对用作实元的外部过程名 在调用程序单位必须用 加以说明 A EXTERNAL 语句 B INTRINSIC 语句 C FUNCTION 语句 D SUBROUTINE 语句 15 在程序中有输出语句 WRITE 1 REC 5 A B C 那么逻辑设备号 1 所连接的文件类型是 A 有格式顺序文件 B 无格式顺序文件 C 有格式直接文件 D 无格式直接文件 二二 填空题 在空白处添入正确内容 填空题 在空白处添入正确内容 1 阅读下列程序 其功能是求出方程 2X3 3X2 4X 11 0 在区间 1 5 中的一个实数根 运行结果是显 示根值和对分次数 使用的是二分算法 请在其中 处填入适当的内容 FUN X 2 0 X 3 3 0 X 2 4 0 X 11 0 DATA XL XR N 1 O 5 0 0 DO 1 X XL XR 2 0 2 IF ABS FX 1000 THEN WRITE A2 F12 7 A5 I4 X X N N EXIT ELSE IF FUN 3 FX 0 0 THEN XR X ELSE XL X ENDIF ENDIF ENDDO END 2 阅读下列程序 其功能是当 X 3 1 时计算 Y 1 1 1X 1 2X2 1 3X3 1 4X4 1 5X5的值 主程序调 用了函数子程序 请在其中 处填入适当的内容 PROGRAM PVALUE INTERFACE FUNCTION POLY B M V RESULT P result DIMENSION B M INTEGER M END FUNCTION END INTERFACE 4 DATA A 1 0 1 1 1 2 1 3 1 4 1 5 N X 6 3 1 5 WRITE A5 6F5 1 a k A WRITE A2 F5 1 A6 F8 2 X X Y Y END FUNCTION POLY B M V RESULT P result DIMENSION B M INTEGER M REAL V P result B 1 FV 1 0 DO K 2 M FV FV V 6 P result B K FV ENDDO END FUNCTION 3 函数子程序 dtoh 能够将一个十进制正整数 DEC 转换为一个表示十六进制数的字符串 其长度不 超过 8 例如 127 转换为 7F 算法 将 dec 除 16 取余 将所得的商再除 16 取余 如此反复 直到商和零为止 最后按照逆序输 出所得各余数 请在其中 处填入适当的内容 MODULE Change INTEGER decade CHARACTER LEN 8 HEX CONTAINS FUNCTION dtoh dec RESULT D result CHARACTER 8 D result dtoh INTEGER dec R pos pos 9 dtoh DO WHILE 7 8 IF pos 1 THEN R MOD dec 16 IF R 10 THEN 9 CHAR ICHAR 0 R ELSE D result pos pos CHAR ICHAR A R 10 ENDIF ELSE D result EXIT ENDIF dec dec 16 ENDDO END FUNCTION END MODULE Change PROGRAM dechex 10 CHARACTER 8 hex1 READ decade 11 WRITE hex1 END PROGRAM dechex 4 阅读下列程序 其功能是使用筛法选出 N 以内的所有素数并显示 算法 在 N 以内的自然数列中先筛除 2 的倍数 在 2 之后筛乘下的第一个数是 3 于是再筛除 3 的 倍数 在 3 之后筛剩下的第一个数是 5 于是再筛除 5 的倍数 如此重复下去 直到遇见筛剩下的第一 个数是最接近 N 的平方根的那个数为止 请在其中 处填入适当的内容 PROGRAM PRINES PARAMETER N 100 INTEGER A N P N DO K 1 N A K K ENDDO DO K 3 N IF 12 EQ 0 A K 0 ENDDO ISR SQRT REAL N DO M 3 ISR 2 DO K M 2 N IF A K 0 AND MOD A K M 0 A K 0 ENDDO ENDDO M 1 DO K 2 N IF A K NE 0 THEN 13 M M 1 ENDIF ENDDO WRITE 1X I4 P K 14 END 5 下列程序执行后 输出的第一行是 15 第二行是 16 SUBROUTINE ASSIGN STR INT CHARACTER LEN INTENT OUT STR CHARACTER CHANGE 10 INTEGER 2 INT INTEGER 2 N M I N 0 DO WHILE INT 0 N N 1 M MOD INT 10 CHANGE N CHAR ICHAR 0 M INT INT 10 ENDDO DO I 1 N STR I I CHANGE N 1 I ENDDO ENDSUBROUTINE ASSIGN PROGRAM MAIN INTERFACE ASSIGNMENT SUBROUTINE ASSIGN STR INT IMPLICIT NONE CHARACTER LEN INTENT OUT STR CHARACTER CHANGE 10 INTEGER 2 INTENT IN INT INTEGER 2 N M I ENDSUBROUTINE ASSIGN ENDINTERFACE CHARACTER LEN 4 ch1 2 CHARACTER LEN 4 string1 INTEGER 2 m1 m1 1234 string1 abcd ch1 1 m1 ch1 2 string1 print ch1 1 print ch1 2 END 6 下列程序执行后 输出的是 17 PROGRAM MAIN PARAMETER M 5 INTEGER b M INTEGER resu DATA b 5 2 resu SUM b M PRINT resu CONTAINS FUNCTION SUM A N RESULT SUM result INTEGER I N SUM result INTEGER S A N POINTER P S SUM r