Получить все уникальные значения массива

@hukkfynn · Регистрация: 04.12.2011

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

Есть таблица 4х4, в ней 16 значений, из них от 2 до 8 уникальны, а остальные дублируют эти значения. Я пытаюсь вывести эти уникальные значения в текстовое поле, но что-то у меня не получается т.к. я проболел тему массивов

Посмотрите, пожалуйста, и скажите, что я делаю не так.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim a1...a16 as String
Dim mas(7) As String
Dim x As Integer
mas(x) = a1 ' т.к. это уже уникальное значение '
If a1 <> a2 Then
mas(x) = a2
End If ' и так далее до а16 '
 
For x = 0 To 7
Text1.Text = Text1.Text & mas(x) & vbCrLf
Next x

Извините если это покажется слишком просто/смешно, но я действительно не понимаю массивы

с выводом разобрался, нужно было просто переименовать переменную

Visual Basic
1
DIM x AS INTEGER[/BASIC] в [BASIC]DIM z AS INTEGER

но теперь в текстовом поле не выводит первое значение, а вместо него идут 3 подряд повторяющихся значения а 2

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
mas(0) = a1
 
If a1 <> a2 Then
mas(1) = a2
End If
 
If a3 <> a2 And a3 <> a1 Then
mas(2) = a3
End If
 
If a4 <> a1 And a4 <> a2 And a4 <> a3 Then
mas(3) = a4
End If
 
For i = 0 To 7
  Text1.Text = Text1.Text & mas(i) & vbCrLf
Next i

а так всё работает, но мне нужно чтобы значения сами выстраивались один за одним, а не я указывал им место..

Вобщем, я понял в чём проблема, но до меня не доходит как её решить

Весь массив забивается последним значением, стирая предыдущие, а как это исправить я не знаю..

@Alex77755 · 04.12.2011, 20:09

Уникальные выводятся в месагу, массив печатается на форму:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Private Sub Комманда1_Click()
'Есть таблица 4х4, в ней 16 значений, из них от 2 до 8 уникальны
'Значит надо задать массив 4х4. индексы по умолчанию начинаются с 0 поэтому:
Dim M(3, 3) 'массив
Dim R, C ' переменные циклов
Dim S 'строка результата
Cls ' чистим форму
Randomize 'инициализируем генератор сл. чисел
For R = 0 To 3 'gо всем строкам
     For C = 0 To 3 'по всем столбцам
     M(R, C) = Int(9 * Rnd) 'назначаем случайные от 0 до 8
         Print M(R, C), 'печатаем в строку
         If InStr(1, S, M(R, C)) = 0 Then 'если в строке нет такой цифры
              S = IIf(S = "", M(R, C), S & "," & M(R, C))
         End If
    Next C
    Print ' печатаем на форму
Next R
MsgBox "Уникальные цифры", 64, S
End Sub

@hukkfynn · 04.12.2011, 20:44 **[ТС]**

хм, вроде как понятно, но я не могу понять как это прикрутить к моей проблеме

тоесть смотри, сейчас я делаю функцию которая будет искать уникальные значения в таблице, которая генерируется другой функцией, то есть заполнять ничего не нужно. Фактически есть 16 переменных, и мне нужно каждую из них проверить на совпадение с другой, что я уже сделал посредством цикла If..then и затем внести уникальные в массив. То есть массив одномерный(хотя потом прийдётся переделывать в двомерный, т.к. нужно добавить функцию подсчёта повторений уник. значений, но мне бы сначала с этим разобраться)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
mas(0) = a1
 
For x = 1 To 7
If a1 <> a2 Then
mas(x) = a2
End If
 
If a3 <> a2 And a3 <> a1 Then
mas(x) = a3
End If
 
If a4 <> a1 And a4 <> a2 And a4 <> a3 Then
mas(x) = a4
End If
 
Next x
 
For x = 0 To 7 
  Text1.Text = Text1.Text & mas(x) & vbCrLf
Next x

проблемы у меня с этим куском, после его выполнения в текстовом поле выводится только mas(0) = a1 так как я вручную присвоил ему порядковый номер, и mas(x) = a4, который заполняет собой все последующие после а1 значения. Я не могу понять как мне сделать, чтобы последнее уникальное значение не заполняло собой предыдущие в массиве

@Alex77755 · 04.12.2011, 20:50

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
Option Explicit
 
Private Sub Комманда1_Click()
'Есть таблица 4х4, в ней 16 значений, из них от 2 до 8 уникальны
'Значит надо задать массив 4х4. индексы по умолчанию начинаются с 0 поэтому:
Dim M(3, 3) 'массив
Dim R, C ' переменные циклов
Dim S 'строка результата
Cls ' чистим форму
Randomize 'инициализируем генератор сл. чисел
For R = 0 To 3 'gо всем строкам
     For C = 0 To 3 'по всем столбцам
     M(R, C) = Int(9 * Rnd) 'назначаем случайные от 0 до 8
         Print M(R, C), 'печатаем в строку
         If Not UNIK(M(R, C)) Then 'если в строке нет такой цифры
                   S = IIf(S = "", M(R, C), S & "," & M(R, C))
         End If
    Next C
    Print ' печатаем на форму
Next R
MsgBox "Уникальные цифры", 64, S
End Sub
 
Function UNIK(X) As Boolean
 UNIK = InStr(1, S, X)
End Function

@hukkfynn · 04.12.2011, 22:26 **[ТС]**

Спасибо большое, очень компактный код получился!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
M(0) = a1
M(1) = a2
M(2) = a3
M(3) = a4
M(4) = b1
M(5) = b2
M(6) = b3
M(7) = b4
M(8) = c1
M(9) = c2
M(10) = c3
M(11) = c4
M(12) = d1
M(13) = d2
M(14) = d3
M(15) = d4
For R = 0 To 15
         If InStr(1, S, M(R)) = 0 Then
              S = IIf(S = "", M(R), S & vbCrLf & M(R))
         End If
Next R
Text1.Text = Text1.Text & S

По сравнению с тем, как я собирался это делать это просто чудо

А можно ли как то, сделать подсчёт повторений этих уникальных значений? То есть например значение Аб имеет 3 элемента?

@Alex77755 · 04.12.2011, 22:34

Легко. Примерно так.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
    Dim Dict As Object
    Set Dict = CreateObject("Scripting.Dictionary")
 
With Dict
For R = 0 To 15
        If .Exists(M(R)) Then
           .Item(M(R)) = .Item(M(R)) + 1
        Else
           .Add M(R), 1
        End If
Next R
End With

@hukkfynn · 04.12.2011, 22:46 **[ТС]**

а вот это мне трудней понять

Visual Basic
1
2
3
4
5
6
7
For R = 0 To 15
        If .Exists(M(R)) Then 'тут ты смотришь существует ли массив?
           .Item(M(R)) = .Item(M(R)) + 1 ' тут ты сравниваешь значения и + в счётчик?
        Else
           .Add M(R), 1 ' тут ты оставляешь счётчик неизменным?
        End If
Next R

@Alex77755 · 04.12.2011, 22:48

Не поверишь, но мне это трудно понять:

Visual Basic
1
2
3
4
5
6
7
8
9
10
M(0) = a1
M(1) = a2
M(2) = a3
M(3) = a4
M(4) = b1
M(5) = b2
M(6) = b3
M(7) = b4
M(8) = c1
M(9) = c2

А где-то в другом месте было:
a1=5
a2=8

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
Option Explicit
Private Sub Комманда1_Click()
Dim M(3, 3) 'массив
Dim S()
Dim R, C ' переменные циклов
Cls ' чистим форму
  Dim Dict As Object
  Set Dict = CreateObject("Scripting.Dictionary")
Randomize 'инициализируем генератор сл. чисел
With Dict
For R = 0 To 3 'gо всем строкам
     For C = 0 To 3 'по всем столбцам
     M(R, C) = Int(9 * Rnd) 'назначаем случайные от 0 до 8
      Print M(R, C);
        If .Exists(M(R, C)) Then
           .Item(M(R, C)) = .Item(M(R, C)) + 1
        Else
           .Add M(R, C), 1
        End If
    Next C
    Print ' печатаем на форму
Next R
End With
Print
Print "Количество повторений"
S = Dict.keys
For R = 0 To UBound(S)
    If Dict.Item(S(R)) <> 0 Then Print S(R) & " встретилась " & Dict.Item(S(R))
Next R
End Sub

@hukkfynn · 04.12.2011, 23:57 **[ТС]**

Alex77755, огромное тебе спасибо, ты мне очень помог

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника 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	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@hukkfynn 0 / 0 / 0 Регистрация: 04.12.2011 Сообщений: 5
	04.12.2011, 23:57 [ТС]
	Alex77755, огромное тебе спасибо, ты мне очень помог 0