输入一个M行M列的矩阵A,计算B=A+A’,即将矩阵A加上A的转置,存放在矩阵B中.M由下
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 15:17:58
![输入一个M行M列的矩阵A,计算B=A+A’,即将矩阵A加上A的转置,存放在矩阵B中.M由下](/uploads/image/z/5391540-36-0.jpg?t=%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AAM%E8%A1%8CM%E5%88%97%E7%9A%84%E7%9F%A9%E9%98%B5A%2C%E8%AE%A1%E7%AE%97B%3DA%2BA%E2%80%99%2C%E5%8D%B3%E5%B0%86%E7%9F%A9%E9%98%B5A%E5%8A%A0%E4%B8%8AA%E7%9A%84%E8%BD%AC%E7%BD%AE%2C%E5%AD%98%E6%94%BE%E5%9C%A8%E7%9F%A9%E9%98%B5B%E4%B8%AD.M%E7%94%B1%E4%B8%8B)
输入一个M行M列的矩阵A,计算B=A+A’,即将矩阵A加上A的转置,存放在矩阵B中.M由下
输入一个M行M列的矩阵A,计算B=A+A’,即将矩阵A加上A的转置,存放在矩阵B中.M由下
输入一个M行M列的矩阵A,计算B=A+A’,即将矩阵A加上A的转置,存放在矩阵B中.M由下
'VB程序代码如下:
Dim arrA(100, 100), arrB(100, 100) As Integer
Print 产生矩阵A
For i = 1 To 5
For j = 1 To 5
arrA(i, j) = Int(Rnd * 5)
Print arrA(i, j),
Next
Print
Next
Print 求矩阵B并输出
For i = 1 To 5
For j = 1 To 5
arrB(i, j) = arrA(i, j) + arrA(j, i)
Print arrB(i, j),
Next
Print
Next