Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.55/20: Рейтинг темы: голосов - 20, средняя оценка - 4.55
pancer
0 / 0 / 0
Регистрация: 18.02.2011
Сообщений: 60
1

Как удалить из массива повторяющиеся элементы?

05.08.2011, 23:16. Просмотров 3698. Ответов 22
Метки нет (Все метки)

Как это сделать?

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.08.2011, 23:16
Ответы с готовыми решениями:

Как удалить из массива элементы со второго по седьмой, сдвигая его остаток.
Нужно создать статистический массив. Например, Dim a as integer =...

Удалить из массива столбцы, содержащие элементы, меньше 10
Сформировать двумерный массив t(4;4) по правилу t(i,j)=5(i+j)-j. Удалить из...

Удалить из массива все элементы, больше данного числа k
Дан массив целых чисел (n=24), заполненный случайным образом числами из...

Удалить из массива все элементы, первая цифра которых четная
1. Дан массив целых чисел из n элементов, заполненный случайным образом...

Удалить из массива все элементы, которые состоят из одинаковых цифр
Дан массив целых чисел из n элементов, заполненный случайным образом числами из...

22
Сумрак
12.08.2011, 21:46 21
Нет... лучше так...
А то скажут что не работает :-)))
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Function delSTR(mV As Variant) As Variant
Dim myDic As Dictionary
Set myDic = New Dictionary
Dim i As Integer
For i = LBound(mV) To UBound(mV)
    If myDic.Exists(mV(i)) = False Then
        myDic.Add i, mV(i)
    End If
Nexti
delSTR = myDic.Items
Set myDic = Nothing
End Function
Сумрак
12.08.2011, 21:47 22
А я ее везде сую. нравится мне эта библа, да и Словарь инттересная штука
Сумрак
13.08.2011, 05:42 23
хех...:-(((
Аж самому стыдно стало :-)
тут Все на ключе завязано, а я на автомате в итемсы засунул.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Function delSTR(mV As Variant) As Variant
Dim myDic As Dictionary
Set myDic = New Dictionary
Dim i As Integer
For i = LBound(mV) To UBound(mV)
  If myDic.Exists(mV(i)) = False Then
    myDic.Add mV(i),i '!!!!
  End If
Next i
delSTR = myDic.keys '!!!!!
Set myDic = Nothing
End Function
13.08.2011, 05:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.08.2011, 05:42

Удалить из массива все четные элементы, у которых последняя цифра 2
Дан массив целых чисел из n элементов, заполненный случайным образом числами из...

Удалить из массива все элементы, первая и последняя цифра которых четная
нуждаюсь в помощи 1. Заполнить массив из n элементов случайными целыми числами...

Удалить из массива все элементы, в которых последняя цифра четная, а само число делится на нее
Дан массив целых чисел из n элементов, заполненный случайным образом числами из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
23
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru