Можно ли создать множества?

echs · Регистрация: 23.10.2013

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

Я подумал. Вот в Паскале есть множества. А чем хуже VB?
И придумал. По крайней мере можно создать числовые
множества и даже лучше чем на паскале.
Суть дела в том, что мы задаем массив. Например A(1 To 10000)
2) в этот массив мы будем помещать натуральные числа,
принадлежащие сегменту [1; 10000]
3) принцип следующий: числу N соответствует А(N).
Иными словами. Индекс элемента массива равен
самому элементу массива N = A(N) !!
4) это значит в массиве-множестве в принципе не
будет равных элементов.
5) а как быть например с отрицательными числами?
Например дано множество: (-10; 0; 20)
Сдвинется индексы для этого множества на постоянное
целое число. Например на 20 и множество расположится
по индексам 10; 20; 40
Вопросы.
А можно ли образовать множества для вещественных чисел?
А как поступить с буквами и сочетаниями букв?
Что еще можно сказать?
Настоящему программисту всегда есть что сказать,
если он настоящий программист.

@Pro_grammer · 27.10.2015, 18:38

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

А чем хуже VB?

VB лучше. Там есть Dictionary

Кликните здесь для просмотра всего текста

Основное назначение Dictionary состоит в том, чтобы создавать коллекции - наборы однородных данных, в которых далее можно организовывать процедуры поиска или выполнять какие-то другие манипуляции с данными. Объект Dictionary имеет структуру, известную в языке Perl как ассоциативный массив (associative array). Каждый элемент данных в Dictionary ассоциируется с соответствующим ключом, эти связанные структуры получили название "пара ключ-значение" (key-value pair). В принципе можно привести массу аргументов в пользу применения Dictionary в качестве альтернативы обычному одномерному массиву, но самое главное, пожалуй, то, что при работе с Dictionary отпадает необходимость в использовании оператора ReDim при добавлении в него очередного элемента данных. Кроме того, следует отметить, что объект Dictionary имеет много полезных свойств и методов, недоступных для обычных массивов. В частности, здесь можно удалять элементы данных без образования пропусков в середине коллекции, а также задействовать в качестве ключей строковые значения.

@Sasha_Smirnov · 27.10.2015, 19:51

Уважаемый geh, у меня есть книжка «VBA для „чайников”», и там довольно подробно разъясняется использование и словарей (Dictionary), и семейств объектов (коллекций: http://wm-help.net/lib/b/book/267992846/359).

Актуально и для простого VB (без A), только с подключением Dictionary не знаю как там.

Добавлено через 2 минуты
Вот живой пример словаря (не считая кодировки русских букв), пробуйте: Во всех словах удалить повторяющиеся буквы.

@Казанский · 27.10.2015, 21:28

geh, прочитал я немного про множества в Паскале: http://comp-science.narod.ru/Progr/mn.htm

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

В VB массив бит можно хранить в массиве типа Long, один элемент массива = 32 бита. Операции объединения и пересечения множеств можно эмулировать побитовыми логическими операторами Or, And, Imp. Ну а что подразумевать под каждым битом - дело программиста

echs · 28.10.2015, 12:12 **[ТС]**

Ребята, спасибо!
Я тут еще подумал, что из отдельных символов
тоже можно создать множество. Допустим нас
интересует множество, которое может состоять
из заглавных символов латинского алфавита.
Тогда мы зададим строку длиной 26 единиц.
Где каждому символу отводится только одно место.
Если такой символ отсутствует, то заменим его
пробелом или иным другим знаком. В этом множестве
в принципе не может быть повтора. Ибо добавление
например буквы А (А стоит на первом месте) будет означать
что А заменит А и не более того.

@Catstail · 28.10.2015, 21:46

Разумеется, Казанский (как всегда!) прав. Словари здесь не при чем. Множества - это битовые поля. Вот мои "5 коп"
(В качестве хранилища битов используются строки, но лучше переделать на массивы байтов):

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
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::         Установить бит в логической шкале              :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Public Sub SetBit(LScale$, N&, B%)
    L& = Len(LScale$)
    '::: Если номер бита слишком велик
    If N& > L& * 8 Then Error 250
    '::: Рассчитаем номер байта шкалы
    NByte& = N& / 8
    If (N& - NByte& * 8) <= 0 Then NByte& = NByte& - 1
    NBit% = N& - NByte& * 8
    NByte& = NByte& + 1
    '::::  Установка нужного бита
    S$ = Mid$(LScale$, NByte&, 1)
    i% = Asc(S$)
    If B% <> 0 Then
       i% = (i% Or 2 ^ (8 - NBit%))
    Else
       i% = (i% And (255 - 2 ^ (8 - NBit%)))
    End If
    S$ = Chr$(i%)
    Mid$(LScale$, NByte&, 1) = S$
End Sub
 
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::            Опросить бит в логической шкале             :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Public Sub GetBit(LScale$, N&, B%)
       L& = Len(LScale$)
       ':::: Если номер бита слишком велик
       If N& > L& * 8 Then Error 250
       ':::: Рассчитаем номер байта шкалы
       NByte& = N& / 8
       If (N& - NByte& * 8) <= 0 Then Decr NByte&
       NBit% = N& - NByte& * 8
       Incr NByte&
       '::::    Чтение нужного бита
       S$ = Mid$(LScale$, NByte&, 1)
       i% = Asc(S$)
       B% = (i% And 2 ^ (8 - NBit%))
       If B% <> 0 Then B% = 1
End Sub

Этот код работает в моих программах уже почти 20 лет...

@Pro_grammer · 29.10.2015, 07:54

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

Множества - это битовые поля.

Я так подозреваю, что главное преимущество множеств в Паскале это скорость манипуляций с ними. Массив битов в памяти это ракета и велосипед по сравнению с работой со строками?

@The trick · 29.10.2015, 08:11

Windows предоставляет набор функций для работы с битовыми полями любой длины. Это используется при работе с кластерами, tls и т.д. Поиск по слову RTL_BITMAP.

@Catstail · 29.10.2015, 09:20

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

Массив битов в памяти это ракета и велосипед по сравнению с работой со строками?

- фраза не вполне понятна. Но в любом случае, в первую очередь важен интерфейс, во вторую - эффективность.

echs · 29.10.2015, 09:58 **[ТС]**

Ребята. Спасибо! Я всем вам очень благодарен.
Но особая благодарность Вам!
Славный Catstail,
Вы мой Ангел-хранитель. Вы так интересно и просто
излагаете довольно сложные вещи.
PS.
Особая благодарность за программу.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8

	Можно ли создать множества? 27.10.2015, 18:01. Показов 3745. Ответов 9 Метки нет (Все метки) Я подумал. Вот в Паскале есть множества. А чем хуже VB? И придумал. По крайней мере можно создать числовые множества и даже лучше чем на паскале. Суть дела в том, что мы задаем массив. Например A(1 To 10000) 2) в этот массив мы будем помещать натуральные числа, принадлежащие сегменту [1; 10000] 3) принцип следующий: числу N соответствует А(N). Иными словами. Индекс элемента массива равен самому элементу массива N = A(N) !! 4) это значит в массиве-множестве в принципе не будет равных элементов. 5) а как быть например с отрицательными числами? Например дано множество: (-10; 0; 20) Сдвинется индексы для этого множества на постоянное целое число. Например на 20 и множество расположится по индексам 10; 20; 40 Вопросы. А можно ли образовать множества для вещественных чисел? А как поступить с буквами и сочетаниями букв? Что еще можно сказать? Настоящему программисту всегда есть что сказать, если он настоящий программист. 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	27.10.2015, 19:51
	Уважаемый geh, у меня есть книжка «VBA для „чайников”», и там довольно подробно разъясняется использование и словарей (Dictionary), и семейств объектов (коллекций: http://wm-help.net/lib/b/book/267992846/359). Актуально и для простого VB (без A), только с подключением Dictionary не знаю как там. Добавлено через 2 минуты Вот живой пример словаря (не считая кодировки русских букв), пробуйте: Во всех словах удалить повторяющиеся буквы. 1

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	28.10.2015, 12:12 [ТС]
	Ребята, спасибо! Я тут еще подумал, что из отдельных символов тоже можно создать множество. Допустим нас интересует множество, которое может состоять из заглавных символов латинского алфавита. Тогда мы зададим строку длиной 26 единиц. Где каждому символу отводится только одно место. Если такой символ отсутствует, то заменим его пробелом или иным другим знаком. В этом множестве в принципе не может быть повтора. Ибо добавление например буквы А (А стоит на первом месте) будет означать что А заменит А и не более того. 1

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	29.10.2015, 08:11
	Windows предоставляет набор функций для работы с битовыми полями любой длины. Это используется при работе с кластерами, tls и т.д. Поиск по слову RTL_BITMAP. 2

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	29.10.2015, 09:58 [ТС]
	Ребята. Спасибо! Я всем вам очень благодарен. Но особая благодарность Вам! Славный Catstail, Вы мой Ангел-хранитель. Вы так интересно и просто излагаете довольно сложные вещи. PS. Особая благодарность за программу. 0

Можно ли создать множества?

Решение

Решение