Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Поиск одинаковых чисел

Автор: Чуччи 30.10.2011, 14:03

Привет всем!
Моя задачка:
Определите и выведите на экран множество целых чисел находящихся одновременно в строках массива 2*5
Вот что у меня получилось:

Код


Dim i, j, k, g, h, l As Integer
    Dim a(,) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = ""
        i = 2
        j = 5
        ReDim a(0 To i - 1, 0 To j - 1)
        For n = 0 To i - 1
            For m = 0 To j - 1
                a(n, m) = Rnd(20) * 10 - 2
                If m = j - 1 Then
                    RichTextBox1.Text = RichTextBox1.Text + Str(a(n, m)) + vbCrLf
                Else
                    RichTextBox1.Text = RichTextBox1.Text + Str(a(n, m)) + " "
                End If
            Next
        Next
        For n = 0 To i - 1
            For m = 0 To j - 1
                l = 0
                For g = 0 To i - 1
                    For h = 0 To j - 1
                        If a(n, m) = a(g, h) And ((g <> n) or (h <> m)) Then
                            l = l + 1
                           RichTextBox2.Text = RichTextBox2.Text + Str(a(n, m)) + " "
                                Else
                           RichTextBox2.Text = RichTextBox2.Text + Str(a(n, m)) + vbCrLf
                        End If
                    Next
                Next
            Next
        Next
        End Sub

но выводит не понятно что

Автор: iff 30.10.2011, 17:12

Цитата(Чуччи @ 30.10.2011, 14:03

)

Dim a(,) As Integer

Цитата(Чуччи @ 30.10.2011, 14:03

)

        i = 2
        j = 5
        ReDim a(0 To i - 1, 0 To j - 1)

Зачем?

Код


Dim a(1, 4) As Integer

***

Цитата(Чуччи @ 30.10.2011, 14:03

)

RichTextBox1

Зачем? Можно использовать просто textbox со свойством multiline=true.
***

Цитата(Чуччи @ 30.10.2011, 14:03

)

                If m = j - 1 Then
                    RichTextBox1.Text = RichTextBox1.Text + Str(a(n, m)) + vbCrLf
                Else
                    RichTextBox1.Text = RichTextBox1.Text + Str(a(n, m)) + " "
                End If

Не надо. После вывода массива будут выводится другие данные - перевод строки нужен.
***
Зачем нужна переменная l (эль)?

Цитата(Чуччи @ 30.10.2011, 14:03

)

находящихся одновременно в строках

Т.е. например если массив емеет вид

Код


1 2 7 8 2
7 8 3 3 9

Ты вовидится не (2, 7, 8, 3), а (2, 3). Так?
... а может быть и наоборот: (7, 8). Сейчас даже подумал - последний вариант наверно самый правильный.
***
Тогда так:
Для конкретного случая (когда строки всего 2)

Код


For I = 0 To 4
    For J = 0 To 4
        If I <> J And A(0, I) = A(1, J) Then Text1.Text = Text1.Text + A(0, I) + vbCrLf
    Next J
Next I

Для общего случая можно так:

Код


For N = LBound(A, 1) To UBound(A, 1)
    For M = N + 1 To UBound(A, 1)
        For I = LBound(A, 2) To UBound(A, 2) 
            For J = LBound(A, 2) To UBound(A, 2)
                If I <> J And A(N, I) = A(M, J) Then Text1.Text = Text1.Text + A(0, I) + vbCrLf
            Next J
        Next I
    Next M
Next N

Однако, и там, и там возможен вариант, что если в страх повторяются значения несколько раз например:

Код


5 6 1 8 1
1 7 8 2 0

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

Код


Sub AddElement (Array As Variant, NewElement As Variant)
    Dim Element As Variant, Exist As Boolean
    For Each Element In Array
        If NewElement = Element Then
            Exist = True
            Exit For
        End If
    Next Element
    If Not Exist Then
        Redim Preserve Array(UBound(Array) + 1)
        Array(UBound(Array)) = NewElement
    End If
End Sub

Эта процедура добавляет элемент в массив только когда его там нет.

Автор: Чуччи 30.10.2011, 17:24

понятно

Автор: Akina 30.10.2011, 22:08

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!