Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
array_x
1 / 1 / 0
Регистрация: 02.05.2014
Сообщений: 18
1

Для последовательности найти количество чисел, попадающих в заданный интервал

09.05.2015, 16:42. Просмотров 1083. Ответов 4
Метки нет (Все метки)

Для последовательности чисел Xn=10sin(n^(1/2))n n=1,2...2000000 найти количество чисел попадающих в интервал (1;2). (VBA в excel)
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2015, 16:42
Ответы с готовыми решениями:

Вычислить количество элементов диапазона, не попадающих в заданный интервал.
17. Составьте функцию, которая вычисляет количество элементов диапазона, не попадающих в заданный...

Составьте функцию, которая вычисляет произведение элементов диапазона, попадающих в заданный интервал.
Составьте функцию, которая вычисляет произведение элементов диапазона, попадающих в заданный...

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

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

Определить количество элементов последовательности попадающих в заданный интервал
Условие задачи: Дана последовательность из n вещественных чисел. Определить количество элементов...

4
Казанский
14905 / 6308 / 1719
Регистрация: 24.09.2011
Сообщений: 9,977
09.05.2015, 19:57 2
array_x
Формула непонятна. Используйте синтаксис VBA или редактор формул.

Если Xn=10*Sin(Sqr(n)), то ответ можно получить формулой
Код
=-СУММПРОИЗВ(-(ABS(10*SIN(КОРЕНЬ(СТРОКА(1:1000000)+{0;1000000}))-1,5)<=0,5))
Или на VBA
Visual Basic
1
2
3
Sub ArrayX()
 MsgBox Evaluate("-SUMPRODUCT(-(ABS(10*SIN(SQRT(ROW(1:1000000)+{0,1000000}))-1.5)<=0.5))")
End Sub
0
array_x
1 / 1 / 0
Регистрация: 02.05.2014
Сообщений: 18
09.05.2015, 21:45  [ТС] 3
Немного уточню свой вопрос, то, что вы написали верно, спасибо Вам за это, но задание состоит немного в другом. Код должен выглядеть примерно так. Это то, что написал я, если вам нетрудно помогите найти в нем ошибку.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub elemprom()
Dim a(1 To 2000000)
Dim i, element
element = 0
For i = 1 To 2000000
a(i) = 10 * Sin(i ^ (1 / 2)) * i
If 1 < a(i) < 2 Then
element = element + 1
End If
Next i
MsgBox элемент
End Sub
0
Казанский
14905 / 6308 / 1719
Регистрация: 24.09.2011
Сообщений: 9,977
09.05.2015, 22:57 4
Лучший ответ Сообщение было отмечено array_x как решение

Решение

1. Используйте Option Explicit, чтобы избегать таких ошибок:
Visual Basic
1
2
3
element = element + 1
'...
MsgBox элемент
2.
Visual Basic
1
If 1 < a(i) < 2 Then
Объяснение тут: Вычислить значение выражения (исправить код)
3. Это не ошибка, но - зачем нужен массив?
4. Еще тип переменных, и Sqr(i) вместо i ^ (1 / 2)
1
array_x
1 / 1 / 0
Регистрация: 02.05.2014
Сообщений: 18
10.05.2015, 00:11  [ТС] 5
Спасибо, все вышло!
1
10.05.2015, 00:11
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2015, 00:11

Определить количество элементов последовательности попадающих в заданный интервал
Помогите пожалуйста с задачкой. Дана последовательность из n вещественных чисел. Определить...

Найти количество элементов массива, попадающих в заданный интервал от a до b
в заданной матрице подсчитать и вывести на экран кол-во элементов попадающих в заданный интервал от...

Найти количество элементов массива, попадающих в заданный интервал
Дано последовательность из N чисел : а(1), а(2), а(3), а(4), а(5), а(6), а(7), а(8), , а(N) ...


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

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

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