主题：帮帮忙!!有一个3*3的矩阵.....
whj8820
[专家分：0] 发布于 2006-02-20 17:29:00
有一个3*3的矩阵,求它的两条对角线元素之和(所需数据从键盘任意输入).
回复列表 （共6个回复）
沙发
whj8820 [专家分：0] 发布于 2006-02-20 17:29:00
有人会吗？帮帮忙
板凳
飞鸟12 [专家分：2830] 发布于 2006-02-20 22:57:00
DIM a(1 TO 3, 1 TO 3) AS INTEGER
sum = 0
FOR i = 1 TO 3
FOR j = 1 TO 3
PRINT "a ("; i; ","; j; ") ";
INPUT a(i, j)
NEXT j
sum = sum + a(i, i) + a(i, 4 - i)
NEXT i
sum = sum - a(2, 2)
PRINT sum
END
3 楼
whj8820 [专家分：0] 发布于 2006-02-21 06:41:00
谢谢帮忙
4 楼
moz [专家分：37620] 发布于 2006-02-21 12:55:00
好多天找不到事情来唠叨了，今天找到机会操刀了,haha
n=3
FOR i = 1 TO n*n
input ;a
if((i-1)mod n+1=(i-1)\n+1)or(i mod n=(n-(i-1)\n)mod n)then s=s+a
if i mod n=0 then print
NEXT
PRINT s
我来回复
您所在位置：
