По разделам

 

Решение задачи Matrix 75


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

Код (Pascal)

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 x1 then
   if mat[x,y]<=mat[x,y-1] then CheckMatrixLocMax:=False;
  if y1) 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.
									




Matrix. Абрамян
Matrix 1 Просмотров: 218
Matrix 2 Просмотров: 144
Matrix 3 Просмотров: 114
Matrix 4 Просмотров: 102
Matrix 5 Просмотров: 147
Matrix 6 Просмотров: 114
Matrix 7 Просмотров: 126
Matrix 8 Просмотров: 121
Matrix 9 Просмотров: 118
Matrix 10 Просмотров: 137
Matrix 11 Просмотров: 123
Matrix 12 Просмотров: 168
Matrix 13 Просмотров: 153
Matrix 14 Просмотров: 105
Matrix 15 Просмотров: 162
Matrix 16 Просмотров: 133
Matrix 17 Просмотров: 185
Matrix 18 Просмотров: 105
Matrix 19 Просмотров: 151
Matrix 20 Просмотров: 203
Matrix 21 Просмотров: 96
Matrix 22 Просмотров: 96
Matrix 23 Просмотров: 116
Matrix 24 Просмотров: 108
Matrix 25 Просмотров: 120
Matrix 26 Просмотров: 122
Matrix 27 Просмотров: 116
Matrix 28 Просмотров: 95
Matrix 29 Просмотров: 93
Matrix 30 Просмотров: 102
Matrix 31 Просмотров: 85
Matrix 32 Просмотров: 99
Matrix 33 Просмотров: 101
Matrix 34 Просмотров: 129
Matrix 35 Просмотров: 85
Matrix 36 Просмотров: 139
Matrix 37 Просмотров: 109
Matrix 38 Просмотров: 116
Matrix 39 Просмотров: 81
Matrix 40 Просмотров: 82
Matrix 41 Просмотров: 120
Matrix 42 Просмотров: 89
Matrix 43 Просмотров: 95
Matrix 44 Просмотров: 96
Matrix 45 Просмотров: 82
Matrix 46 Просмотров: 76
Matrix 47 Просмотров: 107
Matrix 48 Просмотров: 89
Matrix 49 Просмотров: 90
Matrix 50 Просмотров: 95
Matrix 51 Просмотров: 80
Matrix 52 Просмотров: 87
Matrix 53 Просмотров: 90
Matrix 54 Просмотров: 109
Matrix 55 Просмотров: 73
Matrix 56 Просмотров: 81
Matrix 57 Просмотров: 78
Matrix 58 Просмотров: 80
Matrix 59 Просмотров: 86
Matrix 60 Просмотров: 83
Matrix 61 Просмотров: 105
Matrix 62 Просмотров: 117
Matrix 63 Просмотров: 89
Matrix 64 Просмотров: 121
Matrix 65 Просмотров: 105
Matrix 66 Просмотров: 112
Matrix 67 Просмотров: 103
Matrix 68 Просмотров: 94
Matrix 69 Просмотров: 91
Matrix 70 Просмотров: 68
Matrix 71 Просмотров: 67
Matrix 72 Просмотров: 70
Matrix 73 Просмотров: 73
Matrix 74 Просмотров: 107
Matrix 75 Просмотров: 98
Matrix 76 Просмотров: 83
Matrix 77 Просмотров: 100
Matrix 78 Просмотров: 88
Matrix 79 Просмотров: 107
Matrix 80 Просмотров: 89
Matrix 81 Просмотров: 87
Matrix 82 Просмотров: 62
Matrix 83 Просмотров: 107
Matrix 84 Просмотров: 89
Matrix 85 Просмотров: 76
Matrix 86 Просмотров: 64
Matrix 87 Просмотров: 89
Matrix 88 Просмотров: 76
Matrix 89 Просмотров: 65
Matrix 90 Просмотров: 68
Matrix 91 Просмотров: 68
Matrix 92 Просмотров: 81
Matrix 93 Просмотров: 78
Matrix 94 Просмотров: 85
Matrix 95 Просмотров: 86
Matrix 96 Просмотров: 89
Matrix 97 Просмотров: 73
Matrix 98 Просмотров: 60
Matrix 99 Просмотров: 92
Matrix 100 Просмотров: 84

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться