在VB中随机生成两个4*4矩阵,A矩阵范围30~70,B矩阵101~135(第二版书上习题第五章8题)
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/25 02:25:31
在VB中随机生成两个4*4矩阵,A矩阵范围30~70,B矩阵101~135(第二版书上习题第五章8题)
要求1,将两个矩阵相加的结果放入C矩阵中
2.将A矩阵转置
3统计C矩阵的最大值和下标
4、以下三角形式显示A矩阵,上三角B矩阵
6、求A矩阵两条对角线元素之和
(有急用 坐等 最好是把编程的部分截图发给我
要求1,将两个矩阵相加的结果放入C矩阵中
2.将A矩阵转置
3统计C矩阵的最大值和下标
4、以下三角形式显示A矩阵,上三角B矩阵
6、求A矩阵两条对角线元素之和
(有急用 坐等 最好是把编程的部分截图发给我
Dim a(1 To 4, 1 To 4) As Integer
Dim b(1 To 4, 1 To 4) As Integer
Dim c(1 To 4, 1 To 4) As Integer
'随机生成a,b两个数组
For i = 1 To 4
For j = 1 To 4
Randomize
a(i, j) = Int(Rnd() * (70 - 30)) + 30
b(i, j) = Int(Rnd() * (135 - 101)) + 101
Next j
Next i
'(1)将两个矩阵相加结果放入C矩阵中.
For i = 1 To 4
For j = 1 To 4
c(i, j) = a(i, j) + b(i, j)
Next j
Next i
'(2)将A矩阵转置
For i = 2 To 4
For j = 1 To i–1
t = a(i, j): a(i, j) = a(j, i): a(j, i) = t
Next j
Next i
'(3)统计C矩阵的最大值和下标
Dim max As Integer '最大值
Dim maxi As Integer '最大值行数
Dim maxj As Integer '最大值列数
max = c(1, 1): maxi = 0: maxj = 0
For i = 1 To 4
For j = 1 To 4
If c(i, j) > max Then
max = c(i, j): maxi = i: maxj = j
End If
Next j
Next i
'(4)以下三角形式显示A矩阵,上三角形式显示B矩阵
For i = 1 To 4
For j = 1 To i
Print a(i, j); Space(2);
Next j
Print
Next i
Print "输出B上三角元素"
For i = 1 To 4
Print Tab(i * 5);
For j = i To 4
Print b(i, j);
Next j
Print
Next i
'(6)求A矩阵 矩阵条对角线元素之和
Sum = 0 '最大值
For i = 1 To 4
Sum = Sum + a(i, i) + a(i, 5 - i)
Next i
Dim b(1 To 4, 1 To 4) As Integer
Dim c(1 To 4, 1 To 4) As Integer
'随机生成a,b两个数组
For i = 1 To 4
For j = 1 To 4
Randomize
a(i, j) = Int(Rnd() * (70 - 30)) + 30
b(i, j) = Int(Rnd() * (135 - 101)) + 101
Next j
Next i
'(1)将两个矩阵相加结果放入C矩阵中.
For i = 1 To 4
For j = 1 To 4
c(i, j) = a(i, j) + b(i, j)
Next j
Next i
'(2)将A矩阵转置
For i = 2 To 4
For j = 1 To i–1
t = a(i, j): a(i, j) = a(j, i): a(j, i) = t
Next j
Next i
'(3)统计C矩阵的最大值和下标
Dim max As Integer '最大值
Dim maxi As Integer '最大值行数
Dim maxj As Integer '最大值列数
max = c(1, 1): maxi = 0: maxj = 0
For i = 1 To 4
For j = 1 To 4
If c(i, j) > max Then
max = c(i, j): maxi = i: maxj = j
End If
Next j
Next i
'(4)以下三角形式显示A矩阵,上三角形式显示B矩阵
For i = 1 To 4
For j = 1 To i
Print a(i, j); Space(2);
Next j
Next i
Print "输出B上三角元素"
For i = 1 To 4
Print Tab(i * 5);
For j = i To 4
Print b(i, j);
Next j
Next i
'(6)求A矩阵 矩阵条对角线元素之和
Sum = 0 '最大值
For i = 1 To 4
Sum = Sum + a(i, i) + a(i, 5 - i)
Next i
在VB中随机生成两个4*4矩阵,A矩阵范围30~70,B矩阵101~135(第二版书上习题第五章8题)
VB编程随机生成两个3*3的矩阵A和B.
试在MATLAB中生成区间[20,30]内均匀分布的4阶随机矩阵.
求算法,在VB中如何实现矩阵A(3,3)与矩阵B(3,3)相乘?
在线性代数中,矩阵A乘以矩阵B等于矩阵B乘以矩阵A吗?
c++编程题 建立一个矩阵array类,存储一个4*4的矩阵并将两个矩阵相加(对应元素相加)生成第三个矩阵.
MATLAB1、 生成1个6*6阶的单位矩阵 2、 生成一个均匀分布随机矩阵(4*4) 3、 均匀分布随机矩阵(6*6)
随机生成一个3*3矩阵,求:(1) A中第三列前两个元素;(2) A中所有第二行元素;(3) A中四个角上的元素;(4)
vb 关于数组的问题1.利用随机函数生成一个4*5的矩阵(二维数组),范围是[1,100]之间的整数,求所有元
VB随机产生一个3*4矩阵和4*3矩阵,矩阵元素为0-10的整型数,分别存入b和c数组,求两矩阵的乘积并屏幕输出
求两个矩阵的和在主函数中定义两个矩阵a[4][4]和b[4][4],编写子函数add_matrix(int x[4][4
C语言,随机生成矩阵