Решаем задачи Абрамян на Паскале. Matrix60

Matrix60. Дана матрица размера $M \times N$ . Зеркально отразить ее элементы относительно вертикальной оси симметрии матрицы (при этом поменяются местами столбцы с номерами $1$ и $N$ , $2$ и $N-1$ и т. д.).

Решение:

program Matrix60;
type
  matrix = array [1..10,1..10] of integer;

var
  a:matrix;
  M, N, i, j:Integer;

procedure Swap(var X,Y:Integer);
begin
 if x<>y then
  begin
   X:=X+Y;
   Y:=X-Y;
   X:=X-Y;
  end;
end;

procedure SwapMatrixColumn(var mat:matrix; X,Y:Integer);
var
 i:integer;
begin
 if x<>y then
  for i:=1 to M do
   swap(mat[i,x], mat[i,y]);
end;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 for j:=1 to (N div 2) do
  SwapMatrixColumn(a, j, N-j+1);

 for  i:=1 to M do
  begin
   for j:=1 to N do
    begin
     Write(' : ',a[i,j]);
    end;
   writeln(' : ');
  end;
end.

program Matrix60;

type

matrix = array [1..10,1..10] of integer;

var

a:matrix;

M, N, i, j:Integer;

procedure Swap(var X,Y:Integer);

begin

if x<>y then

begin

X:=X+Y;

Y:=X-Y;

X:=X-Y;

end;

procedure SwapMatrixColumn(var mat:matrix; X,Y:Integer);

var

i:integer;

begin

if x<>y then

for i:=1 to M do

swap(mat[i,x], mat[i,y]);

end;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

for j:=1 to (N div 2) do

SwapMatrixColumn(a, j, N-j+1);

for i:=1 to M do

begin

for j:=1 to N do

begin

Write(' : ',a[i,j]);

end;

writeln(' : ');

end;

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Matrix60

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ