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

@pancer · Регистрация: 18.02.2011

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

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

@pancer · 07.08.2011, 22:19 **[ТС]**

Хмм...
Никто не знает?
Пришлось сделать самому.

@Alexey Spirin · 08.08.2011, 12:05

Гений прям.
А зачем тогда вопросы в форум задаешь?
Правила форума вообще не думал попробовать почитать?

@pancer · 08.08.2011, 23:52 **[ТС]**

Так я ж двое суток ответа ждал!
За это время и придумал :-)

@Alexey Spirin · 09.08.2011, 00:11

а) вопросы в форуме должны быть толковые, а не потипа 'как две переменные сложить'.
б) если уж ты реил и считаешь, то выкладывай решение.
Понятное дело, что больше половины участников этого форума знают как это делается. Достаточно подумать секунд 10 и сразу станет понятно. Но если уж ты задал вопрос, то выкладывай и ответ, чтобы больше таких глупых вопросов не было.

@VladConn · 09.08.2011, 00:17

glupih voprosov ne bivaet

11.08.2011, 02:36

Бывают тупые спрашивающие. Два дня думать над такой задачей?
Панцер, может тебе не стоит заниматся програмированием?
Простите за грубость. Я примерно год в форум не заглядывал, а сейчас смотрю вопросы - все сплошь ламерские. До чайников не дотягиваете.
В наше время сначала книжки читали, а потом уже вопросы задавали.
Аж противно, чесное слово.

@pancer · 11.08.2011, 22:34 **[ТС]**

Так я ж и не профессиональный програмёр. Я им только сочувствую

Я так, для общего развития.
Извиняйте за потраченные нервные клетки.

@VladConn · 11.08.2011, 23:02

Lamerskie voprosi - tozhe voprosi. Nazyvat' kogo-to neznakomogo typim - verh lamerstva v iskusstve obscheniya.

Mozhet vi zrya i otvechali po-russki, raz pishete заниматся bez 'ь' i чесное bez 'т'? Eto verh lamerstva v grammatike russkogo yazyka.

Chego vi dobilis'? Chto ves' svet uvidel, chto nekto lamer v rodnom yazyke, dazhe i ne v VB?

@Alexey Spirin · 12.08.2011, 02:55

2VladConn: у всех бывают ошибки, что с этим поделать.
Но я думаю, что Вы со мной и с Irokez согласитесь, что решение вопроса о том, как удалить повторяющиеся элементы массива приходит не за нескольки дней, а за нескольких секунд. Я полностью согласен с Irokez. Для решения этого вопроса не нужно обладать феноменальной логикой и быть 'профессиональным програмёром'.

@pancer · 12.08.2011, 11:32 **[ТС]**

Судя по всему, форум пора закрывать...
Ведь и так всем всё ясно!
А если кто не находит ответа на вопрос в течении 2 секунд, то пускай продаёт компьютер и читает книжки (желательно по VB) :-)

@Serge Gavrilov · 12.08.2011, 12:16

В Fido очень разумно было произведено разделение конференций на обычные и для чайников. Я думаю, никто не застрахован от ситуации, когда не может решить простейшую задачу. Действительно, огромное количество неинтересных для профессионала вопросов может раздражать. Но, мне кажется, в сообщениях возмущающихся сквозит юношеский максимализм. Надеюсь никого не обидел.

@VladConn · 12.08.2011, 15:20

Zitata:
>2VladConn: у всех бывают ошибки, что с этим поделать.
Oshibki bivayut raznie. Eti - smehotvorni. Oni i est' primer 'lamerstva' (neprostitel'nongo), kotoriy stol' razdrazhaet samogo pishuschego. Eto oslepitel'niy primer togo, chto lamerami obychno bivayut te, kto v etom sam obvinyaet drugih lyudey, takovyni nikak ne yavlayuschiesya.

Zitata
>Но я думаю, что Вы со мной и с Irokez согласитесь, что решение >вопроса о том, как удалить повторяющиеся элементы массива приходит >не за нескольки дней, а за нескольких секунд.

Nikak net. Izvinite pokorno. Ya sprashival neskol'kih lyudey. Mnogie zatrudnilis' s otvetom. Normal'nie zhe lyudi. I pochemu vi schitaete, chto chelovek dumal dva dnya? Na osnovonanii togo, chto proshlo dva dnya? Eto uzhe drugoy primer lamerstva (so storoni vozmutivshegosya)- v umenii delat' logicheskie zaklyucheniya. A chto esli chelovak dumal paru chasov, a osta'noe vremya polival pomidori na dache ili prosto ne imel dostupa k internetu?

Prav bil predyduschiy orator: kto-to stradaet unosheskim maksimalizmom, chto v suschnosti i est' lamerstvo po zhizni v zelom. Slovo, kstati, nepriyatnoe, nerusskoe.

@pancer · 12.08.2011, 15:31 **[ТС]**

Насчёт помидоров - почти угадали.
Насчёт разделения конференций - очень мудро.

@pancer · 12.08.2011, 15:39 **[ТС]**

Только если разделить конференции, то соотношение участников будет примерно 90:10. Угадайте, в чью пользу? :-)
Правильно. Профессионалов немного. Да и делать им тут, можно сказать, нечего. Только если на вопросы ламеров (пользуюсь не своей терминологией) отвечать.

Думаю, юношеский максимализм всё же неуместен.

@Alexey Spirin · 12.08.2011, 17:31

по поводу двух дней:
'Так я ж двое суток ответа ждал!
За это время и придумал :-)'

И еще... Если сразу прийти в голову решение не может, то, как сказал Irokez, может правда лучше сменить работу?

12.08.2011, 20:58

хех... а где все же решение задачи? :-)))

@Alexey Spirin · 12.08.2011, 21:22

ну вот самый элементарный пример.
Вообще можно сделать без второго массива, ускорить при помощи сортировки исходного массива. Вариантов - туча.

Visual Basic
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
Option Explicit
 
Private Sub Command1_Click()
 
Randomize
 
'объявляем
Dim cnt As Integer, cnt2 As Integer, IsExists As Boolean
ReDim b(0) As Integer
ReDim a(100) As Integer
 
'заполняем
For cnt = 0 To UBound(a)
    a(cnt) = Int(Rnd * 20)
Next
 
'выводим исходный массив
For cnt = 0 To UBound(a)
    List1.AddItem a(cnt)
Next
 
'удаляем повторы
 
For cnt = 0 To UBound(a)
    IsExists = False
    For cnt2 = 1 To UBound(b)
        If b(cnt2) = a(cnt) Then IsExists = True: Exit For
    Next
    If Not IsExists Then
        ReDim Preserve b(UBound(b) + 1)
        b(UBound(b)) = a(cnt)
    End If
Next
 
ReDim a(UBound(b) - 1)
 
For cnt = 0 To UBound(b) - 1
    a(cnt) = b(cnt + 1)
Next
 
'выводим результат
For cnt = 0 To UBound(a)
    List2.AddItem a(cnt)
Next
 
End Sub

12.08.2011, 21:43

А мне вот такой нравится ;-))

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub delSTR()
Dim myDic As Dictionary
Set myDic = New Dictionary
Dim mV As Variant
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
mV = myDic.Items
Set myDic = Nothing
End Sub

@Alexey Spirin · 12.08.2011, 21:45

Да, так тоже можно, но в моем варианте не придется ссобой таскать MS Scripting Runtime

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@pancer 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 60

	Как удалить из массива повторяющиеся элементы? 05.08.2011, 23:16. Показов 4845. Ответов 22 Метки нет (Все метки) Как это сделать? 0

@pancer 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 60
	07.08.2011, 22:19 [ТС]
	Хмм... Никто не знает? Пришлось сделать самому. 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	08.08.2011, 12:05
	Гений прям. А зачем тогда вопросы в форум задаешь? Правила форума вообще не думал попробовать почитать? 0

@pancer 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 60
	08.08.2011, 23:52 [ТС]
	Так я ж двое суток ответа ждал! За это время и придумал :-) 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	09.08.2011, 00:11
	а) вопросы в форуме должны быть толковые, а не потипа 'как две переменные сложить'. б) если уж ты реил и считаешь, то выкладывай решение. Понятное дело, что больше половины участников этого форума знают как это делается. Достаточно подумать секунд 10 и сразу станет понятно. Но если уж ты задал вопрос, то выкладывай и ответ, чтобы больше таких глупых вопросов не было. 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	09.08.2011, 00:17
	glupih voprosov ne bivaet 0

Irokez
	11.08.2011, 02:36
	Бывают тупые спрашивающие. Два дня думать над такой задачей? Панцер, может тебе не стоит заниматся програмированием? Простите за грубость. Я примерно год в форум не заглядывал, а сейчас смотрю вопросы - все сплошь ламерские. До чайников не дотягиваете. В наше время сначала книжки читали, а потом уже вопросы задавали. Аж противно, чесное слово.

@pancer 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 60
	11.08.2011, 22:34 [ТС]
	Так я ж и не профессиональный програмёр. Я им только сочувствую Я так, для общего развития. Извиняйте за потраченные нервные клетки. 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	11.08.2011, 23:02
	Lamerskie voprosi - tozhe voprosi. Nazyvat' kogo-to neznakomogo typim - verh lamerstva v iskusstve obscheniya. Mozhet vi zrya i otvechali po-russki, raz pishete заниматся bez 'ь' i чесное bez 'т'? Eto verh lamerstva v grammatike russkogo yazyka. Chego vi dobilis'? Chto ves' svet uvidel, chto nekto lamer v rodnom yazyke, dazhe i ne v VB? 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	12.08.2011, 02:55
	2VladConn: у всех бывают ошибки, что с этим поделать. Но я думаю, что Вы со мной и с Irokez согласитесь, что решение вопроса о том, как удалить повторяющиеся элементы массива приходит не за нескольки дней, а за нескольких секунд. Я полностью согласен с Irokez. Для решения этого вопроса не нужно обладать феноменальной логикой и быть 'профессиональным програмёром'. 0

@pancer 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 60
	12.08.2011, 11:32 [ТС]
	Судя по всему, форум пора закрывать... Ведь и так всем всё ясно! А если кто не находит ответа на вопрос в течении 2 секунд, то пускай продаёт компьютер и читает книжки (желательно по VB) :-) 0

@Serge Gavrilov 3 / 3 / 0 Регистрация: 18.01.2009 Сообщений: 140
	12.08.2011, 12:16
	В Fido очень разумно было произведено разделение конференций на обычные и для чайников. Я думаю, никто не застрахован от ситуации, когда не может решить простейшую задачу. Действительно, огромное количество неинтересных для профессионала вопросов может раздражать. Но, мне кажется, в сообщениях возмущающихся сквозит юношеский максимализм. Надеюсь никого не обидел. 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	12.08.2011, 15:20
	Zitata: >2VladConn: у всех бывают ошибки, что с этим поделать. Oshibki bivayut raznie. Eti - smehotvorni. Oni i est' primer 'lamerstva' (neprostitel'nongo), kotoriy stol' razdrazhaet samogo pishuschego. Eto oslepitel'niy primer togo, chto lamerami obychno bivayut te, kto v etom sam obvinyaet drugih lyudey, takovyni nikak ne yavlayuschiesya. Zitata >Но я думаю, что Вы со мной и с Irokez согласитесь, что решение >вопроса о том, как удалить повторяющиеся элементы массива приходит >не за нескольки дней, а за нескольких секунд. Nikak net. Izvinite pokorno. Ya sprashival neskol'kih lyudey. Mnogie zatrudnilis' s otvetom. Normal'nie zhe lyudi. I pochemu vi schitaete, chto chelovek dumal dva dnya? Na osnovonanii togo, chto proshlo dva dnya? Eto uzhe drugoy primer lamerstva (so storoni vozmutivshegosya)- v umenii delat' logicheskie zaklyucheniya. A chto esli chelovak dumal paru chasov, a osta'noe vremya polival pomidori na dache ili prosto ne imel dostupa k internetu? Prav bil predyduschiy orator: kto-to stradaet unosheskim maksimalizmom, chto v suschnosti i est' lamerstvo po zhizni v zelom. Slovo, kstati, nepriyatnoe, nerusskoe. 0

@pancer 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 60
	12.08.2011, 15:31 [ТС]
	Насчёт помидоров - почти угадали. Насчёт разделения конференций - очень мудро. 0

@pancer 0 / 0 / 0 Регистрация: 18.02.2011 Сообщений: 60
	12.08.2011, 15:39 [ТС]
	Только если разделить конференции, то соотношение участников будет примерно 90:10. Угадайте, в чью пользу? :-) Правильно. Профессионалов немного. Да и делать им тут, можно сказать, нечего. Только если на вопросы ламеров (пользуюсь не своей терминологией) отвечать. Думаю, юношеский максимализм всё же неуместен. 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	12.08.2011, 17:31
	по поводу двух дней: 'Так я ж двое суток ответа ждал! За это время и придумал :-)' И еще... Если сразу прийти в голову решение не может, то, как сказал Irokez, может правда лучше сменить работу? 0

Сумрак
	12.08.2011, 20:58
	хех... а где все же решение задачи? :-)))

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	12.08.2011, 21:45
	Да, так тоже можно, но в моем варианте не придется ссобой таскать MS Scripting Runtime 0