Question

Дана матрица.Осуществить циклический сдвиг вправо на заданное количество позиций.Текст программы на Паскале!Срочно!Помогите.

Answer 1

Вот пример программы на языке Паскаль, которая осуществляет циклический сдвиг матрицы вправо на заданное количество позиций:

program MatrixShift;

const
  N = 3; // размерность матрицы

var
  matrix: array[1..N, 1..N] of Integer;
  shiftAmount, i, j: Integer;
  temp: Integer;

begin
  // Ввод матрицы
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      Write('Введите элемент матрицы [', i, '][', j, ']: ');
      ReadLn(matrix[i, j]);
    end;
  end;

// Ввод количества позиций для сдвига
  Write('Введите количество позиций для сдвига вправо: ');
  ReadLn(shiftAmount);

// Циклический сдвиг вправо
  for i := 1 to N do
  begin
    for j := 1 to shiftAmount do
    begin
      temp := matrix[i, N];
      for k := N downto 2 do
      begin
        matrix[i, k] := matrix[i, k - 1];
      end;
      matrix[i, 1] := temp;
    end;
  end;

// Вывод результирующей матрицы
  WriteLn('Результирующая матрица:');
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      Write(matrix[i, j], ' ');
    end;
    WriteLn;
  end;
end.

Обратите внимание на следующие моменты: - Программа предполагает, что размерность матрицы равна 3x3. Вы можете изменить значение константы `N` в соответствии с вашими потребностями. - Пользователю будет предложено ввести элементы матрицы и количество позиций для сдвига. - Циклический сдвиг вправо реализуется путем последовательного сдвига каждой строки матрицы на заданное количество позиций. - Результирующая матрица выводится на экран.

Надеюсь, это поможет вам! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать.