150 пунктов за два в basic 1.составьте функцию, проверяющую всех элементов одномерного массива целых чисел по убыванию их значений. используя эту функцию, выведите каждый из двух заданных одномерных массивов а и в, если его элементы не в порядке убывания их значений. в противном случае выведите сообщение "массив а ( или в) ". 2. составьте функцию проверяющую, что все элементы одномерного массива имеют значения, больше заданной величины. используя эту функцию, определите для двух заданных одномерных массивов а и в, у скольких из них значение всех элементов больше заданной величины h

  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) '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535                     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

1. 134 бит

2. 1419264 бит

3. 6,21 Тбайт

4. 2764,8 Мбайт

5. 0,542 Мбайт

6. 4456448 байт

7. 0,0000277 Мбайт

8. 2147483648 бит

Объяснение:

1 байт = 8 бит

1 Кбайт = 1024 байт

1 Мбайт = 1024 Кбайт

1 Гбайт = 1024 Мбайт

1 Тбайт = 1024 Гбайт

1. Сколько бит содержится в 16,75 байтах?

16,75 байт = 16,75 * 8 = 134 бит

2. Сколько бит содержится в 173,25 килобайтах?

173,25 Кбайт = 173,25 * 1024 = 177408 байт = 177408 * 8 = 1419264 бит

3. Сколько терабайтов содержится в 6363 гигабайтах?

6363 Гбайт = 6363 / 1024 ≈ 6,21 Тбайт

4. Сколько мегабайтов содержится в 27,5 гигабайтах?

27,5 Гбайт = 27,5 * 1024 = 2764,8 Мбайт

5. Сколько мегабайтов содержится в 568328 байтах?

568328 байт = 568328 / 1024 ≈ 555,008 Кбайт = 555,008 / 1024 = 0,542 Мбайт

6. Сколько байтов содержится в 4,25 мегабайтах?

4,25 Мбайт = 4,25 * 1024 = 4352 Кбайт = 4352 * 1024 = 4456448 байт

7. Сколько мегабайт информации содержит сообщение объемом 232 бит

232 бит = 232 / 8 = 29 байт = 29 / 1024 ≈ 0,028 Кбайт = 0,028 / 1024 ≈ 0,0000277 Мбайт

8. Сколько бит информации содержит сообщение объемом 256 мегабайт

256 Мбайт = 256 * 1024 = 262144 Кбайт = 262144 * 1024 = 268435456 байт = 268435456 * 8 = 2147483648 бит

Четвёртый вариант ответа

Объяснение:

Найдите верное равенство:

15₁₀ = 10001₂

23₁₆ = 11110₂

19₁₆ = 1000₂

43₈ = 23₁₆

1) проверяем первое равенство: 15₁₀ = 10001₂

15 mod 2 = 1

7 mod 2 = 1

3 mod 2 = 1

1 mod 2 = 1

Остаток от деления записываем в обратном порядке и получаем число: 1111₂

Неверное равенство.

2) проверяем второе равенство: 23₁₆ = 11110₂

По таблице значений переведём 11110₂ в 16-ю СС:

0001₂ = 1₁₆; 1110₂ = Е₁₆. Итог: 1E₁₆

Неверное равенство.

3) проверяем третье равенство: 23₁₆ = 1000₂

По таблице значений переведём 1000₂ в 16-ю СС:

1000₂ = 8₁₆

Неверное равенство

4) проверяем четвёртое равенство: 43₈ = 23₁₆

Сначала переведём 23₁₆ в 10-ю СС: 23₁₆ = 16¹*2 + 16⁰*3 = 32 + 3 = 35₁₀

Переведём из 10-й СС в 8-ю СС:

35 mod 8 = 3

4 mod 8 = 4

0 mod 8 = 0

Остаток от деления записываем в обратном порядке и получаем число: 43₈