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

Код


' опции
Option Explicit ' переменные должны быть явно объявлены
Option Base 1   ' нижняя граница массива всегда равна 1
'=============================
' объявление общих переменных
' все переменные приватные, извне недоступны
Private Arr() As Boolean
Private i As Integer
Private Bound As Integer
'=============================
' главная процедура
' она приватная, извне недоступна
Private Sub Main()
' инициализируется генератор случайных чисел
Randomize Timer
' задаётся случайный размер массива - от 100 до 1000 элементов
ReDim Arr(100 + 900 * Rnd)
' массив заполняется случайными значениями
For i = LBound(Arr) To UBound(Arr)
    If Rnd < 0.5 Then
        Arr(i) = True
    Else
        Arr(i) = False
    End If
Next
' вызывается внешняя функция
' ей передаётся размер массива (min и max значения индекса)
' и количество элементов True в массиве
' функция возвращает место, где поделить массив на 2 части
Bound = GetBound(LBound(Arr), UBound(Arr), Check(LBound(Arr), UBound(Arr), True))
' если возвращена правильная точка деления массива на части, то
If CheckBounds(Bound) Then
' то проверить равенство в частях количества значений True либо значений False
    If (Check(LBound(Arr), Bound, True) - Check(Bound + 1, UBound(Arr), True)) * (Check(LBound(Arr), Bound, False) - Check(Bound + 1, UBound(Arr), False)) = 0 Then
' если хотя бы одно из значений встречается в обеих частях в одинаковом количестве
' сообщить об удаче
        MsgBox "True"
    Else
' иначе о неудаче
        MsgBox "False"
    End If
Else
' или сообщить, что вычисленная точка деления массива на части неверна
    MsgBox "False"
End If
' и закончить работу
End Sub
'=============================
' функция подсчитывает количество логических значений CheckValue
' среди элементов массива Arr от LowBound до HighBound
' она приватная, извне недоступна
Private Function Check(LowBound As Integer, HighBound As Integer, CheckValue As Boolean) As Integer
Check = 0
For i = LowBound To HighBound
    If Not (Arr(i) Xor CheckValue) Then
        Check = Check + 1
    End If
Next
End Function
'=============================
' функция проверяет, что Index не выходит за границы массива
' она приватная, извне недоступна
Private Function CheckBounds(Index As Integer) As Boolean
CheckBounds = ((Index - LBound(Arr)) * (UBound(Arr) - Index) > 0)
End Function
'=============================
' процедура инвертирует элемент массива с номером Index
' процедура доступна для вызова извне
Public Sub Invert(Index As Integer)
Arr(Index) = Not Arr(Index)
End Sub

Код


Public Function GetBound(Low As Integer, High As Integer, Count As Integer) As Integer
' в функцию передаётся нижняя (Low) и верхняя (High) границы массива
' и количество в нём элементов True (Count)

' Можно определить любое число необходимых для работы переменных
' Dim i As Integer

' Можно в процессе работы вызывать неограниченное число раз
' функцию Invert из первого модуля
'Call Invert(n)

' в конце работы следует передать обратно вычисленное значение
'GetBound = 1
End Function

' При необходимости можно создать необходимое число процедур, функций и переменных