稀疏矩阵pascal

来源：百度知道 编辑：UC知道 时间：2024/06/03 15:08:07
急求稀疏矩阵的pascal程序

测试数据如下：
输入
1 4 5
2 1 2
3 2 1
4 4 9
输出
0 0 0 5
2 0 0 0
0 1 0 0
0 0 0 9
待有答案后本人必追加悬赏分
现在搞悬赏分万一没人回答岂不浪费了

没说范围 就当他不会很大吧

var i,j,n1,n2,n3,maxx,maxy:longint;
a:array[1..500,1..500] of longint;

begin
while not eof do
begin
readln(n1,n2,n3);
a[n1,n2]:=n3;
if n1>maxx then maxx:=n1;
if n2>maxy then maxy:=n2;
end;

for i:=1 to maxx do begin
for j:=1 to maxy do write(a[i,j],' ');
writeln;
end;

end.

你的意思是不能直接把矩阵存下来,所以楼上回答肯定是有问题的..
你把输入数据以行号为第一关键字,列号为第二关键字排序,接下来的就不用我说了吧...

var
a:array[1..3,1..4] of integer;
i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
readln(a[i,j]);
……

我不觉得这很难啊？