Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
RazveD
0 / 0 / 2
Регистрация: 20.11.2011
Сообщений: 24
#1

Определить количество ak последовательности - VBA

03.06.2012, 11:57. Просмотров 404. Ответов 1
Метки нет (Все метки)

Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an удовлетворяющих условию
2 в степени "к"< ak<k!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.06.2012, 11:57
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить количество ak последовательности (VBA):

Определить в последовательности количество положительных и отрицательных элементов
Собственно есть задача: Определить в последовательности a1, a2, …, an...

Определить количество элементов последовательности натуральных чисел, заключенных в промежутке от 1 до N
определить количество элементов последовательности натуральных чисел...

Определить и записать в ячейку А1 количество элементов последовательности, являющихся четными числами
Задание № 3: Задачи по теме «Цикл For» Вариант 2 В столбце D записать...

Определить количество членов последовательности: имеющие не четные порядковые номера и являющиеся четными числами
Даны натуральные чиcла n, a1 , a2,...,an. Определить количество членов...

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

Найти количество членов последовательности
Последовательность действительных чисел оканчивается нулем. Найти количество...

1
Казанский
13885 / 5648 / 1439
Регистрация: 24.09.2011
Сообщений: 8,860
03.06.2012, 12:20 #2
Visual Basic
1
2
3
4
5
6
7
8
9
10
Function RazveD(a) As Long
Dim k&, k_2#, k_fact#
k_2 = 1
k_fact = 1
For k = 1 To UBound(a)
    k_2 = k_2 * 2
    k_fact = k_fact * k
    If a(k) > k_2 And a(k) < k_fact Then RazveD = RazveD + 1
Next
End Function
Для проверки
Visual Basic
1
2
3
4
5
Option Base 1
 
Sub test()
Debug.Print RazveD(Array(2, 5, 10, 20, 20, 1000, 1000, 1.23E+15))
End Sub
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.06.2012, 12:20
Привет! Вот еще темы с решениями:

Найти количество членов последовательности
3. Найти количество членов последовательности а, a+n, a+2*n, … при условии,...

Найти количество нечетных элементов последовательности
Дана последовательность из n целых чисел. Найти количество нечетных элементов...

Количество отрицательных чисел во вводимой последовательности
составить программу на языке VBA, которая вычисляет количество отрицательных...

Найти количество членов последовательности оканчивающейся нулем
Последовательность действительных чисел оканчивается нулем . Найти количество...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru