Поэтому в двоичной записи числа 56 три единицы.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim A() As Integer
Dim B() As Integer
Randomize()
Dim k As Integer
Dim i As Integer
i = Rnd() * 100 + 1
ReDim A(i)
For k = 0 To i
A(k) = Rnd() * -1000 + 500
Next
i = Rnd() * 100 + 1
ReDim B(i)
For k = 0 To i
B(k) = Rnd() * -1000 + 500
Next
''''1.
Dim msg_A As String
msg_A = VerifySort(A)
If msg_A <> CStr(A.Length) Then
MsgBox(msg_A)
Else
MsgBox("Массив А упорядочен")
End If
Dim msg_B As String
msg_B = VerifySort(B)
If msg_B <> CStr(A.Length) Then
MsgBox(msg_B)
Else
MsgBox("Массив B упорядочен")
End If
sort(A)
msg_A = VerifySort(A)
If msg_A <> CStr(A.Length) Then
MsgBox(msg_A)
Else
MsgBox("Массив А упорядочен")
End If
''''' 2.
Dim h As Integer
h = InputBox("Введите h")
i = CompareValue(A, h)
If i <> UBound(A) Then
MsgBox("У массива не все элементы больше h. Значений больше h " & i & " шт.")
Else
MsgBox("У массива все элементы больше h.")
End If
i = CompareValue(B, h)
If i <> UBound(B) Then
MsgBox("У массива не все элементы больше h. Значений больше h " & i & " шт.")
Else
MsgBox("У массива все элементы больше h.")
End If
End Sub
Private Function VerifySort(ByRef Massiv() As Integer) As String
Dim i, j, k As Integer
Dim msg As String
For i = Massiv.Length To 0 Step -1
For j = Massiv.Length - 1 To 1 Step -1
If Massiv(j) < Massiv(j - 1) Then
For k = 0 To Massiv.Length - 1
msg = msg & Massiv(k) & vbCrLf
Next
Return msg
End If
Next j
Next i
Return Massiv.Length
End Function
Private Function sort(ByRef Massiv() As Integer) As Integer
Dim i, j, Dump As Integer
For i = Massiv.Length To 0 Step -1
For j = Massiv.Length - 1 To 1 Step -1
If Massiv(j) < Massiv(j - 1) Then
Dump = Massiv(j)
Massiv(j) = Massiv(j - 1)
<span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535</span>
Massiv(j - 1) = Dump
End If
Next j
Next i
Return Massiv.Length
End Function
Private Function CompareValue(ByRef Massiv() As Integer, ByVal h As Integer) As Integer
Dim count As Integer
Dim i As Integer
For i = 0 To UBound(Massiv) - 1
If Massiv(i) > h Then count = count + 1
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Next
Return count
End Function
32=2^5 --> 5 бит для кодировки одного символа
5*30=150 бит всё сообщение
1) 1 Килобайт = 1024 Байтов
1 Мегабайт = 1024 Килобайтов (1024 Б * 1024 Б)
=> 1572864 : 1024 = 1536 КБ (Килобайт)
(1536 ←(1572864 Б) : 1024 = 1,5 МБ ⇔ Окончательный ответ)
2) 1 Байт = 8 Битов
=> 20480 : 8 = 2560
20480 Бит = 2560 Байт
(2560 ←(20480 Бит): 1024 = 2,5 КБ ⇔ Окончательный ответ )
3) 4194304 Байт = 4096 Кб
(4096 Кб = 4 Мб ⇔ Окончательный ответ)
4)40960 Бит = 5120 Байт
(5120 Байт = 5 Кб ⇔ Окончательный ответ)
5) 3145728 Байт = 3072 Кб
(3072 Кб = 3 Мб ⇔ Окончательный ответ)
6) 155648 Бит = 19456 Байт
(19456 Байт = 19 Кб ⇔ Окончательный ответ)