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

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

Решение:

program Matrix76;
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;


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 a[i2,1]>a[i2+1,1] then
      begin
       SwapMatrixRow(a, i2, i2+1);
      end;
     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.

program Matrix76;

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;

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;

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;

M2:=M;

for i:=1 to M-1 do

begin

i2:=1;

M2:=M2-1;

while (i2<=M2) do

begin

if a[i2,1]>a[i2+1,1] then

begin

SwapMatrixRow(a, i2, i2+1);

end;

inc(i2);

end;

for i:=1 to M do

begin

for j:=1 to N do

begin

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

end;

writeln(' : ');

end;

end.

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

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

Джей

03.11.2016 в 14:16

Здравствуйте! Есть на С++?

Ответить
- Anton
  
  03.11.2016 в 19:29
  
  Нет нету, но почему бы и не решить:
  http://coolcode.ru/reshaem-zadachi-abramyan-na-gcc-matrix76/
  
  Ответить

program m76;
type
 matrix = array [1..10,1..10] of real;

procedure swap(n,m,l,i:integer; var a:matrix);
var j:integer;
begin
  for j:=1 to n do
   begin
    a[i,j]:=a[i,j]+a[l,j];
    a[l,j]:=a[i,j]-a[l,j];
    a[i,j]:=a[i,j]-a[l,j];
   end;
end;

var 
 a: matrix;
 n,m,i,j,l: integer;

begin
randomize;
 m:=random(8)+2;
 n:=random(8)+2;
 writeln('N=',n,'   M=',m);
 writeln();
 for i:=1 to m do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random*10;
     write(a[i,j]:6:2);
    end;
   writeln();
  end;
 writeln();
 for i:=1 to m do
  for l:=1 to m do
   if a[i,1]<a[l,1] then swap(n,m,l,i,a);
 for i:=1 to m do
  begin
   for j:=1 to n do write(a[i,j]:6:2);
   writeln();
  end;
end.

program m76;

type

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

procedure swap(n,m,l,i:integer; var a:matrix);

var j:integer;

begin

for j:=1 to n do

begin

a[i,j]:=a[i,j]+a[l,j];

a[l,j]:=a[i,j]-a[l,j];

a[i,j]:=a[i,j]-a[l,j];

end;

var

a: matrix;

n,m,i,j,l: integer;

begin

randomize;

m:=random(8)+2;

n:=random(8)+2;

writeln('N=',n,' M=',m);

writeln();

for i:=1 to m do

begin

for j:=1 to n do

begin

a[i,j]:=random*10;

write(a[i,j]:6:2);

end;

writeln();

end;

writeln();

for i:=1 to m do

for l:=1 to m do

if a[i,1]<a[l,1] then swap(n,m,l,i,a);

for i:=1 to m do

begin

for j:=1 to n do write(a[i,j]:6:2);

writeln();

end;

end.

Ответить

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

type
  intArray = array of integer;

procedure FillArrOfIntArray(a: array of intArray; m, n, k, l: integer);
begin
  for var i := 0 to m - 1 do
    a[i] := ArrRandom(n, 0, 99);
end;

procedure PrintArrOfIntArray(a: array of intArray; m, n: integer);//вывод матрицей
begin
  for var i := 0 to m - 1 do
  begin
    for var j := 0 to n - 1 do
      Write(a[i][j]:4);
    Println;
  end;
end;

begin
  var m := 5;
  var n := 6;
  
  var a := new intArray[m];//массив массивов
  
  FillArrOfIntArray(a, m, n, 0, 99);
  PrintArrOfIntArray(a, m, n);
  
  //сортировка пузырьком по 0-ым элементам подмассивов
  //или по элементам 0-го "столбца матрицы"
  for var k := 0 to m - 2 do
    for var i := 0 to m - 2 - k do//i-индекс подмассива-"строки матрицы"
      if a[i][0] > a[i + 1][0] then
        Swap(a[i], a[i + 1]);//обмен двух подмассивов-"строк матрицы"
  
  Println;
  PrintArrOfIntArray(a, m, n)
  
end.

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

//образовывали возрастающую последовательность.

program Matrix76;//pabc.net

type

intArray = array of integer;

procedure FillArrOfIntArray(a: array of intArray; m, n, k, l: integer);

begin

for var i := 0 to m - 1 do

a[i] := ArrRandom(n, 0, 99);

end;

procedure PrintArrOfIntArray(a: array of intArray; m, n: integer);//вывод матрицей

begin

for var i := 0 to m - 1 do

begin

for var j := 0 to n - 1 do

Write(a[i][j]:4);

Println;

end;

begin

var m := 5;

var n := 6;

var a := new intArray[m];//массив массивов

FillArrOfIntArray(a, m, n, 0, 99);

PrintArrOfIntArray(a, m, n);

//сортировка пузырьком по 0-ым элементам подмассивов

//или по элементам 0-го "столбца матрицы"

for var k := 0 to m - 2 do

for var i := 0 to m - 2 - k do//i-индекс подмассива-"строки матрицы"

if a[i][0] > a[i + 1][0] then

Swap(a[i], a[i + 1]);//обмен двух подмассивов-"строк матрицы"

Println;

PrintArrOfIntArray(a, m, n)

end.

Ответить

program Matrix76;//pabc.net

begin
  var m := 5;
  var n := 6;
  
  var a := MatrRandom(m, n, 0, 99);
  a.Println;
  
  //сортировка пузырьком по элементам 0-го столбца матрицы
  for var k := 0 to m - 2 do
    for var i := 0 to m - 2 - k do//i-индекс строки матрицы
      if a[i, 0] > a[i + 1, 0] then
        for var j := 0 to n - 1 do//поэлементный обмен строк
          Swap(a[i, j], a[i + 1, j]);
  
  Println;
  a.Println;
  
end.

program Matrix76;//pabc.net

begin

var m := 5;

var n := 6;

var a := MatrRandom(m, n, 0, 99);

a.Println;

//сортировка пузырьком по элементам 0-го столбца матрицы

for var k := 0 to m - 2 do

for var i := 0 to m - 2 - k do//i-индекс строки матрицы

if a[i, 0] > a[i + 1, 0] then

for var j := 0 to n - 1 do//поэлементный обмен строк

Swap(a[i, j], a[i + 1, j]);

Println;

a.Println;

end.

Ответить

Для тех кто хочет понять смысл задачи (как я изначально) не сломав мозг об чужие процедуры.

var
m,n,i,j:integer;// переменные для размера матрицы, и для счетных циклов
x:real;//переменная для обмена элементов строк
a:array [1..10,1..10] of real;// собстна массив (двухмерный:)
begin
readln (m,n);//ввод размера матрицы через пробел в одну строку
  for i:=1 to m do
  for j:=1 to n do read (a[i,j]);//ввод элементов матрицы через пробел в одну строку
  
  for var q:=1 to m-1 do begin //вариация на тему сортировки пузырьком 
  for i:=1 to m-1 do           //одного ряда элементов,а точнее первой колонки
  begin
    if a[i,1]>a[i+1,1] then    // сравнение колонки первых элементов- контрольной и 
    begin                      // следущей строки,если верхний больше то
    for j:=1 to N do           // меняем каждый из элементов этих строк
    begin
      x:=a[i,j];
      a[i,j]:=a[i+1,j];       //  обмен "по-школьному" через 3ю переменную
      a[i+1,j]:=x;
    end;
    end;
 end;
 end;
  for i:=1 to m do begin         //это блок-вывод матрицы в результате сортировки
  writeln;
  for j:=1 to n do print (a[i,j]);
  end;
end.

var

m,n,i,j:integer;// переменные для размера матрицы, и для счетных циклов

x:real;//переменная для обмена элементов строк

a:array [1..10,1..10] of real;// собстна массив (двухмерный:)

begin

readln (m,n);//ввод размера матрицы через пробел в одну строку

for i:=1 to m do

for j:=1 to n do read (a[i,j]);//ввод элементов матрицы через пробел в одну строку

for var q:=1 to m-1 do begin //вариация на тему сортировки пузырьком

for i:=1 to m-1 do //одного ряда элементов,а точнее первой колонки

begin

if a[i,1]>a[i+1,1] then // сравнение колонки первых элементов- контрольной и

begin // следущей строки,если верхний больше то

for j:=1 to N do // меняем каждый из элементов этих строк

begin

x:=a[i,j];

a[i,j]:=a[i+1,j]; // обмен "по-школьному" через 3ю переменную

a[i+1,j]:=x;

end;

for i:=1 to m do begin //это блок-вывод матрицы в результате сортировки

writeln;

for j:=1 to n do print (a[i,j]);

end;

end.

Ответить

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

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

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

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