Комментарии: Решаем задачи Абрамян на Паскале. Matrix46

Автор: asdfg

asdfg — Mon, 17 Feb 2020 12:16:48 +0000

поясните за алгоритм верхний — не понял что за магия

Автор: Bronislav

Bronislav — Mon, 03 Sep 2018 13:47:36 +0000

program Matrix46;//pabc.net

begin
  var m := 3;
  var n := 3;
  
  var a := MatrRandom(m, n, 0, 100); a.Println;
  
  var found := false;
  
  for var i := 0 to m - 1 do
  begin
    var Maxi := a.Row(i).Max;
    
    for var j := 0 to n - 1 do//check all Maxi elements in the i-Row
      if a[i, j] = Maxi then
      begin
        var foundLess := false;
        for var k := 0 to m - 1 do
          if a[k, j] < maxi then foundLess := true;
        if not foundLess then
        begin
          found := true;
          Writeln($'A[{i+1},{j+1}] = {Maxi}')
        end
      end
  end;
  
  if not found then Write('0')
end.

program Matrix46;//pabc.net

begin

var m := 3;

var n := 3;

var a := MatrRandom(m, n, 0, 100); a.Println;

var found := false;

for var i := 0 to m - 1 do

begin

var Maxi := a.Row(i).Max;

for var j := 0 to n - 1 do//check all Maxi elements in the i-Row

if a[i, j] = Maxi then

begin

var foundLess := false;

for var k := 0 to m - 1 do

if a[k, j] < maxi then foundLess := true;

if not foundLess then

begin

found := true;

Writeln($'A[{i+1},{j+1}] = {Maxi}')

end

end;

if not found then Write('0')

end.

Автор: Bronislav

Bronislav — Mon, 03 Sep 2018 09:23:16 +0000

Неправильно работает. У вас поиск в строках минимального, а нужно максимального (строка 26). Это раз. Два — а что если в строке (или столбце) несколько максимальных (минимальных) элементов? Тогда у вас при сравнении таких одинаковых максимумов (минимумов) строгое сравнение выдаст false. Нужно использовать нестрогое сравнение и добавить чтобы элемент не сравнивался с самим собой. Строка 26:

for j2 := 1 to N do if (j2 <> j) and (a[i, j] >= a[i, j2]) then inc(j3);

1	for j2 := 1 to N do if (j2 <> j) and (a[i, j] >= a[i, j2]) then inc(j3);

Строка 29:

for i2 := 1 to M do if (i2 <> i) and (a[i, j] <= a[i2, j]) then inc(i3);

1	for i2 := 1 to M do if (i2 <> i) and (a[i, j] <= a[i2, j]) then inc(i3);