Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Mulder Fox
0 / 0 / 0
Регистрация: 10.10.2012
Сообщений: 44
1

Вычислить сумму элементов массива, чьи значения попадают в заданный интервал

02.11.2012, 22:10. Просмотров 701. Ответов 3
Метки нет (Все метки)

Вычислить сумму элементов, чьи значения попадают в интервал (-5;20) в одномерном массиве размера n.

Pascal
1
2
3
4
5
6
7
8
Var a:real;
Begin
s:=0;
For i:=1 to n do
if (a[i]>-5) and (a[i]<20) then s:=s+a[i];
Writeln(‘Сумма=,s);
readln;
End.
Нужно перевести задачу из кода Pascal в VBA.

 Комментарий модератора 
Заголовок темы должен отражать ее суть. Несколько тем с названием "Перевести из Pascal в VBA" никому ни о чем не скажет
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.11.2012, 22:10
Ответы с готовыми решениями:

Вычислить сумму элементов, чьи значения попадают в заданный интервал
вычислить сумму элементов чьи значения попадают в интервал (-12.5;35) в одномерном массиве размера...

Вычислить сумму элементов массива, чьи значения больше 5
Задача такая: вычислить сумму элементов, чьи значения больше 5, в одномерном массиве размера n....

Вычислить количество элементов массива, чьи значения лежат в интервале (-200;25)
Простая задача на вычисление количества элементов, как правильно записать условие на VBA?...

Вычислить произведение элементов, чьи значения больше 7, в одномерном массиве
Вычислить произведение элементов, чьи значения больше 7, в одномерном массиве размера n. Var...

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

3
Catstail
Модератор
24916 / 12640 / 2312
Регистрация: 12.02.2012
Сообщений: 20,576
03.11.2012, 06:51 2
Растрогал код на Паскале (мол, чем могу - помогаю...)

Visual Basic
1
2
3
4
5
Function SumArr(A() as integer, a1 as integer, b1 as integer)
   For i%=1 to Ubound(A,1)
        If A(i%) >= a1 and A(i%) <= b1 then SumArr=SumArr+A(i%)
   Next i%
End Function
1
ikki
призрак
2826 / 882 / 118
Регистрация: 11.05.2012
Сообщений: 1,702
Записей в блоге: 2
03.11.2012, 11:52 3
Catstail, у автора и в задаче, и в коде диапазон открытый
1
Catstail
Модератор
24916 / 12640 / 2312
Регистрация: 12.02.2012
Сообщений: 20,576
03.11.2012, 16:52 4
Цитата Сообщение от ikki Посмотреть сообщение
открытый
- тогда
Visual Basic
1
If A(i%) > a1 and A(i%) < b1 then ...
2
03.11.2012, 16:52
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.11.2012, 16:52

Вычислить сумму элементов массива, значения которых по модулю лежат в заданном диапазоне
Dim n As Integer Dim b As Integer Dim c As Integer Dim s As Integer Dim a() As Single Dim i As...

Значения диапазона, попадающие в заданный интервал, возвести в квадрат
Здравствуйте. Помогите, пожалуйста. Значения диапазона, попадающие в заданный интервал, возвести в...

Значения диапазона, попадающие в заданный интервал, заменить нулями
Значения диапазона, попадающие в заданный интервал, заменить нулями. Поместить новый диапазон...


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

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

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