主题：帮帮忙！先谢谢了！！
whj8820
[专家分：0] 发布于 2005-05-18 09:59:00
有一个n*m的矩阵，要求找出其中值最大的那个元素所在的行号和列号，以及该元素的值（所需数据从键盘任意输入）
回复列表 （共7个回复）
沙发
陈贺ＱＢ [专家分：140] 发布于 2005-05-18 12:19:00
input m;n
dim a(m,n)
s=0
for i=1 to m
for j=1 to n
if s<a(i,j) then
s=a(i,j)
p=i:q=j
end if
next j
next i
print "big:";s
print "p=";p,"q=";q
end
还可以更简单／
板凳
whj8820 [专家分：0] 发布于 2005-05-18 16:15:00
谢谢一楼的，能否在简单一些
3 楼
moz [专家分：37620] 发布于 2005-05-18 17:03:00
有点像做习题，我拒绝回答。
4 楼
whj8820 [专家分：0] 发布于 2005-05-18 18:04:00
这就是个习题，不过我是个菜鸟，所以才请教大家。希望帮帮忙，我也是帮我弟弟作的。
5 楼
moz [专家分：37620] 发布于 2005-05-18 23:23:00
看在弟弟的份上：
cls
input "请输入行数",n
print
input "请输入列数",m
dim s(n,m)
for i=1 to n
print "请输入第";i;"行的数据："
for j=1 to m
print "请输入第";i;"行第";j;"列的数据：";
input s(i,j)
if s(i,j)>max then
max=s(i,j)
x=i
y=j
end if
next
next
print "你已经把所有数据都输完了"
print "你输入的数据里面第";x;"行第";y;"列的数字";max;"是最大的数,谢谢！"
system
6 楼
whj8820 [专家分：0] 发布于 2005-05-19 07:41:00
谢谢几位了
7 楼
枫叶 [专家分：150] 发布于 2005-05-19 19:51:00
INPUT N,M
DIM A(N,M)
MAX=A(1,1):A=1:B=1
FOR I =1 TO N
FOR J=1 TO M
IF A(I,J)>MAX THEN MAX=A(I,J):A=I:B=J
NEXT J
NEXT I
一楼的错了，不执行的
我来回复
您所在位置：