大师作文网free pascal马鞍数
来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/11/10 17:08:48
free pascal马鞍数
c:array[1..5,1..5] of integer;
i,n,y,s:integer;
begin
y:=0;
for n:= 1 to 5 do
for i:= 1 to 5 do
read (c[n,i]);
for n:=1 to 5 do
for i:=1 to 5 do
begin
for s:= 1 to 5 do
begin
if c[n,i] = c[s,i]
then y:=y+1;
end;
if y=5 then writeln(n,',',i);
y:=0;
end;
readln;readln;
这个程序的问题在哪里?
最后还有个end.
帮忙吧!谢
c:array[1..5,1..5] of integer;
i,n,y,s:integer;
begin
y:=0;
for n:= 1 to 5 do
for i:= 1 to 5 do
read (c[n,i]);
for n:=1 to 5 do
for i:=1 to 5 do
begin
for s:= 1 to 5 do
begin
if c[n,i] = c[s,i]
then y:=y+1;
end;
if y=5 then writeln(n,',',i);
y:=0;
end;
readln;readln;
这个程序的问题在哪里?
最后还有个end.
帮忙吧!谢
我刚刚学过……
1.if c[n,i] = c[s,i] 是不对的……
应该是 if （c[n,i] = c[s,i]）
两个条件要用括号
改后编译通过……测试数据正确
5 6 7 8 9
4 5 6 7 8
3 4 5 2 1
2 3 4 9 0
1 2 5 4 8
则1行1列上的数就是马鞍数.
我也是菜鸟,
对了,你头上上了个Va
1.if c[n,i] = c[s,i] 是不对的……
应该是 if （c[n,i] = c[s,i]）
两个条件要用括号
改后编译通过……测试数据正确
5 6 7 8 9
4 5 6 7 8
3 4 5 2 1
2 3 4 9 0
1 2 5 4 8
则1行1列上的数就是马鞍数.
我也是菜鸟,
对了,你头上上了个Va