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

@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, огромное тебе спасибо, ты мне очень помог

Новые блоги и статьи Все статьи Все блоги /
YAFU@home — распределённые вычисления для математики. На CPU Programma_Boinc 20.01.2026 YAFU@home — распределённые вычисления для математики. На CPU YAFU@home — это BOINC-проект, который занимается факторизацией больших чисел и исследованием aliquot-последовательностей. Звучит. . .	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

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