Построить две матрицы, задающие отражение каждого элемента исходной матрицы на симметричный ему элемент - Turbo Pascal
Формулировка задачи:
Взаимно однозначное отображение элементов матрицы на себя можно задать с помощью двух целочисленных матриц: в первой указывать номер строки, куда переходит данный элемент, а во второй – номер столбца. Построить две матрицы, задающие отражение каждого элемента исходной матрицы на симметричный ему элемент относительно главной диагонали.
Решение задачи: «Построить две матрицы, задающие отражение каждого элемента исходной матрицы на симметричный ему элемент»
textual
Листинг программы
const n=8;
var
r, c: array[1..n,1..n] of Integer;
i, j: Integer;
begin
for i:=1 to n do
for j:=1 to n do begin
r[i,j]:=j; c[i,j]:=i;
end;
WriteLn('Матрица номеров строк');
for i:=1 to n do begin
for j:=1 to n do Write(r[i,j]:2); WriteLn;
end;
WriteLn('Матрица номеров столбцов');
for i:=1 to n do begin
for j:=1 to n do Write(c[i,j]:2); WriteLn;
end;
Write('Нажмите Enter...'); ReadLn;
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д