FORTRAN习题答案.doc

习题二习题二 一 问答题一 问答题 1 给出下面变量名称 哪些是合法变量 哪些是非法变量 说明原因 Count num 2 x45A18 93 215 1 23 324 445 555 777 READ 语句执行后 每组 i j k m n 的值分别是多少 10 给定下面 READ 和 FORMAT 语句 READ 100 a b c 100 FORMAT F5 2 F5 1 E8 3 执行 READ 语句 输入以下 5 组数据 12345678901234567890 123 456789012 345890 1 322 43 565 E 28 123E2343 7 2 3455 1 23245 E3 1893 215 READ 语句执行后 每组 a b c 的值分别是多少 11 已知 i 25 j 125 k 4725 m 31500 a 48 57 x 1 5E 11 y 158 895E 11 给定输出语句 WRITE 100 i a j b k m x y 对下面不同的 FORMAT 语句 写出输出结果 100 FORMAT 1X I3 1X F5 2 1X I4 1X F9 2 I5 I6 E12 3 E12 3E3 100 FORMAT 3X I4 1X F9 2 1X I4 1X F9 2 2I5 2E12 3 100 FORMAT i I3 a F5 2 j I4 b F9 2 k I5 m I6 x E12 3 y E12 3E3 100 FORMAT 2 2X I4 2X F9 2 2I5 2E12 3 100 FORMAT 1X I3 1X F5 2 1X I4 1X F9 2 I5 I6 E12 3 E12 3E3 12 已知 i 315 j 512 a 43 57 b 15 9 c 123 456 d 5231 573 给定输出语句 WRITE 100 i j a b c d 对下面不同的 FORMAT 语句 写出输出结果 100 FORMAT 1X I4 2X I5 2X 2 F7 2 2X F10 1 100 FORMAT 1X 2 I4 2X 2 F7 2 2X OLD 13 给定下面程序 READ 10 i j k m n 10 FORMAT 1X I3 T5 I3 I4 TL8 I2 TR5 I3 PRINT i j k m n END 程序执行时 输入数据 1234567890987654321 程序执行后 变量 i j k m n 的值是什么 二 填空题二 填空题 下面程序是求任意两个整型数 M N 的和 要求输出形式为 M N 和 如 M 3 N 8 则输出形式为 M N 11 请填空 IMPLICIT NONE INTEGER M N S READ M N S M N PRINT M N S END 习题五 一 一 选择题选择题 1 已知 A 4 9 B 5 5 C 8 0 L FALSE 则其值为 假 的表达式是 A A B OR NOT B C B L OR AC EQV NOT L D L EQV A B C 2 以下不合法的 Visual Fortran 表达式是 A A B C D B NOT X B EQV C D D A AND B AND C 3 以下能表示条件 X Y 中至少有一个大于 0 且小于等于 10 的逻辑表达式是 A 0 X 10 OR 0 Y 10 B 0 X AND X 10 AND 0 Y AND Y 10 C 0 X AND X 10 OR 0 Y AND Y 10 D 0 X OR Y 10 OR X 10 OR Y 10 OR X 10 OR Y 10 0R X OR Y 10 AND X 10 AND Y 5 5 以下正确的逻辑表达式是 其中 A B C D X 均是数值型变量 A A B AND C A C B A B C D C A X D A B C AND C D Y 时 Z X Y 否则 Z X Y 以下能完成该功能的程序段是 A IF X Y Z X Y ELSE Z X Y B IF X Y THEN Z X Y Z X Y C Z X Y IF X Y Z X Y D IF X Y Z X Y ELSE Z X Y END IF 7 下面程序段中有错误的语句是 A IF A B THEN B A B C ELSE B A D END IF 8 下面程序段中有错误的语句是 A IF A GT B THEN B A B C ELSE B A D END IF 9 下面程序段中有错误的语句是 READ X A IF X 0 0 THEN Y 1 0 B ELSE IF X0 1 D 0 1 1 0 PRINT D C END 二 运行程序题二 运行程序题 1 己知整型变量 M 3 N 10 K 0 J 0 阅读下面程序段 IF MOD M N 0 THEN K N M IF K M THEN J K K M M J END IF END IF PRINT M K 其运行结果是 3 3 2 阅读下面程序 IMPLICIT NONE INTEGER I J I 2 J 0 IF I 2 J 1 IF J 1 I J IF IM M I IF J M M J IF K M M K PRINT M END 其运行结果是 30 4 阅读下面程序 IMPLICIT NONE REAL X Y READ X IF X 0 0 THEN Y 0 0 ELSE IF X 10 0 THEN Y 1 0 X ELSE Y 10 0 END IF PRINT Y END 若从键盘输入 2 0 则程序的运行结果是 0 5 5 阅读下面程序 IMPLICIT NONE LOGICAL L1 L2 L3 L4 L1 TRUE L2 FALSE L3 TRUE L4 NOT L2 OR L1 AND NOT L3 PRINT L4 END 则运行结果是 T 6 阅读下面程序 IMPLICIT NONE LOGICAL A B L A FALSE B TRUE L NOT A AND B PRINT L END 则运行结果是 T 7 阅读下列程序 若运行中的输入值分别为 2 5 和 1 0 则两次运行结果分别是 IMPLICIT NONE LOGICAL L REAL X L TRUE READ X IF X54 F 35 3 8 GE 75 F 2 5 5 7 1 2 3 5 错误的表达式 25 9 58 4 NE 58 4 25 9 T banana 20 AND NOT pen s 80 T 三 填空题三 填空题 1 下面程序的功能是求方程 X 2 BX C 0 的实根 请填空 IMPLICIT NONE REAL B C X1 X2 READ B C D B 2 4 C IF D 0 THEN IF D 0 THEN X1 B 2 0 SQRT D 2 0 X1 B 2 0 SQRT D 2 0 PRINT X1 X2 ELSE X1 B 2 0 X2 X1 PRINT X1 X2 ENDIF ELSE PRINT ERROE ENDIF END 2 下面程序的功能是求以下函数的函数值 请填空 10 X1 10 X