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

Matrix37. Дана целочисленная матрица размера $$M \times N$$, элементы которой могут принимать значения от $$0$$ до $$100$$. Различные столбцы матрицы назовем похожими, если совпадают множества чисел, встречающихся в этих столбцах. Найти количество столбцов, похожих на последний столбец данной матрицы.

Решение:

program Matrix37;
var
  a:array [1..10,1..10] of integer;
  Num, M, N, i, j:Integer;
  Column1, ColumnN : set of byte;

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;

 Column1:=[];
 for i:=1 to M do Column1:=Column1+[a[i,N]];

 Num:=0;
 for  j:=1 to N-1 do
  begin
   ColumnN:=[];

   for i:=1 to M do ColumnN:=ColumnN+[a[i,j]];


   if Column1=ColumnN then Num:=Num+1;
  end;

  Writeln(Num);
end.

program Matrix37;

var

a:array [1..10,1..10] of integer;

Num, M, N, i, j:Integer;

Column1, ColumnN : set of byte;

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;

Column1:=[];

for i:=1 to M do Column1:=Column1+[a[i,N]];

Num:=0;

for j:=1 to N-1 do

begin

ColumnN:=[];

for i:=1 to M do ColumnN:=ColumnN+[a[i,j]];

if Column1=ColumnN then Num:=Num+1;

end;

Writeln(Num);

end.

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

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

Екатерина

14.06.2018 в 15:59

Здравствуйте! При попытке запустить код он открывает, дает ввести числа все, но в конце, когда необходимо вывести кол-во столбцов похожих происходит просто закрытие приложения. В чем дело?

Ответить
- Anton
  
  14.06.2018 в 16:40
  
  Так давайте перед «end.» между 37 и 38 строкой введём сточку «Readln;Readln;Readln;»
  Это позволит не закрывать окно, пока вы 3 раза не нажмёте энтер.
  Ну и соответственно ещё бы данные которые вы вводитет, что бы я смог глянуть. 🙂
  
  Ответить
  - Bronislav
    
    01.09.2018 в 17:55
    
    Два Readln достаточно для любого случая. Первый считает все не считанные последним
    Read-ом символы (в том числе ’13’ и ’10’) до конца строки, второй будет ожидать ввода новой. Третий зачем?
    
    Ответить

Реализация на C#.

using System.Linq;
static int ColCounter(int row, int col)
{
    // Создаем массив и заполняем его случайными числами от 0 до 100
    var arr = Enumerable
                .Range(0, row * col)
                .Select(x => new Random().Next(0, 2))
                .Chunk(col)
                .ToArray();

    // Меняем местами строки и столбцы в  массиве
    var arrColRow = Enumerable
                .Range(0, col)
                .Select(x => arr
                    .Select(y => y[x])
                    .ToArray())
                .ToArray();

    // Проверяем равенство упорядоченных по возрастанию последовательностей     
    var result = arrColRow
                .SkipLast(1)
                .Count(x => x
                    .OrderBy(y => y)
                    .SequenceEqual(arrColRow
                        .Last()
                        .OrderBy(y => y)));
    return result;
}

using System.Linq;

static int ColCounter(int row, int col)

{

// Создаем массив и заполняем его случайными числами от 0 до 100

var arr = Enumerable

.Range(0, row * col)

.Select(x => new Random().Next(0, 2))

.Chunk(col)

.ToArray();

// Меняем местами строки и столбцы в массиве

var arrColRow = Enumerable

.Range(0, col)

.Select(x => arr

.Select(y => y[x])

.ToArray())

.ToArray();

// Проверяем равенство упорядоченных по возрастанию последовательностей

var result = arrColRow

.SkipLast(1)

.Count(x => x

.OrderBy(y => y)

.SequenceEqual(arrColRow

.Last()

.OrderBy(y => y)));

return result;

}

Ответить

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

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

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

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