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

Чуччи

Дата 30.10.2011, 14:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.11.2010

Репутация: нет
Всего: нет

Привет всем!
Моя задачка:
Определите и выведите на экран множество целых чисел находящихся одновременно в строках массива 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 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: 3
Всего: 16

Цитата(Чуччи @ 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

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

Это сообщение отредактировал(а) iff - 30.10.2011, 17:13

--------------------

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

Чуччи

Дата 30.10.2011, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.11.2010

Репутация: нет
Всего: нет

понятно

Это сообщение отредактировал(а) Чуччи - 30.10.2011, 17:36

Akina

Дата 30.10.2011, 22:08 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

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

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

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »