Найти в матрице число, в двоичном представлении которого больше всего единиц - VBA

Узнай цену своей работы

Формулировка задачи:

Условие. Размерности массивов вводить с клавиатуры. Исходные данные и результаты выводить на экран дисплея в табличном виде. Задача. Дана последовательность целых чисел. Найти в ней число, в двоичном представлении которого больше всего единиц.

Решение задачи: «Найти в матрице число, в двоичном представлении которого больше всего единиц»

textual
Листинг программы
  1. Function tt(rng As Range) As String
  2.     Dim arr(), arr1(), i As Long, m As Long
  3.     arr = rng
  4.     ReDim arr1(1 To UBound(arr))
  5.     For i = 1 To UBound(arr)
  6.         arr1(i) = Len(Replace(WorksheetFunction.Dec2Bin(arr(i, 1)), "0", ""))
  7.     Next
  8.     m = WorksheetFunction.Max(arr1)
  9.     For i = 1 To UBound(arr)
  10.         If arr1(i) = m Then
  11.             If Len(tt) = 0 Then tt = arr(i, 1) Else tt = tt & ", " & arr(i, 1)
  12.         End If
  13.     Next
  14. End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.727 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы