Question

Даю 30 баллов! Паскаль. Используя двумерные массивы решить задачу: дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы.

Answer 1

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 Writeln('*** Исходная матрица ***');

 var a := MatrRandom(5, 6, -99, 99);

 a.Println(4); Writeln(4 * a.ColCount * '-');

 Writeln('***Результат ***');

 a.SwapCols(0, 1);

 a.Println(4)

end.

Answer 2

Спасибо за 30 баллов! Я с удовольствием помогу вам решить задачу на языке программирования Паскаль.

Вот код для решения этой задачи с использованием двумерных массивов:

pascalCopy code
program SwapColumns;
const
  ROWS = 5;
  COLUMNS = 6;

var
  matrix: array[1..ROWS, 1..COLUMNS] of Integer;
  i, j, temp: Integer;

begin
  // Заполнение матрицы случайными значениями (для примера)
  Randomize;
  for i := 1 to ROWS do
    for j := 1 to COLUMNS do
      matrix[i, j] := Random(100); // случайные значения от 0 до 99

  // Вывод исходной матрицы
  writeln('Исходная матрица:');
  for i := 1 to ROWS do
  begin
    for j := 1 to COLUMNS do
      write(matrix[i, j]:4);
    writeln;
  end;

  // Меняем местами 1 и 2 столбцы
  for i := 1 to ROWS do
  begin
    temp := matrix[i, 1];
    matrix[i, 1] := matrix[i, 2];
    matrix[i, 2] := temp;
  end;

  // Вывод результирующей матрицы
  writeln('Матрица после обмена столбцов:');
  for i := 1 to ROWS do
  begin
    for j := 1 to COLUMNS do
      write(matrix[i, j]:4);
    writeln;
  end;
end.

Обратите внимание, что я использовал произвольные случайные значения от 0 до 99 для заполнения матрицы в примере. Вы можете заполнить матрицу данными из вашего конкретного случая, либо вводить значения вручную, если это более удобно.