fortran课后习题答案

1 第一章 FORTRAN 程序设计基础 第 15 页 1 2 1 简述程序设计的步骤 程序设计 反映了利用计算机解决问题的全过程 通常要经过以下四个基本步骤 1 分析问题 确定数学 模型或方法 2 设计算法 画出流程图 3 选择编程工具 编写程序 4 调试程序 分析输出结果 2 什么是算法 它有何特征 如何描述算法 解决问题的方法和步骤称为算法 算法的五个特征 1 有穷性 2 确定性 3 有效性 4 要有数据输入 5 要有结果输出 算法的描述有许多方法 常用的有 自然语言 一般流程图 N S 图等 第二章 顺序结构程序设计 第 29 页 1 2 3 4 5 6 7 8 9 1 简述符号常量与变量的区别 符号常量在程序运行过程中其值不能改变 变量在程序运行过程中其值可以改变 2 下列符号中为合法的 FORTRAN 90 标识符的有哪些 1 A123B 2 M 10 3 X C2 4 5YZ 5 X Y 6 F X 7 COS X 8 A 2 9 A ONE 10 U S S R 11 min 2 12 PRINT 3 下列数据中哪一些是合法的 FORTRAN 常量 1 9 87 2 0 3 25 82 4 356231 5 3 57 E2 6 3 57E2 1 7 3 57E 2 8 3 57E 2 4 已知 A 2 B 3 C 5 REAL 且 I 2 J 3 INTEGER 求下列表达式的值 1 A B C 表达式的值 11 2 A B C 表达式的值 16 3 B C A 表达式的值 1 2 4 B C A 表达式的值 0 3 5 A I J 表达式的值 0 33 6 I J A 表达式的值 0 7 A B I A J 2 表达式的值 4 5 8 C B A 3 B 2 表达式的值 7 25 9 A B I 表达式的值 512 5 将下列数学表达式写成相应的 FORTRAN 表达式 1 1E 2 2 B SQRT B B 4 A C 2 A 3 1 X X X 2 X 3 2 3 4 COS ATAN A 3 B 3 1 0 3 C C 1 5 EXP A X 2 B X C 6 COS X Y SQRT X X Y Y 3 6 用 FORTRAN 语句完成下列操作 1 将变量 I 的值增加 1 I I 1 2 I 的立方加上 J 并将结果保存到 I 中 I I 3 J 3 将 E 和 F 中大者存储到 G 中 G Max E F 4 将两位自然数 N 的个位与十位互换 得到一个新的数存储到 M 中 不考虑个位为 0 的情况 M MOD N 10 10 N 10 第三章 选择结构程序设计第 43 页 1 2 3 5 6 7 9 1 分析下列程序运行结果 1 LOGICAL P INTEGER I I1 I2 I3 P FALSE READ I I1 MOD I 10 I2 MOD I 10 10 I3 I 100 2 IF I1 I3 EQ 2 I2 P TRUE PRINT P END 输入 123 时 输出 T 输入 132 时 输出 F 2 REAL X Y Z READ X Y IF X Y 0 AND X NE 1 0 THEN Z 10 0 ELSE IF X Y0 AND x 2 5 AND y 8 3 x y z 6 FORTRAN 表达式 x y z 6 4 2x 4y xy 0 FORTRAN 表达式 2 x 4 y x y 0 3 5 a b c2 FORTRAN 表达式 ABS a b c c 6 如果 x y 或 x z 则 min x FORTRAN 语句 IF x y OR x0 AND b 0 AND c 0 AND a b c AND b c a AND c a b 8 a b 之一为 0 但不同时为 0 FORTRAN 表达式 a 0 OR b 0 AND NOT a 0 AND b 0 9 如果 m 与 n 相等 则 k 为 1 否则 k 为 0 FORTRAN 语句 IF m n THEN k 1 ELSE k 0 ENDIF 10 a b 是否相同号 FORTRAN 表达式 a b 0 3 如果 A 2 5 B 7 5 C 5 0 D 6 0 L TRUE M FALSE 请求出下列逻辑表达式的值 1 A B LT C D AND A EQ 3 5 逻辑表达式的值 FALSE 2 A B 2 0 NE C D OR C NE D 逻辑表达式的值 TRUE 3 NOT L OR C EQ D AND M 逻辑表达式的值 FALSE 4 C 2 0 D LT A AND NOT TRUE OR C EQ D 逻辑表达式的值 FALSE 5 C GT D OR C NOT A B LT D 该表达式错误 6 A LT B AND B LT A 逻辑表达式的值 FALSE 5 某运输公司在计算运费时 按照运输距离 S 对运费打一定的折扣 D 其标准如下 S 250km D 0 250 S 500km D 2 5 500 S 1000km D 4 5 1000 S 2000km D 7 5 2000 S 2500km D 9 0 2500 S 3000km D 12 0 3000km S D 15 0 编写程序 输入基本运费 Price 货物重量 Weight 距离 S 计算总运费 Freight 其中 Freight Price Weight S 1 D REAL Price Weight S Freight D READ Price Weight S IF S 250 THEN D 0 ELSEIF S 500 THEN D 0 025 ELSEIF S 1000 THEN D 0 045 ELSEIF S 2000 THEN D 0 075 ELSEIF S 2500 THEN D 0 09 ELSEIF S 15 AND X 0 AND X15 AND X1E 5 Y0 Y1 Y1 2 Y0 3 X 3 Y0 2 ENDDO PRINT Y1 END 6 P 66 习题 12 Real a b m x f x x 3 x 2 1 Read a b Do while Abs a b 1e 6 m a b 2 If f a f m 0 then a m Else b m Endif Enddo Print a b 2 END 第五章 FORTRAN 90 数据类型第 88 页 4 10 4 有一个三角形 顶点为 X Y Z 其坐标分别为 1 5 2 0 4 5 4 5 18 0 10 5 求三角形的面积和重心 提示 重心坐标 X Y Z 3 利用复数计算 COMPLEX X Y Z W REAL A B C S P READ X Y Z A ABS X Y B ABS Y Z C ABS Z X P A B C 2 S SQRT P P A P B P C W X Y Z 3 WRITE S WRITE W END 10 设有 4 个圆 圆心分别在 2 2 2 2 2 2 2 2 半径为 1 当 X Y 坐标点落在圆上和圆内时 Z 1 落在 圆外时 Z 1 落在圆外时 Z 0 编出相应的的程序 要求利用逻辑变量 IMPLICIT NONE LOGICAL P Q R S REAL X Y INTEGER Z READ X Y Z 0 P X 2 2 Y 2 2 1 Q X 2 2 Y 2 2 1 R X 2 2 Y 2 2 1 S X 2 2 Y 2 2X MA MA I ENDDO T X 1 X 1 X MA X MA T WRITE 10 X I I 1 10 10 FORMAT 1X 10I4 END 8 7 求 3 4 矩阵中的最大元素和最小元素 REAL A 3 4 AMAX AMIN INTEGER I J DO I 1 3 READ A I J J 1 4 ENDDO AMAX A 1 1 AMIN A 1 1 DO I 1 3 DO J 1 4 IF A I J AMAX AMAX A I J IF A I J 1E8 时停止计算 计算公式是 1 2 1 1 1 1 n e FUNCTION JC N JC 1 DO I 1 N JC JC I ENDDO END PROGRAM EX6 REAL 8 E T 10 E 0 T 1 0 I 0 DO WHILE T 1E 8 E E T I I 1 T 1 0 JC I END DO PRINT E END 8 对任意自然数 n 设计一个求 n 的各数位立方和的函数子程序 F n 如 F 121 1 3 2 3 1 2 1 8 1 10 并调用 F n 求 1000 以内的所有水仙花数 水仙花数的概念请参看例 8 5 子程序 FUNCTION F N INTEGER F N S T S 0 T N DO WHILE T 0 K MOD T 10 S S K 3 T T 10 ENDDO F S END 主程序 PROGRAM EX8 INTEGER F I DO I 100 999 IF F I I PRINT I ENDDO ENDDO 12 设计一个子例行程序 计算一个任意数组 A 中正数 负数和 0 的个数及其和 子程序 SUBROUTINE TJ A M P N Z S INTEGER A M M P N Z S I P 0 N 0 Z 0 S 0 DO I 1 M IF A I 0 THEN P P 1 ELSEIF A I 0 THEN N N 1 11 ELSE Z Z 1 ENDIF S S A I ENDDO END 主程序 INTEGER X 10 P N S Z I DO I 1 10 READ X I ENDDO CALL TJ X 10 P N Z S WRITE 正数个数 P WRITE 负数个数 N WRITE 零数个数 Z WRITE 所有数的和 S END 13 设计一个子例行程序 SORT A N K 其中 A 是一个一维数组 N 是 A 的元素个数 SORT 的功能是 当 K 1 时 将数组 A 按升序排列 当 K 0 时 将数组 A 按降序排列 当 K 为其它数值时 数组 A 保持原序 子程序 SUBROUTINE SORT A N K INTEGER A N K P T DO I 1 N 1 P I DO J I 1 N IF K 1 THEN IF A J