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

Matrix56. Дана матрица размера $M \times N$ ( $N$ — четное число). Поменять местами левую и правую половины матрицы.

Решение:

program Matrix56;
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 div 2)+j);

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

program Matrix56;

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 div 2)+j);

for i:=1 to M do

begin

for j:=1 to N do

begin

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

end;

writeln(' : ');

end;

end.

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

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

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

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

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