Заполнение элементов двумерного массива единицами

@hennssy · Регистрация: 26.04.2022

Студворк — интернет-сервис помощи студентам

Создать двумерный динамический массив из целых чисел размера (2х3). Заполнить его произвольными числами. Вывести его на экран. Изменить размер массива на (3х4). Заполнить добавленные ячейки единицами. Снова вывести массив на экран.

В задании запрещено использовать циклы!

Проблема возникла с заполнением "новых" ячеек массива единицами. Пытался использовать .col.fill, но результата никакого не дает

Есть какие-то ещё варианты?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
type matrix = array [,] of integer;
 
begin
  var a : matrix;
  a := new integer[2, 3];
  a.FillRandom(-5, 5);
  a.Print(5);
  println();
  setlength(a, 3, 4);
  a.col(3).Fill(1);
  a.Row(2).Fill(1);
  a.Print(5);
end.

Добавлено через 4 минуты

Не по теме:

Я не понимаю, почему нигде нет более менее подробной документации по методам в паскале. Пытался найти их для подобной задачи, но гугл выдает типичные сайты с лекциями по "двумерным массивам" и т.п., где нет нужной мне информации

@XzzzX · 17.11.2022, 21:33

Сообщение от hennssy

a.col(3).Fill(1);
a.Row(2).Fill(1);

.Col() как и .Row() являются функциями, то есть возвращают столбец или строку в виде ОТДЕЛЬНОГО массива, а не предоставляют доступ к существующему.

То, что Вы хотите, проще всего будет сделать обычными циклами.

Pascal
for var i:= 0 to a.RowCount - 1 do
  a[i, 3]:= 1;
for var i:= 0 to a.ColCount - 1 do
  a[2, i]:= 1;

Сообщение от hennssy

нет более менее подробной документации по методам в паскале

документации по методам решения школьных задач?

Добавлено через 8 минут

Сообщение от hennssy

В задании запрещено использовать циклы!

а, выпустил из вида, извиняюсь

@Sun Serega · 17.11.2022, 21:37

Сообщение от hennssy

но гугл выдает

Так а почему вы используете гугл вместо официальной документации?

Вы можете поставить курсор на интересующее вас имя и нажать F1, чтобы открыть соответствующую страницу справки.
Ну, в случае .Col вам покажет только то же описание, что вы видите по наведению мышки.

Что полезнее в данном случае - так это Ctrl+тык, позволяющий быстро прыгать между описанием и реализацией имени.

---

Сообщение от hennssy

.col.fill, но результата никакого не дает

Массив представляет свою собственную область памяти. Он не может ссылаться на кусок другого массива.
Чтобы представлять вид на кусок массива нужен отдельный тип, как запись System.ArraySegment<ТипЭлементов> в случае одномерных массивов (для двухмерных придётся написать свою запись).

Вы можете использовать или

Pascal
1
a.SetCol(3, |1|*3);

Но это менее эффективно, потому что создаётся 2 лишних массива:
1. Содержит одну единицу
2. Содержит три единицы
А память для них выделяет в куче...

Если важна эффективность по памяти и скорости - используйте for.

Сообщение от hennssy

запрещено использовать циклы

Ну а раз задание состоит в том, чтобы пофлексить, а не написать что-то адекватное:

Pascal
1
a.RowCount.Times.ForEach(i->(a[i,3]:=1));

Или сразу для строки и столбца:

Pascal
1
a.Transform((x,row,col)->(row=2)or(col=3)?1:x);

---

Сообщение от hennssy

type matrix =

Зачем?

Сообщение от hennssy

Pascal
1
2
  var a : matrix;
  a := new integer[2, 3];

Не разрывайте описание и первое присвоение, кроме самой крайней необходимости

Pascal
1
  var a := new integer[2, 3];

@XzzzX · 17.11.2022, 21:42

Сообщение от Sun Serega

1. Содержит одну единицу
2. Содержит три единицы

Этот момент можно оптимизировать так

Pascal
a.SetCol( 3, ArrFill(3, 1) );

или даже так

Pascal
a.SetCol( 3, SeqFill(3, 1) );

@Alvico · 18.11.2022, 11:15

Pascal
1
2
3
4
5
6
7
##
var a := MatrRandom(2, 3, 10, 99);
a.Println(3);
Writeln;
SetLength(a, 3, 4);
a.Transform(v -> v = 0 ? 1 : v);
a.Println(3);

@Sun Serega · 18.11.2022, 11:23

У вас .Transform неявно привязан к первой строчке.
С границами рандома что задавал ТС работать будет криво, но при этом ошибку не выдаст.
Это не лучше чем свалка var до begin - так же провоцирует ошибки по глупости.

@Alvico · 18.11.2022, 12:01

Что значит "неявно привязан"?
Откуда следует, что будет работать криво?

@Sun Serega · 18.11.2022, 12:05

Я сказал

Сообщение от Sun Serega

С границами рандома что задавал ТС

Сообщение от hennssy

a.FillRandom(-5, 5);

Добавлено через 1 минуту

Сообщение от Alvico

Что значит "неявно привязан"?

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

@Alvico · 18.11.2022, 12:35

У ТС изначально сказано следующее:

Создать двумерный динамический массив из целых чисел размера (2х3). Заполнить его произвольными числами. Вывести его на экран. Изменить размер массива на (3х4). Заполнить добавленные ячейки единицами. Снова вывести массив на экран.

Это уже он в своем примере взял границы [-5;5] - в условии об этом ни слова. Считаю, что в этих условиях глупо писать программу, рассчитанную на работу со случайными числами от минус до плюс бесконечности. Если Вы имели в виду, что нули могут изначально присутствовать в матрице - так и пишите, зачем это туманное ".Transform неявно привязан к первой строке"?

Но если все же хочется нули сохранить, можно иначе написать:

Pascal
1
2
3
4
5
6
7
8
9
10
11
##
var (m1, n1) := (2, 3);
var (m2, n2) := (3, 4);
var (p, q) := (-5, 5);
var w := Max(p.ToString.Length, q.ToString.Length) + 1;
var a := MatrRandom(m1, n1, p, q);
a.Println(w);
Writeln;
SetLength(a, m2, n2);
a.Transform((v, i, j) -> (i >= m1) or (j >= n1) ? 1 : v);
a.Println(w)

Задача одноразовая, не нужно из нее делать универсальное решение на всю оставшуюся жизнь.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	18.11.2022, 11:23
	У вас `.Transform` неявно привязан к первой строчке. С границами рандома что задавал ТС работать будет криво, но при этом ошибку не выдаст. Это не лучше чем свалка `var` до `begin` - так же провоцирует ошибки по глупости. 0

@Alvico 100 / 74 / 21 Регистрация: 12.04.2017 Сообщений: 269
	18.11.2022, 12:01
	Что значит "неявно привязан"? Откуда следует, что будет работать криво? Миниатюры 0

Заполнение элементов двумерного массива единицами

Решение