编写求一个5×5矩阵对角线上的元素的最大值的程序，矩阵的值在程序运行时由用户输入
最新回答
夏迟归
2024-05-19 02:28:55
'VB语言程序：
Private Sub Command1_Click()
Dim a(1 To 5, 1 To 5) As Integer, valMax As Single
For i = 1 To 5
For j = 1 To 5
a(i, j) = InputBox("a(" & i & "," & j & ")=")
Print a(i, j);
Next j
Next i
For i = 1 To 5
If a(i, i) > valMax Then valMax = a(i, i)
Next i
For i = 1 To 5
If a(i, 5 - i + 1) > valMax Then valMax = a(i, i)
Next i
Print "对角线上元素的最大值为："; valMax
End Sub
り错过的是梦不是命。
2024-05-19 08:25:59
#include<stdio.h>
int main()
{
double a[5][5],vmax;
int i,j;
printf("input 5x5 matrix data\n");
for (j=0;j<5;j++) for (i=0;i<5;i++) scanf("%lf",&a[j][i]);
vmax=a[0][0];
for (i=0;i<5;i++) if (a[i][i]>vmax) vmax=a[i][i];
for (i=0;i<5;i++) if (a[i][4-i]>vmax) vmax=a[i][4-i];
printf("Vmax=%lf\n",vmax);
return 0;
}
热门标签
