Matrix79. Дана матрица размера M × N. Упорядочить ее столбцы так, чтобы их максимальные элементы образовывали возрастающую последовательность.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | program Matrix79; type matrix = array [1..10,1..10] of integer; var a:matrix; M, N, N2, i, j, j2: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 SwapMatrixColumn(var mat:matrix; X,Y:Integer); var i:integer; begin if x<>y then for i:=1 to M do swap(mat[i,x], mat[i,y]); end; function GetValueMatrixColumnMax(var mat:matrix; X:Integer):integer; var i,Max:integer; begin Max:=1; if x>0 then begin for i:=1 to M do if mat[i,x]>mat[Max,x] then Max:=i; GetValueMatrixColumnMax:=mat[Max,x]; 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; N2:=N; for j:=1 to N-1 do begin j2:=1; N2:=N2-1; while (j2<=N2) do begin if GetValueMatrixColumnMax(a,j2)>GetValueMatrixColumnMax(a,j2+1) then SwapMatrixColumn(a, j2, j2+1); inc(j2); end; end; for i:=1 to M do begin for j:=1 to N do begin Write(' : ',a[i,j]); end; writeln(' : '); end; end. |
program matrix79;
type
matrix=array[1..9,1..9] of integer;
procedure Obmen(var i,j,m:integer;var a:matrix);
var
i1,i2:integer;
begin
i2:=m+1;
for i1:=1 to i2 do begin
a[i1,i]:=a[i1,i]+a[i1,j];
a[i1,j]:=a[i1,i]-a[i1,j];
a[i1,i]:=a[i1,i]-a[i1,j];
end;
end;
var
a,b:matrix;
max,i1,kkk,k1,k2,k3,i,j,m,n:integer;
begin
m:=8;n:=8;kkk:=64;
randomize;
for i:=1 to m do begin
for j:=1 to n do begin;
a[i,j]:=random(50)+40;
end;
end;
b:=a;
writeln();
for i:=1 to m do begin
for j:=1 to n do begin
write(a[i,j],’ ‘);
end;
writeln();
end;
for j:=1 to n do begin
max:=a[1,j];
for i:=1 to m do begin
if a[i,j]>=max then begin max:=a[i,j];a[n+1,j]:=max; end;
end;
end;
for j:=1 to n-1 do begin
for i:=j+1 to n do begin
if a[m+1,j]>a[m+1,i] then begin k1:=j;k2:=i;k3:=m;Obmen(k1,k2,k3,a); end;
end;
end;
writeln();
for i:=1 to m+1 do begin
for j:=1 to n do begin
write(a[i,j],’ ‘);
end;
writeln();
end;
end.