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

Matrix44. Дана матрица размера $$M \times N$$. Найти минимальный среди элементов тех строк, которые упорядочены либо по возрастанию, либо по убыванию. Если упорядоченные строки в матрице отсутствуют, то вывести $$0$$.

Решение:

program Matrix44;
var
  a:array [1..10,1..10] of integer;
  M, N, i, j:Integer;

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
  begin
   j:=2;
   While ((a[i,j-1]<a[i,j]) and (j<=N)) do inc(j);
   if j=N+1 then writeln(a[i,1])
   else
    begin
     j:=2;
     While ((a[i,j-1]>a[i,j]) and (j<=N)) do inc(j);
     if j=N+1 then writeln(a[i,N])
      else
       writeln('0');
    end;
  end;
end.

program Matrix44;

var

a:array [1..10,1..10] of integer;

M, N, i, j:Integer;

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

begin

j:=2;

While ((a[i,j-1]<a[i,j]) and (j<=N)) do inc(j);

if j=N+1 then writeln(a[i,1])

else

begin

j:=2;

While ((a[i,j-1]>a[i,j]) and (j<=N)) do inc(j);

if j=N+1 then writeln(a[i,N])

else

writeln('0');

end;

end.

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

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

Bronislav

03.09.2018 в 00:45

А если автор задачи подразумевал найти один минимальный элемент из элементов всех упорядоченных строк, а не минимальный в каждой упорядоченной строке? Тогда решение неверное.

Ответить

program Matrix44;//pabc.net

begin
  var m := 10;
  var n := 3;
  
  var a := MatrRandom(m, n, 0, 9); a.Println;
  
  var min := integer.MaxValue;
  
  for var i := 0 to m - 1 do
  begin
    var b := a.Row(i).Sorted;
    var c := a.Row(i).SortedDescending;
    if a.Row(i).SequenceEqual(b) or a.Row(i).SequenceEqual(c) then
    begin
      var RowMin := a.Row(i).Min;
      if min > RowMin then min := RowMin;
      Println(i + 1, '***', a.Row(i))
    end
  end;
  
  Print(min < integer.MaxValue ? $'min = {min}' : '0')
end.

program Matrix44;//pabc.net

begin

var m := 10;

var n := 3;

var a := MatrRandom(m, n, 0, 9); a.Println;

var min := integer.MaxValue;

for var i := 0 to m - 1 do

begin

var b := a.Row(i).Sorted;

var c := a.Row(i).SortedDescending;

if a.Row(i).SequenceEqual(b) or a.Row(i).SequenceEqual(c) then

begin

var RowMin := a.Row(i).Min;

if min > RowMin then min := RowMin;

Println(i + 1, '***', a.Row(i))

end

end;

Print(min < integer.MaxValue ? $'min = {min}' : '0')

end.

Ответить

Переделал ваш код, чтоб программа работала, как в моем комментарии выше. Наверное можно лучше, но долго не думал, поэтому так как есть.

program Matrix44;//fpc

uses TaskMatrix;

var
  a: intMatrix;
  M, N, i, j, k, Min, MinRow: Integer;
  found: boolean;

begin
  m := 10;
  n := 3;
  
  FillMatrixByRandom(a, m, n, 0, 100);
  PrintMatrix(a, m, n);
  
  found := false;
  
  for i := 1 to M do
  begin
    j := 2;
    while ((a[i, j - 1] < a[i, j]) and (j <= N)) do inc(j);
    if (j = N + 1) then MinRow := a[i, 1];
    k := 2;
    while ((a[i, k - 1] > a[i, k]) and (k <= N)) do inc(k);
    if (k = N + 1) then MinRow := a[i, N];
    if (j = N + 1) or (k = N + 1) then
    begin
      if not found then begin Min := MinRow; found := true end
      else if Min > MinRow then Min := MinRow;
      Write(i, ' *** [');
      PrintRow(a, m, n, i); Writeln(']');
    end;
  end;
  
  if found then Write('Min = ', Min)
  else Write('0');
end.

program Matrix44;//fpc

uses TaskMatrix;

var

a: intMatrix;

M, N, i, j, k, Min, MinRow: Integer;

found: boolean;

begin

m := 10;

n := 3;

FillMatrixByRandom(a, m, n, 0, 100);

PrintMatrix(a, m, n);

found := false;

for i := 1 to M do

begin

j := 2;

while ((a[i, j - 1] < a[i, j]) and (j <= N)) do inc(j);

if (j = N + 1) then MinRow := a[i, 1];

k := 2;

while ((a[i, k - 1] > a[i, k]) and (k <= N)) do inc(k);

if (k = N + 1) then MinRow := a[i, N];

if (j = N + 1) or (k = N + 1) then

begin

if not found then begin Min := MinRow; found := true end

else if Min > MinRow then Min := MinRow;

Write(i, ' *** [');

PrintRow(a, m, n, i); Writeln(']');

end;

if found then Write('Min = ', Min)

else Write('0');

end.

Процедура PrintRow(a,m,n,i) находится в модуле TaskMatrix и это что-то такое:

procedure PrintRow(const a: intMatrix; m, n, i: integer);
var
  j: integer;
begin
  for j := 1 to N do
    if j <> N then
      Write(a[i, j], ' ')
    else Write(a[i, j]);
end;

procedure PrintRow(const a: intMatrix; m, n, i: integer);

var

j: integer;

begin

for j := 1 to N do

if j <> N then

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

else Write(a[i, j]);

end;

Ответить

«А если автор задачи подразумевал найти один минимальный элемент из элементов всех упорядоченных строк, а не минимальный в каждой упорядоченной строке? Тогда решение неверное.»
При таком условии, моё решение проще для быстрого понятия, чем решение человека выше)

program matrix44;
const n=7;m=3;
var
a:array[1..n,1..m] of integer;
i,j,min,l,z,v:integer;
begin
randomize;
for i:=1 to n do begin
 for j:=1 to m do begin
 a[i,j]:=random(20)+1;
 write(a[i,j]:3);
 end;
 writeln;
 end;
 min:=a[i,j];
 v:=0;
for i:=1 to n do begin
l:=0;
z:=0;
 for j:=1 to m-1 do begin
  if a[i,j]<a[i,j+1] then l:=l+1;
  end;
 for j:=1 to m-1 do begin
  if a[i,j]>a[i,j+1] then z:=z+1;
  end;
if (l=m-1) or (z=m-1) then begin
v:=v+1;
 for j:=1 to m do begin
 if a[i,j]<min then min:=a[i,j];
 end;
 end;
end;
writeln;
if v=0 then writeln('0')
else writeln(min);
end.

program matrix44;

const n=7;m=3;

var

a:array[1..n,1..m] of integer;

i,j,min,l,z,v:integer;

begin

randomize;

for i:=1 to n do begin

for j:=1 to m do begin

a[i,j]:=random(20)+1;

write(a[i,j]:3);

end;

writeln;

end;

min:=a[i,j];

v:=0;

for i:=1 to n do begin

l:=0;

z:=0;

for j:=1 to m-1 do begin

if a[i,j]<a[i,j+1] then l:=l+1;

end;

for j:=1 to m-1 do begin

if a[i,j]>a[i,j+1] then z:=z+1;

end;

if (l=m-1) or (z=m-1) then begin

v:=v+1;

for j:=1 to m do begin

if a[i,j]<min then min:=a[i,j];

end;

writeln;

if v=0 then writeln('0')

else writeln(min);

end.

Ответить

Bronislav

05.11.2018 в 01:35

Денис, ну тут суть то одна и та же в этих программах, только выше там наляпано с присвоением начального значения переменной Min, которой можно было заранее присвоить значение MaxInt и не использовать булевый флаг found. В конце же сравнивать Min c MaxInt и выводить соответственно или Min, если Min < MaxInt или 0 в противном случае. Но там есть и две ошибки в циклах, где проверяются строки на упорядоченность. В вашей программе они тоже есть (см строки 21 и 24). Строки могут быть, например, такими: 1 1 2 3 4 или 4 3 2 2 1, и эти циклы не увидят их отсортированными. Еще у вас ошибка в 15 строке, где вы переменной min присваиваете значение последнего элемента последней строки матрицы. А если, например, эта последняя строка матрицы не отсортированная, а последний элемент этой строки меньше всех элементов отсортированных строк? Нужно как-то иначе инициализировать переменную min, например так: min := MaxInt.

Ответить
- Денис
  
  05.11.2018 в 10:01
  
  Здравствуйте.
  Мне кажется по логике если строка будет 1 1 2 3 4, то ни одно из условий тут не будет, как раз таки программа эту строку пропустит.
  Ведь по условию возрастания или убывания, каждый следующий элемент должен быть больше\меньше, а если он равен текущему, то условие в задании уже не выполняется.
  Я просто новичёк и ваш код мне пока-что сложен, по этому думал, было бы не плохо выложить по проще что то.
  Насчёт 15 строки, тут вы правы, там даже не последний элемент присваивается(не понял почему). Исправил присвоением единички, ибо в матрице это будет минимальным числом.
  
  Ответить
  - Bronislav
    
    05.11.2018 в 12:54
    
    Строка 1 1 2 3 4 отсортирована по возрастанию и ее нужно учитывать. Так же и со строками по убыванию. При поиске минимального изначально в min нужно записывать максимальное число. Поэтому, обычно, берут MaxInt и не парятся в дальнейшем. Если взять минимальное, то вот это if a[i, j] < min then min := a[i, j] не будет работать (строка 29).
    
    Ответить
    - Денис
      
      05.11.2018 в 13:17
      
      Ах да, максимальное же берём.
      
      Ответить

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

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

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

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