Построить матрицу B, где каждый элемент Bij равен наименьшему из элементов матрицы Mij

@xvvxx · Регистрация: 13.12.2017

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста решить программу, не знаю что делать
Дана вещественная матрица А размером m*n, обозначим Mij матрицу размером (m-1)*(n-1),
полученную из матрицы А выбрасыванием i-й строки и j-го столбца. Построить матрицу B,
где каждый элемент Bij равен наименьшему из элементов матрицы Mij.

Pascal

var
  a, b: array [,]  of real;
  i, j, k, l, m, n: integer;
 
begin
  ReadLnInteger('m =');
  ReadLnInteger('n =');
  readln(m, n);
  setlength(a, m, n);
  setlength(b, m, n);
  for i := 0 to m - 1 do 
    for j := 0 to n - 1 do 
      readln(a[i, j]);
  for i := 0 to m - 1 do
    for j := 0 to n - 1 do 
    begin
      b[i, j] := a[(i + 1) mod m, (j + 1) mod n];
      for k := 0 to m - 1 do
        for l := 0 to n - 1 do
          if (i <> k) and (j <> l) and (a[k, l] < b[i, j]) then 
            b[i, j] := a[k, l];
    end;
  
  for i := 0 to m - 1 do 
  begin
    for j := 0 to n - 1 do
    begin
      write(b[i, j]:8:3);
      write;
    end
  end;
end.

@xvvxx · 29.12.2017, 12:25 **[ТС]**

Помогите пожалуйста реализовать.
Дана вещественная матрица А размером m*n, обозначим Mij матрицу размером (m-1)*(n-1),
полученную из матрицы А выбрасыванием i-й строки и j-го столбца. Построить матрицу B,
где каждый элемент Bij равен наименьшему из элементов матрицы Mij
По данной задачи, здесь работа с минорами матрицы :вычеркиванием i-той строки и j-того столбца. Программа выдает значения, но не понятно из какой строки и столбца вычеркивает и полученный ответ скорее всего не совпадает

Pascal

var
  a, b: array [,]  of real;
  i, j, k, l, m, n: integer;
 
begin
  m:=ReadLnInteger('m =');
  n:=ReadLnInteger('n =');
  if (m < 2) or (n < 2) then 
  begin
writeln('Ошибочный размер матрицы');
end;
  setlength(a, m, n);
  setlength(b, m, n);
  for i := 0 to m - 1 do 
    for j := 0 to n - 1 do 
      readln(a[i, j]);
  for i := 0 to m - 1 do
    for j := 0 to n - 1 do 
    begin
      b[i, j] := a[(i + 1) mod m, (j + 1) mod n];
      for k := 0 to m - 1 do
        for l := 0 to n - 1 do
          if (i <> k) and (j <> l) and (a[k, l] < b[i, j]) then 
            b[i, j] := a[k, l];
    end;
  for i := 0 to m - 1 do 
  begin
    for j := 0 to n - 1 do
    begin
      write(b[i, j]:8:2);
      write;
    end
  end;
end.

	29.12.2017, 12:25

Опции темы