Question

Сформировать матрицу 4*4, рандомно заполнить, вывести исходную матрицу, а затем повернуть её на 90 градусов и снова вывести. на языке Pascal

Answer 1

Задача

Вы хотите сформировать матрицу размером 4x4, заполнить ее случайными значениями и затем повернуть ее на 90 градусов. Вы хотите реализовать это на языке Pascal.

Решение

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

program RotateMatrix;

var
  matrix: array[1..4, 1..4] of integer;
  i, j, temp: integer;

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

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

// Поворот матрицы на 90 градусов
  for i := 1 to 2 do
    for j := i to 4 - i do
    begin
      temp := matrix[i, j];
      matrix[i, j] := matrix[4 - j + 1, i];
      matrix[4 - j + 1, i] := matrix[4 - i + 1, 4 - j + 1];
      matrix[4 - i + 1, 4 - j + 1] := matrix[j, 4 - i + 1];
      matrix[j, 4 - i + 1] := temp;
    end;

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

end.

Этот код сначала создает двумерный массив `matrix` размером 4x4 и заполняет его случайными значениями от 0 до 99 с помощью функции `Random`. Затем он выводит исходную матрицу и выполняет поворот на 90 градусов, обменивая значения элементов матрицы в соответствии с алгоритмом поворота. Наконец, он выводит повернутую матрицу.

Пример вывода

Исходная матрица:
  12  34  56  78
  90  23  45  67
  89  76  54  32
  10  98  76  54
Повернутая матрица:
  10  89  90  12
  98  76  23  34
  76  54  45  56
  54  32  67  78

Обратите внимание, что каждый элемент матрицы выровнен по ширине 4 символа с помощью формата `:4` при выводе. Это делает вывод матрицы более читабельным. Вы можете изменить этот формат в соответствии с вашими предпочтениями.