Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как объединить массивы? как объединить массивы? 
:(
    Опции темы
Гость_Гость
Дата 27.1.2005, 15:59 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Подскажите пожалуйста как объеденить два массива в один.
а(а1,а2,a3)-первый массив
b(b1,b2,b3)-второй массив
с(a1,a2,a3,b1,b2,b3)-массив в итоге.
В сети ничего такого не нашел.
  Вверх
Naghual
Дата 27.1.2005, 16:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
redim c(a.ubound+b.ubound)
а потом циклом элементы в новый массив


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Akina
Дата 27.1.2005, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
лучше уж redim preserved a()


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Naghual
Дата 27.1.2005, 16:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Да. Лучше.
Но ведь ему нужно именно в С!


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Guest
Дата 27.1.2005, 17:57 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Naghual -
redim c(a.ubound+b.ubound)
ind=0
for i = 0 to ubound (a)
c(ind)=a(i)
ind=i+1
next i
for i = 0 to ubound (b)
c(ind)=b(i)
ind=i+1
next i
Так ?


Akina -

redim preserved a()

как тут добавить b() в a() не вьезжаю smile
  Вверх
Naghual
Дата 27.1.2005, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Да. Типа того.
Есть небольшая заморочка с индексом. Но думаю ты и сам разберешся.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Akina
Дата 27.1.2005, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Naghual @ 27.1.2005, 17:27)
Да. Лучше.
Но ведь ему нужно именно в С!

ага... именно поэтому он поместил тред в раздел по Бэйсику... не понимаю твоей логики...

Цитата(Guest @ 27.1.2005, 18:57)
redim preserved a()
как тут добавить b() в a() не вьезжаю

Код

' Draft code - check bounds
la=lbound(a)
ua=ubound(a)
lb=lbound(b)
ub=ubound(b)
redim preserved a(la to ua+ub-lb+1)
for i=ua+1 to ua+ub-lb+1
   a(i)=b(i-ua+lb-1)
next i



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Naghual
Дата 27.1.2005, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Цитата
Цитата (Naghual @ 27.1.2005, 17:27)
Цитата
Да. Лучше.
Но ведь ему нужно именно в С!

ага... именно поэтому он поместил тред в раздел по Бэйсику... не понимаю твоей логики...


smile Я имел в виду переменную "с". Вот тебе и логика.



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Akina
Дата 27.1.2005, 18:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Naghual @ 27.1.2005, 19:43)
Я имел в виду переменную "с". Вот тебе и логика.

а-а-а! smile


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Guest
Дата 27.1.2005, 19:11 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Akina -

спасибо большое !
но ругается на синтаксическую ошибку
redim preserved a()
  Вверх
Naghual
Дата 27.1.2005, 19:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Цитата
но ругается на синтаксическую ошибку
redim preserved a()

Это потому, что переменная А обьявленна как массив фиксированного размера:
Код
Dim a(5)

Объяви ее свободным массивом:
Код
Dim a()




--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0523 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.