Question

Удаление столбцов (строк) двумерного массива (Pascal)

Answer 1

Ответ:

Сдвинуть все строки, начиная с данной на одну вверх. Последнюю строку обнулить. Уменьшить количество строк. Процедура удаления строки приведена ниже. Procedure Delete1(Var X : MyArray2; Var n, m : integer; k1 : integer); Var i, j : integer; Begin for i := k1 to n-1 do for j := 1 to m do X[i, j] := X[i+1, j]; for j := 1 to m do X[n, j] :=

Answer 2

В языке Pascal для удаления столбцов или строк двумерного массива нужно создать новый массив с нужными размерами и скопировать в него только нужные элементы из исходного массива.

Для удаления столбцов необходимо создать новый массив с количеством строк, равным количеству строк исходного массива, и на один столбец меньше. Затем нужно перебрать все элементы исходного массива и копировать их в новый массив, оставляя только нужные столбцы.

Пример удаления столбцов из двумерного массива в Pascal:

procedure RemoveColumns(var arr: array of array of Integer; const colsToRemove: array of Integer);
var
  numRows, numCols, newNumCols, i, j, k: Integer;
  newArr: array of array of Integer;
begin
  numRows := Length(arr);
  numCols := Length(arr[0]);
  newNumCols := numCols - Length(colsToRemove);

SetLength(newArr, numRows, newNumCols);

k := 0;
  for i := 0 to numRows - 1 do
  begin
    k := 0;
    for j := 0 to numCols - 1 do
    begin
      if not(j in colsToRemove) then
      begin
        newArr[i][k] := arr[i][j];
        Inc(k);
      end;
    end;
  end;

arr := newArr;
end;

Для удаления строк нужно создать новый массив с количеством строк на одну меньше исходного массива, и копировать только нужные строки из исходного массива в новый массив.

Пример удаления строк из двумерного массива в Pascal:

procedure RemoveRows(var arr: array of array of Integer; const rowsToRemove: array of Integer);
var
  numRows, numCols, newNumRows, i, j, k: Integer;
  newArr: array of array of Integer;
begin
  numRows := Length(arr);
  numCols := Length(arr[0]);
  newNumRows := numRows - Length(rowsToRemove);

SetLength(newArr, newNumRows, numCols);

k := 0;
  for i := 0 to numRows - 1 do
  begin
    if not(i in rowsToRemove) then
    begin
      for j := 0 to numCols - 1 do
      begin
        newArr[k][j] := arr[i][j];
      end;
      Inc(k);
    end;
  end;

arr := newArr;
end;

Оба примера исполняются в процедурах, которые принимают двумерный массив и массив с индексами столбцов или строк, которые нужно удалить. Они создают новый массив и изменяют ссылку на исходный массив на новый, уже с удаленными столбцами или строками.