1

我有一个问题问你。我需要在每一行中写下最大元素。例如，我的表：

1 2 3 4
5 6 7 8
9 10 11 12

我想得到 4,8,12 我试过但没有结果：

Program Lab2;
type A=array[1..5,1..5] of integer;
var x:A;
i,j,s,max:integer;
Begin
 writeln('Write date:');
 for i:=1 to 5 do
  for j:=1 to 5 do
    read(x[i,j]);

 for i:=1 to 5 do
  for j:=1 to 5 do
  begin
   max:=x[i,1];
    if (max<x[i,j]) then max:=x[i,j];
   writeln(max);
  end;
 readln;

请帮我结束。

4

1 回答 1

1

只有三个小错误：

1)if (max<x[i,j])应该在第二个 for 循环之外，因为您希望每行只初始化一次最大值。

2)writeln(max);应该在第二个 for 循环之外，您希望每行只打印一次该值。

3) read(x[i,j]);我建议是readln (x[i,j])因为使用 read 你只读取一个字符，使用 readln 你红色字符直到你找到一个换行符，这将允许你输入超过两位数的数字。

这仅对字符串有意义，您可以使用readorreadln与整数

此外，我建议您在编写控制结构（for、while、if 等）的同一行中编写关键字begin，因为这样它更类似于 C 编码风格约定，这是最流行的编码风格之一我猜。如果您尝试为任何语言保持类似的编码风格，也对您更好。

所以代码将是：

Program Lab2;
const SIZE=3;
type A=array [1..SIZE,1..SIZE] of integer;
var x:A;
i,j,max:integer;
Begin
  writeln('Write date:');
  for i:=1 to SIZE do begin
    for j:=1 to SIZE do begin
      readln(x[i,j]);
    end;
  end;
  for i:=1 to SIZE do begin
    max:=x[i,1];
    for j:=1 to SIZE do begin
      if (max<x[i,j]) then begin
        max:=x[i,j];
      end;
    end;
    writeln('the max value of the row ',i ,' is ',max);
end;
 readln;
 readln;
end.
于 2014-11-08T10:26:29.573 回答