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

Matrix75. Дана матрица размера $$M \times N$$. Элемент матрицы называется ее локальным максимумом, если он больше всех окружающих его элементов. Поменять знак всех локальных максимумов данной матрицы на противоположный. При решении допускается использовать вспомогательную матрицу.

Решение:

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

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

Function CheckMatrixLocMax(var mat:matrix; X,Y:Integer):Boolean;
 Begin
  CheckMatrixLocMax:=true;
  if x>1 then
   if mat[x,y]<=mat[x-1,y] then CheckMatrixLocMax:=False;
  if x<M then
   if mat[x,y]<=mat[x+1,y] then CheckMatrixLocMax:=False;
  if y>1 then
   if mat[x,y]<=mat[x,y-1] then CheckMatrixLocMax:=False;
  if y<N then
   if mat[x,y]<=mat[x,y+1] then CheckMatrixLocMax:=False;
  if (y>1) and (x>1) then
   if mat[x,y]<=mat[x-1,y-1] then CheckMatrixLocMax:=False;
  if (y<N) and (x<M) then
   if mat[x,y]<=mat[x+1,y+1] then CheckMatrixLocMax:=False;
  if (y>1) and (x<M) then
   if mat[x,y]<=mat[x+1,y-1] then CheckMatrixLocMax:=False;
  if (y<N) and (x>1) then
   if mat[x,y]<=mat[x-1,y+1] then CheckMatrixLocMax:=False;
 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  i:=1 to M do
   for j:=1 to N do
     if CheckMatrixLocMax(a,i,j) then a[i,j]:=(-1)*a[i,j];

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

program Matrix75;

type

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

var

a:matrix;

K, M, N, i, j:Integer;

Function CheckMatrixLocMax(var mat:matrix; X,Y:Integer):Boolean;

Begin

CheckMatrixLocMax:=true;

if x>1 then

if mat[x,y]<=mat[x-1,y] then CheckMatrixLocMax:=False;

if x<M then

if mat[x,y]<=mat[x+1,y] then CheckMatrixLocMax:=False;

if y>1 then

if mat[x,y]<=mat[x,y-1] then CheckMatrixLocMax:=False;

if y<N then

if mat[x,y]<=mat[x,y+1] then CheckMatrixLocMax:=False;

if (y>1) and (x>1) then

if mat[x,y]<=mat[x-1,y-1] then CheckMatrixLocMax:=False;

if (y<N) and (x<M) then

if mat[x,y]<=mat[x+1,y+1] then CheckMatrixLocMax:=False;

if (y>1) and (x<M) then

if mat[x,y]<=mat[x+1,y-1] then CheckMatrixLocMax:=False;

if (y<N) and (x>1) then

if mat[x,y]<=mat[x-1,y+1] then CheckMatrixLocMax:=False;

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 i:=1 to M do

for j:=1 to N do

if CheckMatrixLocMax(a,i,j) then a[i,j]:=(-1)*a[i,j];

for i:=1 to M do

begin

for j:=1 to N do

begin

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

end;

writeln(' : ');

end;

end.

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

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

program Matrix75;
type Matrix = array [1..10,1..10] of real;
var
m,n,i,j:integer;
a,a1:Matrix;
function F(a:Matrix; i,j:integer): boolean;
begin
F:= false;
if ((i=1) or (a[i,j]>a[i-1,j])) and
((j=1) or(a[i,j]>a[i,j-1])) and
((i=m) or (a[i,j]>a[i+1,j])) and
((j=n) or(a[i,j]>a[i,j+1])) and
((j=n) or (i=m) or (a[i,j]>a[i+1,j+1])) and
((j=1) or (i=m) or (a[i,j]>a[i+1,j-1])) and
((j=n) or (i=1) or (a[i,j]>a[i-1,j+1])) and
((j=1) or (i=1) or (a[i,j]>a[i-1,j-1])) 
 then F:=true;
end;
begin
read (m,n);
  for i:=1 to m do
  for j:=1 to n do read (a[i,j]);
  
   for i:=1 to m do//доп.блок для того чтобы не менять числа в исходном наборе
   for j:=1 to n do if F (a,i,j) then a1[i,j]:=999;//помечаем число,а не изменяем сразу,т.к
                                                   //оно еще участвует в сравнениях
   
   for i:=1 to m do
   for j:=1 to n do if a1[i,j]=999 then a1[i,j]:=-1*a[i,j] else a1[i,j]:=a[i,j];
   
   for i:=1 to m do begin
   writeln;
   for j:=1 to n do print (a1[i,j]);
   end;
end.

program Matrix75;

type Matrix = array [1..10,1..10] of real;

var

m,n,i,j:integer;

a,a1:Matrix;

function F(a:Matrix; i,j:integer): boolean;

begin

F:= false;

if ((i=1) or (a[i,j]>a[i-1,j])) and

((j=1) or(a[i,j]>a[i,j-1])) and

((i=m) or (a[i,j]>a[i+1,j])) and

((j=n) or(a[i,j]>a[i,j+1])) and

((j=n) or (i=m) or (a[i,j]>a[i+1,j+1])) and

((j=1) or (i=m) or (a[i,j]>a[i+1,j-1])) and

((j=n) or (i=1) or (a[i,j]>a[i-1,j+1])) and

((j=1) or (i=1) or (a[i,j]>a[i-1,j-1]))

then F:=true;

end;

begin

read (m,n);

for i:=1 to m do

for j:=1 to n do read (a[i,j]);

for i:=1 to m do//доп.блок для того чтобы не менять числа в исходном наборе

for j:=1 to n do if F (a,i,j) then a1[i,j]:=999;//помечаем число,а не изменяем сразу,т.к

//оно еще участвует в сравнениях

for i:=1 to m do

for j:=1 to n do if a1[i,j]=999 then a1[i,j]:=-1*a[i,j] else a1[i,j]:=a[i,j];

for i:=1 to m do begin

writeln;

for j:=1 to n do print (a1[i,j]);

end;

end.

Ответить

тот же вариант,но без функции (она там на самом деле не нужна):

program Matrix75;

var
  m, n, i, j: integer;
  a, a1: array [1..10, 1..10] of real;

begin
  read(m, n);
  for i := 1 to m do
    for j := 1 to n do read(a[i, j]);
  
  for i := 1 to m do
    for j := 1 to n do 
      if ((i = 1) or (a[i, j] > a[i - 1, j])) and
         ((j = 1) or (a[i, j] > a[i, j - 1])) and
         ((i = m) or (a[i, j] > a[i + 1, j])) and
         ((j = n) or (a[i, j] > a[i, j + 1])) and
         ((j = n) or (i = m) or (a[i, j] > a[i + 1, j + 1])) and
         ((j = 1) or (i = m) or (a[i, j] > a[i + 1, j - 1])) and
         ((j = n) or (i = 1) or (a[i, j] > a[i - 1, j + 1])) and
   ((j = 1) or (i = 1) or (a[i, j] > a[i - 1, j - 1]))
        then
        a1[i, j] := 999;
  for i := 1 to m do
    for j := 1 to n do if a1[i, j] = 999 then a1[i, j] := -1 * a[i, j] else a1[i, j] := a[i, j];
  
  for i := 1 to m do
  begin
    writeln;
    for j := 1 to n do print(a1[i, j]);
  end;
end.

program Matrix75;

var

m, n, i, j: integer;

a, a1: array [1..10, 1..10] of real;

begin

read(m, n);

for i := 1 to m do

for j := 1 to n do read(a[i, j]);

for i := 1 to m do

for j := 1 to n do

if ((i = 1) or (a[i, j] > a[i - 1, j])) and

((j = 1) or (a[i, j] > a[i, j - 1])) and

((i = m) or (a[i, j] > a[i + 1, j])) and

((j = n) or (a[i, j] > a[i, j + 1])) and

((j = n) or (i = m) or (a[i, j] > a[i + 1, j + 1])) and

((j = 1) or (i = m) or (a[i, j] > a[i + 1, j - 1])) and

((j = n) or (i = 1) or (a[i, j] > a[i - 1, j + 1])) and

((j = 1) or (i = 1) or (a[i, j] > a[i - 1, j - 1]))

then

a1[i, j] := 999;

for i := 1 to m do

for j := 1 to n do if a1[i, j] = 999 then a1[i, j] := -1 * a[i, j] else a1[i, j] := a[i, j];

for i := 1 to m do

begin

writeln;

for j := 1 to n do print(a1[i, j]);

end;

end.

Ответить

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

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

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

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