Есть ли одинаковые числа!

[kloyn91]

Уважаемые программисты!!!ни как не могу понять как решать задачи с одномерным и двумерными массивами! нужно написать программы:
1.Выяснить, есть ли одинаковые числа в одномерном массиве.
2.Выяснить, есть ли одинаковые числа в двумерном массиве.

Если не трудно напишите пожалуйста!

[doober]

kloyn91

Вам надо обращатся в Помощь студентам по таким вопросам.
Алгоритм могу описать.
Двухмерный массив преобразовать в одномерный.
Потом,например отсортировать по возростанию
Далее за один проход определить повторяющиеся значения.

Сортировка методом "Пузырька"

Public Function Пузырек(ByVal Arr() As Double, ByVal N As Long)

        Dim aI As Integer

        Dim I As Integer
        Dim J As Long

        Dim Tmp As Double

        For I = 0 To N - 1 Step 1
            For J = 0 To N - I - 1 Step 1

                aI = Tmp

                If Arr(J) > Arr(J + 1) Then
                    Tmp = Arr(J)
                    Arr(J) = Arr(J + 1)
                    Arr(J + 1) = Tmp

                End If

            Next J

        Next I

    End Function

Вам в этом помогут Яндекс и google

[SAS888]

Выяснить, есть ли одинаковые числа...

Если только выяснить, то можно проще. Например (для 1-й размерности), так:

Function Дубликат(ByVal arr As Variant) As Boolean
    Dim i As Long, x As New Collection
    Дубликат = False: On Error Resume Next
    For i = LBound(arr, 1) To UBound(arr, 1)
        x.Add arr(i, 1), CStr(arr(i, 1))
        If Err <> 0 Then
            Дубликат = True: Exit For
    End If: Next: Set x = Nothing
End Function

[kloyn91]

Спасибо огромное!