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

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

Решение:

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

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

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

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

program Matrix74;

type

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

var

a:matrix;

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

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

Begin

CheckMatrixLocMin:=true;

if x>1 then

if mat[x,y]>=mat[x-1,y] then CheckMatrixLocMin:=False;

if x<M then

if mat[x,y]>=mat[x+1,y] then CheckMatrixLocMin:=False;

if y>1 then

if mat[x,y]>=mat[x,y-1] then CheckMatrixLocMin:=False;

if y<N then

if mat[x,y]>=mat[x,y+1] then CheckMatrixLocMin:=False;

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

if mat[x,y]>=mat[x-1,y-1] then CheckMatrixLocMin:=False;

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

if mat[x,y]>=mat[x+1,y+1] then CheckMatrixLocMin:=False;

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

if mat[x,y]>=mat[x+1,y-1] then CheckMatrixLocMin:=False;

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

if mat[x,y]>=mat[x-1,y+1] then CheckMatrixLocMin:=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 CheckMatrixLocMin(a,i,j) then a[i,j]:=0;

for i:=1 to M do

begin

for j:=1 to N do

begin

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

end;

writeln(' : ');

end;

end.

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

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

program m74;
type 
 matrix = array [1..10,1..10] of real;

var
 a: matrix;
 n,m,i,j: integer;
 
function locmin(a:matrix; i,j:integer;):boolean;
begin
 locmin:=false;
 if ((i=1) or (a[i,j]<a[i-1,j]))
 and ((j=1) or (a[i,j]<a[i,j-1]))
 and ((j>n) or (a[i,j]<a[i,j+1])) 
 and ((i>m) or (a[i,j]<a[i+1,j])) then locmin:=true;
end;

begin
randomize;
 n:=random(8)+2;
 m:=random(8)+2;
 writeln('M=',m,'   N=',n);
 writeln();
 for i:=1 to m do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random*(20)-10;
     write(a[i,j]:6:2);
    end;
   writeln();
  end;
 for i:=1 to m do
  begin
   for j:=1 to n do
    if locmin(a,i,j) then a[i,j]:=0;
  end;
 writeln();
 for i:=1 to m do
  begin
   for j:=1 to n do write(a[i,j]:6:2);
   writeln();
  end;
 writeln();
end.

program m74;

type

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

var

a: matrix;

n,m,i,j: integer;

function locmin(a:matrix; i,j:integer;):boolean;

begin

locmin:=false;

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

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

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

and ((i>m) or (a[i,j]<a[i+1,j])) then locmin:=true;

end;

begin

randomize;

n:=random(8)+2;

m:=random(8)+2;

writeln('M=',m,' N=',n);

writeln();

for i:=1 to m do

begin

for j:=1 to n do

begin

a[i,j]:=random*(20)-10;

write(a[i,j]:6:2);

end;

writeln();

end;

for i:=1 to m do

begin

for j:=1 to n do

if locmin(a,i,j) then a[i,j]:=0;

end;

writeln();

for i:=1 to m do

begin

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

writeln();

end;

writeln();

end.

Ответить

asdfg

23.02.2020 в 20:08

не учитываются числа по диагоналям

Ответить
- asdfg
  
  23.02.2020 в 21:45
  
  вот такая функция должна быть если в один иф все условия запихать:
  function locmin (a:matrix; i,j:integer): boolean;
  begin
  locmin:= 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 locmin:=true;
  end;
  
  Ответить

Bronislav

17.09.2018 в 17:17

Работает, но с условием, что элементы матрицы не отрицательные. Поэтому сразу на нули менять нельзя. Или менять на число меньшее минимального элемента, а потом вторым проходом менять на нули, или использовать вспомогательную матрицу.

Ответить

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

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

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

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