Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

объединение массивов

11 views
Skip to first unread message

S_Stepanov

unread,
Aug 15, 2006, 8:55:52 PM8/15/06
to
Hi All,

А есть ли оператор объединения одинаковых по ширине(по nColumns) массивов(ну
типа concat какой нибудь...) или нет...

Igor Korolyov

unread,
Aug 18, 2006, 4:47:03 AM8/18/06
to
Hi S_Stepanov!
You wrote to All on Wed, 16 Aug 2006 03:55:52 +0600:

S> Hi All,

S> А есть ли оператор объединения одинаковых по ширине(по nColumns)
S> массивов(ну типа concat какой нибудь...)

Нет. Но есть функция копирования массивов ACOPY() с помощью которой (и
конечно с помощью DIMENSION для задания "новой" размерности массива) можно
решить задачу.

DIMENSION a1(2,3)
DIMENSION a2(5,3)
FOR ln1 = 1 TO 6
a1(m.ln1) = m.ln1
ENDFOR
FOR ln1 = 1 TO 15
a2(m.ln1) = m.ln1 + 6
ENDFOR

* Откуда будут располагаться данные "второго" массива в "объединённом"
ln1 = ALEN(a1) + 1
* Сначала зададим новый размер массива
DIMENSION a1(ALEN(a1, 1) + ALEN(a2, 1), ALEN(a1, 2))
* Теперь собственно копирование
? ACOPY(a2, a1, 1, -1, m.ln1)
* Результат
DISPLAY MEMORY LIKE a1

--
WBR, Igor

0 new messages