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

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

Решение:

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

var
  a:matrix;
  Min, Max, M, N, i, j, K1, K2:Integer;

procedure Swap(var X,Y:Integer);
begin
 if x<>y then
  begin
   X:=X+Y;
   Y:=X-Y;
   X:=X-Y;
  end;
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
  begin
   Max:=1;
   Min:=1;
   for j:=2 to N do
    begin
     if a[i,j]>a[i,Max] then Max:=j;
     if a[i,j]<a[i,Min] then Min:=j;
    end;
   Swap(a[i,Max],a[i,Min]);
  end;

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

program Matrix49;

type

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

var

a:matrix;

Min, Max, M, N, i, j, K1, K2:Integer;

procedure Swap(var X,Y:Integer);

begin

if x<>y then

begin

X:=X+Y;

Y:=X-Y;

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

begin

Max:=1;

Min:=1;

for j:=2 to N do

begin

if a[i,j]>a[i,Max] then Max:=j;

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

end;

Swap(a[i,Max],a[i,Min]);

end;

for i:=1 to M do

begin

for j:=1 to N do

begin

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

end;

writeln(' : ');

end;

end.

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

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

В вашей программе меняются местами только первый максимум и первый минимум. Вы не учли, что максимумов и минимумов в строке может быть больше чем по одному.

program Matrix49;//pabc.net

begin
  var m := 5;
  var n := 6;
  
  var a := MatrRandom(m, n, 0, 10); a.Println;
  
  for var i := 0 to m - 1 do
  begin
    var Min := a.Row(i).Min;
    var Max := a.Row(i).Max;
    for var j := 0 to n - 1 do
    begin
      if a[i, j] = Min then a[i, j] := Max
      else if a[i, j] = Max then a[i, j] := Min;
    end;
  end;
  
  Println;
  a.Println;
end.

program Matrix49;//pabc.net

var m := 5;

var n := 6;

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

for var i := 0 to m - 1 do

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

var Max := a.Row(i).Max;

for var j := 0 to n - 1 do

if a[i, j] = Min then a[i, j] := Max

else if a[i, j] = Max then a[i, j] := Min;

Println;

a.Println;

Ответить

Денис

06.09.2019 в 20:14

Зачем описывать процедуру Swap, если в паскале есть встроенная swap?

Ответить
- Anton
  
  08.09.2019 в 18:09
  
  В borland pascal нет процедуры Swap. А если вы пользуетесь ABS паскаль, то да … наверно вам можно закоментить данную функцию…
  
  Ответить

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

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

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

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