推荐文章：2000年计算机三级A上机试题（四）
推荐文章简介：
试题说明 : =============================================================================== 请编制程序PROG1.ASM, 其功能是: 内存中连续存放着二个有 符号字节序列A(k)和B(k)(k=0,…,9;下同)，求序列C(k)，C(k)
===============================================================================
试题说明 :
===============================================================================
补充编制FORTRAN77程序PROG1.FOR，给定4×3的矩阵A与3×4
的矩阵B（程序中为二维数组A与B）,计算并输出乘积矩阵C＝AB的
对角线上各非零元素绝对值的自然对数之和。
请编写该程序，最后运行程序。 其中部分程序与输出子程序
WRITEDAT在程序中已经给出，不得修改。
===============================================================================
程序 :
===============================================================================
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
===============================================================================
所需数据 :
===============================================================================
@3 $BC04.OUT 001
|.6602E+01
#E
|
