計算機二級考試FORTRAN程序設(shè)計上機題匯總

計算機等級考試二級FORTRAN程序設(shè)計上機題(4)

===============================================================================

　　試題說明 :

===============================================================================

　　補充編制fortran77程序prog1.for，給定4×3的矩陣a與3×4

　　的矩陣b(程序中為二維數(shù)組a與b),計算并輸出乘積矩陣c=ab的

　　對角線上各非零元素絕對值的自然對數(shù)之和。

　　請編寫該程序，最后運行程序。 其中部分程序與輸出子程序

　　writedat在程序中已經(jīng)給出，不得修改。

===============================================================================

　　程序 :

===============================================================================

　　dimension a(4,3),b(3,4)

　　data a/3.5,4.5,5.5,2.5,1.5,2.5,-6.5,1.5,-2.5,3.0,3.5,2.5/

　　data b/4.5,7.0,-1.5,-3.0,0.0,4.5,1.5,-3.5,0.5,2.5,4.5,-5.5/

　　write(*,100) s

　　100 format(1x,'s=',e12.4)

　　write(*,*)

　　call writedat(s)

　　end

　　subroutine writedat(s)

　　open(10,file='bc04.out',status='new')

　　write(10,100) s

　　100 format(1x,e12.4)

　　end

===============================================================================

　　所需數(shù)據(jù) :

===============================================================================

　　@3 $bc04.out 001

　　|.6602e+01

　　#e