Присвоение ряду элементов массива ряда значений

@Hrethgir · 30.03.2015, 14:49. **Показов** 3811. **Ответов** 27

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

Хотелось бы как-то так:

Pascal
1
2
SetLength(pozithionInPosledovatelnostVobrazah, 4, 3, 2, 3);
pozithionInPosledovatelnostVobrazah[0 , 0 , 0, 0-2] := ряд значений(5, 6, 7)

Заранее благодарен за ответ.

@Hrethgir · 31.03.2015, 22:46 **[ТС]**

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

@Hrethgir · 06.04.2015, 23:09 **[ТС]**

volvo, должно быть так, мне тяжело разобраться, зачем я отмечал лучший ответ?

Pascal
1
2
TProc = procedure;
   TData = array[0 .. 3, 0 .. 2, 0 .. 1, 0 .. 2] of integer;

Добавлено через 51 минуту
вот так получается должно быть

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
  TProc = procedure;
   TData = array[0 .. 3, 0 .. 2, 0 .. 1, 0 .. 2] of integer;
const
  pozithionInPosledovatelnostVobrazah : TData =
  (
     (pozithionInPosledovatelnostVobrazah[0]
       (pozithionInPosledovatelnostVobrazah[0][0]
         ( 0, 2, 0 ), //pozithionInPosledovatelnostVobrazah[0][0][0]
         ( 0, 0, 0 ), //pozithionInPosledovatelnostVobrazah[0][0][1]
       ),
 
       ( // pozithionInPosledovatelnostVobrazah[0][1]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[0][1][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[0][1][1]
       ),
       ( // pozithionInPosledovatelnostVobrazah[0][2]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[0][2][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[0][2][1]
       )
     ),
 
     ( // pozithionInPosledovatelnostVobrazah[1]
       ( // pozithionInPosledovatelnostVobrazah[1][0]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[1][0][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[1][0][1]
       ),
 
       ( // pozithionInPosledovatelnostVobrazah[1][1]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[1][1][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[1][1][1]
       ),
       ( // pozithionInPosledovatelnostVobrazah[1][2]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[1][2][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[1][2][1]
       )
     ),
 
     ( // pozithionInPosledovatelnostVobrazah[2]
       ( // pozithionInPosledovatelnostVobrazah[2][0]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[2][0][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[2][0][1]
       ),
 
       ( // pozithionInPosledovatelnostVobrazah[2][1]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[2][1][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[2][1][1]
       ),
       ( // pozithionInPosledovatelnostVobrazah[2][2]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[2][2][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[2][2][1]
       )
     ),
 
     ( // pozithionInPosledovatelnostVobrazah[3]
       ( // pozithionInPosledovatelnostVobrazah[3][0]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[3][0][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[3][0][1]
       ),
 
       ( // pozithionInPosledovatelnostVobrazah[3][1]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[3][1][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[3][1][1]
       ),
       ( // pozithionInPosledovatelnostVobrazah[3][2]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[3][2][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[3][2][1]
       )
     )
  );

@volvo · 06.04.2015, 23:19

Самодеятельностью не надо заниматься. В 6 и 7 строках комментарии верни, это просто комментарии, чтобы было понятно, что где, в приведенном тобой виде программа компилироваться не будет.

@Hrethgir · 07.04.2015, 00:03 **[ТС]**

да, не компилируется
но мне ведь надо по другому, вот и занимаюсь самодеятельностью, я уже вижу что я напутал

Добавлено через 6 минут
не понимаю...сделал так, ну так ведь по комментариям вроде...

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
TProc = procedure;
   TData = array[0 .. 3, 0 .. 2, 0 .. 1, 0 .. 2] of integer;
const
  pozithionInPosledovatelnostVobrazah : TData =
  (
     ( // pozithionInPosledovatelnostVobrazah[0]
       ( // pozithionInPosledovatelnostVobrazah[0][0]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[0][0][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[0][0][1]
         ( 7, 8, 9 )  // pozithionInPosledovatelnostVobrazah[0][0][2]
       ),
 
       ( // pozithionInPosledovatelnostVobrazah[0][1]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[0][1][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[0][1][1]
         ( 7, 8, 9 )  // pozithionInPosledovatelnostVobrazah[0][1][2]
       )
     ),
 
     ( // pozithionInPosledovatelnostVobrazah[1]
       ( // pozithionInPosledovatelnostVobrazah[1][0]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[1][0][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[1][0][1]
         ( 7, 8, 9 )  // pozithionInPosledovatelnostVobrazah[1][0][2]
       ),
 
       ( // pozithionInPosledovatelnostVobrazah[1][1]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[1][1][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[1][1][1]
         ( 7, 8, 9 )  // pozithionInPosledovatelnostVobrazah[1][1][2]
       )
     ),
 
     ( // pozithionInPosledovatelnostVobrazah[2]
       ( // pozithionInPosledovatelnostVobrazah[2][0]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[2][0][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[2][0][1]
         ( 7, 8, 9 )  // pozithionInPosledovatelnostVobrazah[2][0][2]
       ),
 
       ( // pozithionInPosledovatelnostVobrazah[2][1]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[2][1][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[2][1][1]
         ( 7, 8, 9 )  // pozithionInPosledovatelnostVobrazah[2][1][2]
       )
     ),
 
     ( // pozithionInPosledovatelnostVobrazah[3]
       ( // pozithionInPosledovatelnostVobrazah[3][0]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[3][0][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[3][0][1]
         ( 7, 8, 9 )  // pozithionInPosledovatelnostVobrazah[3][0][2]
       ),
 
       ( // pozithionInPosledovatelnostVobrazah[3][1]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[3][1][0]
         ( 4, 5, 6 ), // pozithionInPosledovatelnostVobrazah[3][1][1]
         ( 7, 8, 9 )  // pozithionInPosledovatelnostVobrazah[3][1][2]
       )
     )
  );

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

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

TProc = procedure;
* *TData = array[0 .. 3, 0 .. 2, 0 .. 1, 0 .. 2] of integer;

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

Добавлено через 27 минут
сделал

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
 TProc = procedure;
    TData = array[0 .. 3, 0 .. 2, 0 .. 1, 0 .. 2] of integer;
const
  pozithionInPosledovatelnostVobrazah : TData =
  (
     ( // pozithionInPosledovatelnostVobrazah[0]
       ( // pozithionInPosledovatelnostVobrazah[0][0]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[0][0][0]
         ( 4, 5, 6 ) // pozithionInPosledovatelnostVobrazah[0][0][1]
         ),
 
       ( // pozithionInPosledovatelnostVobrazah[0][1]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[0][1][0]
         ( 4, 5, 6 ) // pozithionInPosledovatelnostVobrazah[0][1][1]
         ),
       ( // pozithionInPosledovatelnostVobrazah[0][2]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[0][2][0]
         ( 4, 5, 6 ) // pozithionInPosledovatelnostVobrazah[0][2][1]
       )
     ),
 
     ( // pozithionInPosledovatelnostVobrazah[1]
       ( // pozithionInPosledovatelnostVobrazah[1][0]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[1][0][0]
         ( 4, 5, 6 ) // pozithionInPosledovatelnostVobrazah[1][0][1]
        ),
 
       ( // pozithionInPosledovatelnostVobrazah[1][1]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[1][1][0]
         ( 4, 5, 6 ) // pozithionInPosledovatelnostVobrazah[1][1][1]
        ),
       ( // pozithionInPosledovatelnostVobrazah[1][2]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[1][2][0]
         ( 4, 5, 6 ) // pozithionInPosledovatelnostVobrazah[1][2][1]
       )
     ),
 
     ( // pozithionInPosledovatelnostVobrazah[2]
       ( // pozithionInPosledovatelnostVobrazah[2][0]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[2][0][0]
         ( 4, 5, 6 ) // pozithionInPosledovatelnostVobrazah[2][0][1]
       ),
 
       ( // pozithionInPosledovatelnostVobrazah[2][1]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[2][1][0]
         ( 4, 5, 6 ) // pozithionInPosledovatelnostVobrazah[2][1][1]
        ),
       ( // pozithionInPosledovatelnostVobrazah[2][2]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[2][2][0]
         ( 4, 5, 6 ) // pozithionInPosledovatelnostVobrazah[2][2][1]
       )
     ),
 
     ( // pozithionInPosledovatelnostVobrazah[3]
       ( // pozithionInPosledovatelnostVobrazah[3][0]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[3][0][0]
         ( 4, 5, 6 ) // pozithionInPosledovatelnostVobrazah[3][0][1]
       ),
 
       ( // pozithionInPosledovatelnostVobrazah[3][1]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[3][1][0]
         ( 4, 5, 6 ) // pozithionInPosledovatelnostVobrazah[3][1][1]
       ),
       ( // pozithionInPosledovatelnostVobrazah[3][2]
         ( 1, 2, 3 ), // pozithionInPosledovatelnostVobrazah[3][2][0]
         ( 4, 5, 6 ) // pozithionInPosledovatelnostVobrazah[3][2][1]
      )
     )
  );

ну как-то... за лучший ответ мысли какие-то странные.

@volvo · 07.04.2015, 00:21

Ой, да уберу я твой лучший ответ, только не причитай. Удавиться готов за нажатую кнопку прямо. И не ставь мне больше никогда ни лучших ответов, ни репутации... Сделаешь добро, так тебе же за это еще и выговорят, блин. Лучше б вообще не связывался. Знал же, что так и будет... Вместо того, чтобы АЗЫ синтаксиса выучить - ты хочешь, чтобы тебе все разжевали да в рот положили. Ну как же, ты ж на кнопку надавил, теперь тебе должны все, да?

А понять, что предпоследнее измерение индексируется от 0 до 1, то есть, там всего ДВА элемента, а не ТРИ, как ты сам писал раньше (заметь, не я, а ты сам привел описание своего массива) - это ж думать надо. А зачем?

P.S. Успокоился? Нет больше лучшего ответа в этой теме. Посему я больше здесь ничего никому не должен, от темы отписываюсь, тебя добавляю в Игнор-лист, чтоб случайно не ответить, и опять не задолжать. Удачи...

@Hrethgir · 07.04.2015, 15:12 **[ТС]**

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

Ой, да уберу я твой лучший ответ, только не причитай. Удавиться готов за нажатую кнопку прямо.

Ты знаешь... я её и сам мог убрать, не такой даун чтобы не понимать это...

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

Игнор-лист

ладно, не один такой ты великий специалист, форумов в РФ много ещё.

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

P.S. Успокоился?

И был спокоен...Вообще...Во всех отношениях.
Скриншот на память себе оставлю

@Hrethgir · 10.04.2015, 19:26 **[ТС]**

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

TData = array

интересно, а если мне понадобится залить второй массив или ещё несколько, можно будет использовать вот эту запись и далее

Pascal
1
 TData = array...

@ur_naz · 11.04.2015, 12:05

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

интересно, а если мне понадобится залить второй массив или ещё несколько, можно будет использовать вот эту запись и далее
Код Pascal
1
*TData = array...

это описание типа данных, ты можешь создать сколько угодно описаний переменных этого типа

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@Hrethgir Заблокирован
	31.03.2015, 22:46 [ТС]
	а не, мне ещё надо генерацию ломаной кривой из произвольных обрезанных прямых отрезков, отбрасываемых по оси X (то что "в тень попадает" типа - отсекается, остаются только не "теневые" отрезки собранные в ломаные кривые). этот способ я пока не придумал, но я это исправлю. я и забыл как-то, между делом... 0

@volvo Супер-модератор 33474 / 21573 / 8249 Регистрация: 22.10.2011 Сообщений: 37,032 Записей в блоге: 12
	06.04.2015, 23:19
	Самодеятельностью не надо заниматься. В 6 и 7 строках комментарии верни, это просто комментарии, чтобы было понятно, что где, в приведенном тобой виде программа компилироваться не будет. 0

@volvo Супер-модератор 33474 / 21573 / 8249 Регистрация: 22.10.2011 Сообщений: 37,032 Записей в блоге: 12
	07.04.2015, 00:21
	Ой, да уберу я твой лучший ответ, только не причитай. Удавиться готов за нажатую кнопку прямо. И не ставь мне больше никогда ни лучших ответов, ни репутации... Сделаешь добро, так тебе же за это еще и выговорят, блин. Лучше б вообще не связывался. Знал же, что так и будет... Вместо того, чтобы АЗЫ синтаксиса выучить - ты хочешь, чтобы тебе все разжевали да в рот положили. Ну как же, ты ж на кнопку надавил, теперь тебе должны все, да? А понять, что предпоследнее измерение индексируется от 0 до 1, то есть, там всего ДВА элемента, а не ТРИ, как ты сам писал раньше (заметь, не я, а ты сам привел описание своего массива) - это ж думать надо. А зачем? P.S. Успокоился? Нет больше лучшего ответа в этой теме. Посему я больше здесь ничего никому не должен, от темы отписываюсь, тебя добавляю в Игнор-лист, чтоб случайно не ответить, и опять не задолжать. Удачи... 1