По разделам

 

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


Дана матрица размера M ×N. Упорядочить ее строки так, чтобы их минимальные элементы образовывали убывающую последовательность.

Код (Pascal)

program Matrix78;
type
  matrix = array [1..10,1..10] of integer;
 
var
  a:matrix;
  M, M2, N, i, i2, j:Integer;
 
procedure Swap(var X,Y:Integer);
begin
 if x<>y then
  begin
   X:=X+Y;
   Y:=X-Y;
   X:=X-Y;
  end;
end;
 
procedure SwapMatrixRow(var mat:matrix; X,Y:Integer);
var
 j:integer;
begin
 if x<>y then
  for j:=1 to N do
   swap(mat[x,j], mat[y,j]);
end;
 
function GetValueMatrixRowMin(var mat:matrix; X:Integer):integer;
var
 j,Min:integer;
begin
 Min:=1;
 if x>0 then
  begin
   for j:=1 to N do
    if mat[x,j]>mat[x,Min] then Min:=j;
   GetValueMatrixRowMin:=mat[x,Min];
  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;
 
 M2:=M;
 for i:=1 to M-1 do
  begin
   i2:=1;
   M2:=M2-1;
   while (i2<=M2) do
    begin
 
     if GetValueMatrixRowMin(a,i2)<GetValueMatrixRowMin(a,i2+1) then
       SwapMatrixRow(a, i2, i2+1);
 
     inc(i2);
    end;
   end;
 
 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 Просмотров: 698
Matrix 2 Просмотров: 323
Matrix 3 Просмотров: 291
Matrix 4 Просмотров: 263
Matrix 5 Просмотров: 320
Matrix 6 Просмотров: 343
Matrix 7 Просмотров: 268
Matrix 8 Просмотров: 301
Matrix 9 Просмотров: 325
Matrix 10 Просмотров: 300
Matrix 11 Просмотров: 327
Matrix 12 Просмотров: 340
Matrix 13 Просмотров: 308
Matrix 14 Просмотров: 296
Matrix 15 Просмотров: 377
Matrix 16 Просмотров: 263
Matrix 17 Просмотров: 349
Matrix 18 Просмотров: 242
Matrix 19 Просмотров: 292
Matrix 20 Просмотров: 372
Matrix 21 Просмотров: 249
Matrix 22 Просмотров: 247
Matrix 23 Просмотров: 331
Matrix 24 Просмотров: 243
Matrix 25 Просмотров: 242
Matrix 26 Просмотров: 246
Matrix 27 Просмотров: 220
Matrix 28 Просмотров: 207
Matrix 29 Просмотров: 179
Matrix 30 Просмотров: 238
Matrix 31 Просмотров: 217
Matrix 32 Просмотров: 200
Matrix 33 Просмотров: 243
Matrix 34 Просмотров: 251
Matrix 35 Просмотров: 212
Matrix 36 Просмотров: 261
Matrix 37 Просмотров: 192
Matrix 38 Просмотров: 215
Matrix 39 Просмотров: 166
Matrix 40 Просмотров: 214
Matrix 41 Просмотров: 214
Matrix 42 Просмотров: 185
Matrix 43 Просмотров: 178
Matrix 44 Просмотров: 178
Matrix 45 Просмотров: 177
Matrix 46 Просмотров: 190
Matrix 47 Просмотров: 200
Matrix 48 Просмотров: 175
Matrix 49 Просмотров: 176
Matrix 50 Просмотров: 189
Matrix 51 Просмотров: 171
Matrix 52 Просмотров: 189
Matrix 53 Просмотров: 168
Matrix 54 Просмотров: 203
Matrix 55 Просмотров: 140
Matrix 56 Просмотров: 173
Matrix 57 Просмотров: 144
Matrix 58 Просмотров: 157
Matrix 59 Просмотров: 146
Matrix 60 Просмотров: 168
Matrix 61 Просмотров: 181
Matrix 62 Просмотров: 193
Matrix 63 Просмотров: 171
Matrix 64 Просмотров: 197
Matrix 65 Просмотров: 175
Matrix 66 Просмотров: 197
Matrix 67 Просмотров: 181
Matrix 68 Просмотров: 165
Matrix 69 Просмотров: 189
Matrix 70 Просмотров: 131
Matrix 71 Просмотров: 139
Matrix 72 Просмотров: 140
Matrix 73 Просмотров: 139
Matrix 74 Просмотров: 173
Matrix 75 Просмотров: 171
Matrix 76 Просмотров: 159
Matrix 77 Просмотров: 166
Matrix 78 Просмотров: 164
Matrix 79 Просмотров: 169
Matrix 80 Просмотров: 247
Matrix 81 Просмотров: 163
Matrix 82 Просмотров: 143
Matrix 83 Просмотров: 197
Matrix 84 Просмотров: 141
Matrix 85 Просмотров: 140
Matrix 86 Просмотров: 120
Matrix 87 Просмотров: 159
Matrix 88 Просмотров: 147
Matrix 89 Просмотров: 138
Matrix 90 Просмотров: 129
Matrix 91 Просмотров: 133
Matrix 92 Просмотров: 142
Matrix 93 Просмотров: 159
Matrix 94 Просмотров: 150
Matrix 95 Просмотров: 146
Matrix 96 Просмотров: 154
Matrix 97 Просмотров: 131
Matrix 98 Просмотров: 125
Matrix 99 Просмотров: 156
Matrix 100 Просмотров: 171

Комментарии

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