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