Дана матрица, она разбита на 4 квадрата, как эти квадраты можно поменять местами с помощью двумерных массивов? - Pascal

Узнай цену своей работы

Формулировка задачи:

помогите пожалуйста решить одну задачку! Дана матрица от 1 до 16, она разбита на 4 квадрата, как эти квадраты можно поменять местами с помощью двумерных массивов?

Решение задачи: «Дана матрица, она разбита на 4 квадрата, как эти квадраты можно поменять местами с помощью двумерных массивов?»

textual
Листинг программы
uses crt;
const n=2;
var a:array[1..2*n,1..2*n] of integer;
    i,j,x:integer;
begin
clrscr;
writeln('Ishodnaya matrica:');
for i:=1 to 2*n do
   begin
     for j:=1 to 2*n do
        begin
          a[i,j]:=10*i+j;
          write(a[i,j]:4);
        end;
      writeln;
    end;
for i:=1 to n do
for j:=1 to n do
    begin
      x:=a[i,j];
      a[i,j]:=a[n+i,j];
      a[n+i,j]:=a[n+i,n+j];
      a[n+i,n+j]:=a[i,n+j];
      a[i,n+j]:=x;
    end;
writeln('Rezultat:');
for i:=1 to 2*n do
   begin
      for j:=1 to 2*n do
      write(a[i,j]:4);
      writeln;
    end;
readln
end.

Объяснение кода листинга программы

  1. Объявляется двумерный массив a размером 2n на 2n (строка 3).
  2. Задаются значения для переменных i, j, x (строки 4-6).
  3. Выводится исходная матрица (строки 7-14).
  4. Производится перестановка квадратов матрицы (строки 15-19).
  5. Выводится результат (строки 20-22).
  6. Программа ожидает ввода для завершения работы (строка 23).

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы