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

Автор: Mark

Mark — Sat, 16 Dec 2023 11:09:11 +0000

Реализация на 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;

}

Автор: Bronislav

Bronislav — Sat, 01 Sep 2018 13:55:20 +0000

В ответ на Anton. Два Readln достаточно для любого случая. Первый считает все не считанные последним Read-ом символы (в том числе '13' и '10') до конца строки, второй будет ожидать ввода новой. Третий зачем?

Автор: Anton

Anton — Thu, 14 Jun 2018 12:40:27 +0000

В ответ на Екатерина. Так давайте перед "end." между 37 и 38 строкой введём сточку "Readln;Readln;Readln;" Это позволит не закрывать окно, пока вы 3 раза не нажмёте энтер. Ну и соответственно ещё бы данные которые вы вводитет, что бы я смог глянуть. :)

Автор: Екатерина

Екатерина — Thu, 14 Jun 2018 11:59:41 +0000

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