Fortran上机实验.docVIP

（一）调试如下程序???1.??PROGRAM???EXAM1 READ（*,*）A,B,H S A+B *H/2 WRITE（*,*）A,B,H,S END 2. READ（*，10）M，N10??FORMAT（1X，I4，3X，I3） WRITE（*，*）M，NEND 二 编程已知圆的半径R，求圆周长和面积阅读下列程序PROGRAM?ABC READ（*，10）A，BWRITE（*，20）A，B10 FORMAT（2X，F4.1,2X,F5.1 20 FORMAT? 1X,F4.1,2X,F7.2 END 输入数据1234.59 8765.43输出结果为计算一个数列的前N项之和。该数列的前两项是由键盘输入的正整数，以后各项按下列规律产生：先计算前两项之和，若和小于200，则该和作为下一项，否则用和除以前两项中较小的一项，将余数作为下一项。填充程序中的空白。READ *,* N,K1,K2 M K1+K2 a DO?10?I 3,N IF b THEN IF?? K1.LT.K2 ???THEN K3 MOD M,K2 ELSE K3 MOD M,K1 ENDIF c d e MS MS+K3 K1 K2 K2 K3 M K1+K2 10? CONTINUE WRITE *,* ?MS END （五）程序改错注意：不可以增加或删除程序行，也不可以更改程序的结构。下列程序是求某单位的最高工资、最底工资和平均工资的程序，输入0表示结束。C**********FOUND********** N 0 READ *,* GZ C**********FOUND********** SUM 0 AMAX GZ AMIN GZ 10 READ *,* GZ IF GZ.GT.0 THEN N N+1 SUM SUM+GZ IF GZ.GT.AMAX AMAX GZ IF GZ.LT.AMIN AMIN GZ GOTO?10 ENDIF AVE SUM/N WRITE *,* AVE,AMAX,AMIN END 2.?统计100-300之间同时被3，7整除的数的个数N，输出这些数的平方和NS REAL??NS N 0 NS 0 DO?30??K 100,300 C**********FOUND********** N37 MOD 7,k +MOD 3,k IF? N37.EQ.0 ??THEN N N+1 C**********FOUND********** ____________ END?IF 30 CONTINUE WRITE *,* ??N,NS END （六）阅读下列FORTRAN程序：PARAMETER L 3 INTEGER?N L DATA?N/3*0/ DO?20?I 1,L ??DO?20?J 1,L N J N I +1 20? CONTINUE WRITE *,* ?N L END 上述程序运行后，输出结果是什么?调试并运行 INTEGER?A 4,4 DATA?A/4*1,4*2,4*3,4*4/ Y FA A,2 WRITE *, 2X,F5.2 ?Y END FUNCTION?FA B,N INTEGER?B N,N FA 1.0 DO?10?I 1,N FA FA*B I,I 10 CONTINUE END （八）用语句函数编写程序，用牛顿迭代法求1-3X+4X2-5X3 0在X 1.5附近的根编写子例行子程序分别求出5阶方阵两个对角线上元素之和 1