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

Автор: asdfg

asdfg — Sun, 23 Feb 2020 17:45:44 +0000

В ответ на asdfg. вот такая функция должна быть если в один иф все условия запихать: 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;

Автор: asdfg

asdfg — Sun, 23 Feb 2020 16:08:25 +0000

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

Автор: Bronislav

Bronislav — Mon, 17 Sep 2018 13:17:31 +0000

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

Автор: Kirk

Kirk — Thu, 11 May 2017 05:11:45 +0000

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.